Como copiar la misma macros pero para diferente celda
Mi pregunta es la siguiente: tengo una macros para que me marque la hora con la fecha cuando coloco datos en otra sin ningún problema hasta ahi va bien , pero me gustaría saber como genero esa misma macro, para la misma hoja, pero para diferente celda (de la misma hoja)..
por ejemplo hasta ahora tengo lo siguiente:
en la columna (O:O) me aparece la fecha y hora cada que inserto datos (cualquiera) en la columna (L:L), lo que quiero es que esta misma macros aplique ahora para otros rangos distintos dentro del mismo formato... Ayuda por favor...
Mi formula es la siguiente:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing _
Then Exit Sub
Dim rng As Range, c As Range
Set rng = Intersect(Target, Range("A:A"))
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
For Each c In rng
If c = "" Then c.Offset(, 3) = "" _
Else c.Offset(, 3) = Now
Next c
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
espero haberme explicado.
GRACIAS..