Ejecutar macro en un rango de celdas
Tengo una macro que al encontrar el valor 1 en la celda A1 ejecuta una macro. ¿Como hacer que se ejecute la macro si encuentra el valor 1 desde el rango A1:A100
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" And Target = 1 Then 'MsgBox "macro1" Call Macro1 End If End Sub
1 respuesta
Respuesta de Dante Amor
3
Te anexo la macro actualizada
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value = 1 Then
'MsgBox "macro1"
Call Macro1
End If
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
