Fecha automática en una celda especifica con macro
Necesito un macro que me ayude a colocar la fecha automática, en la celda "b" si escribo algo en la celda "c" pero los códigos que encuentro no me funcionan. Teniendo en cuenta que en la columna c ya hay varias filas sin fecha.
Para poner la fecha en las celdas de la columna B si ya existe información en la columna C, primero debes ejecutar la siguiente macro, solamente una vez.
Pon la siguiente macro en un módulo y la ejecutas solamente una vez sobre tu hoja.
Sub Poner_Fecha()
'Por Dante Amor
For i = 7 To Range("C" & Rows.Count).End(xlUp).Row
If Cells(i, "C").Value <> "" Then
Cells(i, "B").Value = Date
End If
Next
MsgBox "Fechas colocadas"
End SubDespués de actualizar la columna B, entonces pon la siguiente macro en los eventos de tu hoja, para que de esa forma, cada vez que pongas un dato en la columna C, se actualice la fecha de la columna B.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
If Target.Count > 100 Then Exit Sub
For Each c In Target
If c.Value = "" Then
'Cells(c.Row, "B").Value = ""
Else
Cells(c.Row, "B").Value = Date
End If
Next
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble clic a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
1 respuesta más de otro experto
Checa con este código, a mi me funciona bien.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.MoveAfterReturn = False
If Target.Count = 1 Then
If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
Cells(Target.Row, "B") = Now
End If
End If
End Subcomo verás, esta para detectar cambios de C2 a C100, sólo ajústalo a tus necesidades.