Aplicar Change(ByVal Target As Range) con varios rangos
Buenos días DAM de acuerdo a lo que me has enviado intente crear varios rango pero me da error:
quisiera que lo que se modifique el rango H18:H48 me escriba en N de la hoja "data la fecha
quisiera que lo que se modifique el rango A18:A48 me escriba en M de la hoja "data la fecha
quisiera que lo que se modifique el rango B18:B48 me escriba en O de la hoja "data la fecha
quisiera que lo que se modifique el rango C18:C48 me escriba en P de la hoja "data la fecha
quisiera que lo que se modifique el rango D18:D48 me escriba en Q de la hoja "data la fecha
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("H18:H48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "N") = Date
Next
End If
End Sub
1 respuesta
Así:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("H18:H48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "N") = Date
Next
End If
If Not Intersect(Target, Range("A18:A48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "M") = Date
Next
End If
If Not Intersect(Target, Range("B18:B48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "O") = Date
Next
End If
If Not Intersect(Target, Range("C18:C48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "P") = Date
Next
End If
If Not Intersect(Target, Range("D18:D48")) Is Nothing Then
For Each t In Target
Sheets("Data").Cells(t.Row, "Q") = Date
Next
End If
End SubSaludos.DAM
