Ejecutar macro dese una hoja diferente
Publicado por Leonardo (1 intervención) el 09/09/2008 02:50:48
Buen dia, tengo el siguiente incoveniente:
Estoy ejecutando una macro al cambiar una celda cuyo valor no lo ingreso si no que es un dato calculado y adicionalmente la macro hace referencia a otras hojas para finalmente volver a la hoja desde donde se corrio inicialmente.
mi problema es que he intentado hacer que se ejecute y lo he conseguido. anexo el codigo por si tiene ideasd para ejecutarlo.
Private Sub Worksheet_Change(ByVal Target As Range)
Extremos
End Sub
____________________________________
Sub Extremos()
Sheets("BD_PA").Select
b = 0
While Not (IsEmpty(Cells(7 + b, 1)))
b = b + 1
Wend
a = 0
For i = 7 To 6 + b Step 1
Sheets("BD_PA").Select
If Cells(i, 1) = Cells(1, 2).Value Then
Cells(i, 2).Select
Selection.Copy
a = 1 + a
Sheets("I_plan").Select
Cells(11 + a, 2).Select
Selection.PasteSpecial Paste:=xlValues
End If
Next
End Sub
El dato para comparar Cells(1, 2).Value es el que varia, lo ubique asi por que no se como hacer un llamado de un dato de otra hoja en una condicion como IF. gracias
Estoy ejecutando una macro al cambiar una celda cuyo valor no lo ingreso si no que es un dato calculado y adicionalmente la macro hace referencia a otras hojas para finalmente volver a la hoja desde donde se corrio inicialmente.
mi problema es que he intentado hacer que se ejecute y lo he conseguido. anexo el codigo por si tiene ideasd para ejecutarlo.
Private Sub Worksheet_Change(ByVal Target As Range)
Extremos
End Sub
____________________________________
Sub Extremos()
Sheets("BD_PA").Select
b = 0
While Not (IsEmpty(Cells(7 + b, 1)))
b = b + 1
Wend
a = 0
For i = 7 To 6 + b Step 1
Sheets("BD_PA").Select
If Cells(i, 1) = Cells(1, 2).Value Then
Cells(i, 2).Select
Selection.Copy
a = 1 + a
Sheets("I_plan").Select
Cells(11 + a, 2).Select
Selection.PasteSpecial Paste:=xlValues
End If
Next
End Sub
El dato para comparar Cells(1, 2).Value es el que varia, lo ubique asi por que no se como hacer un llamado de un dato de otra hoja en una condicion como IF. gracias
Valora esta pregunta


0