Si quieres que la fecha permanezca fija después de poner "ok", entonces pone el siguiente código en los eventos de tu hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por Dante Amor
Dim rng As Range, cel As Range
Dim valor As Variant
Dim sincambios As Boolean
'
Set rng = Intersect(Target, Columns("B")) 'columna donde vas a poner "ok"
'
If Not rng Is Nothing Then
For Each cel In rng
If cel.Value = "" Then
valor = ""
ElseIf UCase(cel.Value) = UCase("ok") Then
valor = Date
Else
sincambios = True
End If
If sincambios = False Then
Application.EnableEvents = False
Range("D" & cel.Row).Value = valor 'Columan de Fechas
Application.EnableEvents = True
End If
Next
End If
End Sub
NOTAS:
Cambia en el código "B" por las letra de la columna donde vas a poner "ok"
Cambia "D" por la letra de la columna donde quieres la fecha.
Cada vez que escribas "ok" en alguna celda de la columna "B", pone en automático la fecha en la columna "D" en la misma fila.
Si borras el "ok", también se borra la fecha de la misma fila.
Si escribes cualquier otro dato, no pasa nada.
Sigue 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 click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
- Regresa a la hoja y empieza a escribir "ok" en las celdas.
- Debes guardar el archivo como excel habilitado para macros.
Visita:
Comparte el enlace con alguien que desee conocer sobre Excel y Macros.
Sal u dos