Control de celdas que cambian de valor
Hola amigo, el problema que tengo es que tengo varios datos en diferentes celdas, y necesito una macro que se ejecute si es que alguna de las celdas cambio su valor y me registre hora de cambio, pero solo de esa celda que cambio.. Como podría hacer esto,
Gracias
Gracias
1 Respuesta
Respuesta de tavopz
1
Esto lo puedes hacer pero tendrías que usar VBA.
La idea sería aprovechar el evento Change del objeto Worksheet y detectes la celda que cambia y coloques al frente la hora.
Sería algo más o menos así:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("A1:A3000")) Is Nothing Then
NewEntry = ""
NewEntry = Target
t = Time
If Target <> "" Then
c = Target.Row
Range("B" & LTrim(Str(c))).Value = t
End If
End If
End Sub
Cuéntame si puedo ayudarte en algo más.
La idea sería aprovechar el evento Change del objeto Worksheet y detectes la celda que cambia y coloques al frente la hora.
Sería algo más o menos así:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewEntry As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("A1:A3000")) Is Nothing Then
NewEntry = ""
NewEntry = Target
t = Time
If Target <> "" Then
c = Target.Row
Range("B" & LTrim(Str(c))).Value = t
End If
End If
End Sub
Cuéntame si puedo ayudarte en algo más.
