Macro, en celdas distintas
tengo una macro que funciono muy bien, necesito repetir esa misma macro en otras celdas con datos diferentes. Te explico un poco mas, la macro anterior, relizaba unas funciones en mi hoja de excel ahora necesito que esas mismas funciones se repitan con datos distintos en las columnas G, H, I, , la anterior era para el ojo derecho de una receta y esta seria para el ojo izquierdo, desde ya muchas gracias y saludos
te envío la macro anterior:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Cells(Target.Row, "D") < 0 Then
Application.EnableEvents = False
Cells(Target.Row, "C") = Cells(Target.Row, "C") + Cells(Target.Row, "D")
Cells(Target.Row, "D") = Cells(Target.Row, "D") * -1
If Cells(Target.Row, "E") > 90 Then
Cells(Target.Row, "E") = Cells(Target.Row, "E") - 90
Else
Cells(Target.Row, "E") = Cells(Target.Row, "E") + 90
End If
Application.EnableEvents = True
End If
End If
End Sub
1 Respuesta
¿Te funcionó la solución que te dio PirataIbero?
hola amigo, en realidad no funciono ya que no realiza la primer macro ni la segunda, lo que me esta matando es que no puedo repetir las mismas funciones que la macro anterior en distintas columnas y distintos datos, saludos y una ayuda please, gracias
Listo, por favor enviame el archivo a ésta dirección de correo [email protected] el asunto que sea tu pregunta. Necesito ver los datos que tienes. ¿La macro que copiaste si te está funcionando?
mail enviado, espero tu respuesta y gracias, salu2
Te envío el código, por favor no olvides finalizar la pregunta.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("E:E")) Is Nothing Then
If Cells(Target.Row, "D") < 0 Then
Application.EnableEvents = False
Cells(Target.Row, "C") = Cells(Target.Row, "C") + Cells(Target.Row, "D")
Cells(Target.Row, "D") = Cells(Target.Row, "D") * -1
If Cells(Target.Row, "E") > 90 Then
Cells(Target.Row, "E") = Cells(Target.Row, "E") - 90
Else Cells(Target.Row, "E") = Cells(Target.Row, "E") + 90
End If
Application.EnableEvents = True
End If
End If
If Not Intersect(Target, Range("I:I")) Is Nothing Then
If Cells(Target.Row, "H") < 0 Then
Application.EnableEvents = False
Cells(Target.Row, "G") = Cells(Target.Row, "G") + Cells(Target.Row, "H")
Cells(Target.Row, "H") = Cells(Target.Row, "H") * -1
If Cells(Target.Row, "I") > 90 Then
Cells(Target.Row, "I") = Cells(Target.Row, "I") - 90
Else Cells(Target.Row, "I") = Cells(Target.Row, "I") + 90
End If Application.EnableEvents = True
End If
End If
End Sub
