Ejecutar una macro u otra dependiente de celda activa
Tengo que ejecutar una macro distinta dependiendo que celda activa este en la columna G
Si es de la fila 7 a la 230... Una macro
si es de la 231 a 454 ... Otra
si es de la 455 a 678 ... Otra.
Lo estoy intentado con esto pero no hay manera:
Sub aaaaaaaaaprueba()
Dim x As Integer
If ActiveCell.Address = "$G$" & x Then
Select Case x
Case 7 To 230
MsgBox "La celda B" & j & " tramo 1 ok"
Case 231 To 454
MsgBox "La celda B" & j & " tramo 2 ok"
End Select
End If
End Sub
1 respuesta
Respuesta de Juan Cosceri
1
Para realizar esto debes incluir la macro como macro de Hoja conforme print abajo
Asi mismo te dejo un codigo que te va a funcionar perfectamente
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 Then If Target.Row >= 7 And Target.Row <= 230 Then Call Modulo1.Macro1 ElseIf Target.Row >= 231 And Target.Row <= 454 Then Call Modulo1.Macro2 ElseIf Target.Row >= 455 And Target.Row <= 678 Then Call Modulo1.Macro3 End If End If End Sub
Por favor recuerda valorar la respuesta!
Slds
Juan
