Insertar fecha si inserto palabra especifica en una celda
Buen día, quisiera saber si me pueden ayudar con un macro, mira tengo una hoja de exel en la cual quiero que:
Cuando inserte la palabra “ADUANA” en la columna A se inserte la fecha actual en la misma fila pero en la columna B ( y que no se modifique al día siguiente ) y cuando remplace la palabra “ADUANA” por ” ALMACÉN” se inserte la fecha actual en la misma fila pero en la columna C ( sin que se borre lo que se genero en columna B) , difícil no …
Algo así mas o menos:
A B C
Almacén 15/7/2012 20/07/2012
De antemano muchas gracias.
Saludos
1 Respuesta
Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Columns("A")) Is Nothing Then
If Target.Count = 1 Then
Select Case Target
Case "ADUANA"
Cells(Target.Row, "B") = Date
Case "ALMACÉN"
Cells(Target.Row, "C") = Date
End Select
End If
End If
End SubPrueba y me comentas
Saludos. DAM
Si es lo que necesitas.
