Tengo este fragmento de código en el libro, de manera que cada vez que introduzco un valor en una celda de la columna B, me devuelve la fecha en la celda adyacente de la columna C. Me gustaría repetir la misma operación en el mismo libro, de manera que cuando se introduce un valor en las celdas de las columnas E y H, también devuelva las fechas en las celdas adyacentes de las columnas F e I. ¿Alguien sabría indicarme cómo repetir la misma operación?
Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date
Set isect = Application.Intersect(Target, Range("B:B"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("B:B"))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date
Set isect = Application.Intersect(Target, Range("B:B"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("B:B"))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If
End Sub
Private Sub Worksheet_Deactivate()
End Sub