If Intersect(Target, Worksheets("A").Range("L19,L22...."))
Enviado: 13 Abr 2016 às 14:27
Boa tarde!
Como modificar o código do range para pular de duas em duas linhas até um limite?
Ex: .Range("L19,L22,L25,L28.... ATÉ L340
Como modificar o código do range para pular de duas em duas linhas até um limite?
Ex: .Range("L19,L22,L25,L28.... ATÉ L340
Código: Selecionar todos
É possível?
Private Sub Worksheet_Change(ByVal Target As Range)
'Roda macro quando valor da célula é alterado manualmente
If Intersect(Target, Worksheets("A").Range("L19,L22")) Is Nothing Then Exit Sub
Application.EnableEvents = False
MsgBox "Algo mudou!"
Application.EnableEvents = True
End Sub