Inicio > Microsoft Excel > t4373125 > Fecha automatica

Fecha automatica

Experto:
Usuario:
Fecha: 19/11/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
19/11/2008
blurry, usuario preguntando en Microsoft Excel
Usuario
Hola, espero que me puedas ayudar. Necesito saber si hay una manera de ligar dos celdas de manera que al introducir un dato en una en la otra me aparezca de forma automatica la fecha del sistema, o sino es posible de esa manera que alternativa recomiendas? de antemano muchas gracias y hasta luego.
19/11/2008
blurry, experto respondiendo en Microsoft Excel
Experto
Hola

No se si entendi exactamente que es lo que quieres.

Lo que yo haria es poner la formula:
=AHORA()
en la casilla donde quieres que aparezca la fecha (con el formato de celda que prefieras)

luego, te vas al editor de VB (Alt+F11) y les das doble clic a la Hoja que estan los datos (en la ventana Proyecto situada a la izquierda)
Finalmente escribes en la ventana grande de la derecha:
Private Sub Worksheet_Change(ByVal Target As Range)
Calculate
End Sub

Ahora cierra el editor de VB y prueba.

Si no es eso lo que querias o no te sale, dimelo y buscaremos otra solución.

Un saludo.
19/11/2008
blurry, usuario preguntando en Microsoft Excel
Usuario
Gracias, eso resuelve el problema de la fecha pero ahora surge otra interrogante.
Necesito saber si podemos limitar la forma en que se modifica la fecha a cada cuatro columnas y en una sola fila, a qué me refiero? al momento de introducir datos en cualquier celda la fecha se modifica, me gustaria que solo dependiera de la celda continua a la derecha y pienso implementarlo cada cuatro celdas en todas las filas, por ejemplo imagina que la primera columna tiene el nombre de un cliente y en la segunda necesito la fecha como la implementamos ya, en la tercera va el producto que compró, en la cuarta la cantidad y en la quinta el precio; estas ultimas cuatro celdas las repetiria a lo largo de la hoja en caso de que el mismo cliente siguiera adquiriendo productos y necesito que cada fecha se modifique de acuerdo a cada compra. Espero haber sido claro y de nuevo reitero mi agradecimiento por tu tiempo.
19/11/2008
blurry, experto respondiendo en Microsoft Excel
Experto
Si lo quieres para eso, no puedes utilizar el metodo "Calculate" que te dije, porque recalcula TODAS las formulas de la hoja, y a ti no te interesa (creo)

Entonces tendras que hacerlo mirando la celda que se ha modificado y cambiando el valor de la celda de al lado.
Borra lo que te dije la ultima vez y prueba esto, a ver si funciona y entiendes como va:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row > 1 And Target.Column Mod 4 = 3 Then
Target.Offset(0, -1).Value = Now
End If

End Sub

He puesto la condicion "Target.Row > 1" por si tienes titulos en la primera fila. Si no es así, quitalo (borra tambien el "And")

Saludos.
19/11/2008
blurry, usuario preguntando en Microsoft Excel
Usuario
Muchisimas Gracias por tu ayuda, solo falta hacer algunas adecuaciones a la segunda condición para adaptarlo a mi hoja de calculo pero de todas maneras me funciona de maravilla.
Enlaces patrocinados