Actualizar fecha en una celda determinada, al cambiar datos en una columna.
Necesito un help por favor.
Me gustaría que al actualizar datos en determinada columna (A, B, C...), o celdas determinadas (B1:B50), la celda A1 automáticamente atualize la fecha y hora.
En resumen, que algunas celdas determinadas, estuvieran vigilando los cambios en terminadas columnas.
Encontré muchos códigos en internet, casi todos ofrecen la fecha al lado de la celda modificada, y no es lo que necesito.
1 respuesta
Respuesta de Dante Amor
1
Te anexo las 2 opciones, utiliza la que necesites:
Opción 1 columna A,B y C
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
'verfica el cambio en las columnas A, B y C, pero después de la fila 2
'
If Not Intersect(Target, Range("A:C")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
Range("A1").Value = Now
End If
End SubOpción 2 rango de celdas determinadas
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
'verfica rango de celdas determinadas
'
If Not Intersect(Target, Range("B1:B50")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("A1").Value = Now
End If
End SubSi quieres varios rangos de celdas:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
'verfica rango de celdas determinadas
'
If Not Intersect(Target, Range("B1:B50, C10:C15")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Range("A1").Value = Now
End If
End Sub[Si te ayudó la información, no olvides valorar la respuesta.
