Ejecutar macro que actualiza fecha de modificación según el texto que escribamos en una celda

16/01/2009 - 12:34 por mamen.figueres | Informe spam
Hola,

Necesito hacer lo siguiente:

En las celdas de la columna C puedo escoger 3 valores de una lista
(entrada, instalado, salida)

Según el valor que escoja de C me gustaría que se actualizar a la
fecha de modificación de ese valor la columna D o E o F que
corresponderían a Fecha entrada, Fecha instalado y Fecha salida
respectivamente

Ejemplo:
Si C1 ="Entrada" D1= Ahora(), E1= Null, F1=Null
Si C1="Instalado" D1= Fecha entrada, E1=Ahora(), F1=Null
Si C1="Salida"-->D1=Fecha entrada, E1=Fecha instalada, F1=Ahora();

Me podéis ayudar?

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
16/01/2009 - 19:39 | Informe spam
hola, (...) ?????

En las celdas de la columna C puedo escoger 3 valores de una lista (entrada, instalado, salida)
Segun el valor que escoja de C... actualizar a la fecha de modificacion de ese valor la columna D o E o F
que corresponderian a Fecha entrada, Fecha instalado y Fecha salida respectivamente
Ejemplo:
Si C1 ="Entrada" D1= Ahora(), E1= Null, F1=Null
Si C1="Instalado" D1= Fecha entrada, E1=Ahora(), F1=Null
Si C1="Salida"-->D1=Fecha entrada, E1=Fecha instalada, F1=Ahora();



asumiendo que se trata de reglas de validacion por lista, y que solo vas a controlar el rango [C2:C10]
(modifica/amplia/adapta/... segun corresponda a tus datos reales)

copia/pega (o escribe) las siguientes lineas en el modulo de codigo de "esa" hoja
(clic-sedundario sobre la etiqueta con su nombre y selecciona: "ver codigo")

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c2:c10")) Is Nothing Then _
Target.Offset(, Application.Match(Target, Array("entrada", "instalado", "salida"), 0)) = Now
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida