Fecha automática condicionada

21/10/2003 - 13:47 por Lito | Informe spam

Hola:

Quiero que la fecha se coloque automáticamente en la primer celda vacía de la columna A al escribir
en la celda de al lado de la columna B.

Algo como "Si Range("B2") <>"" entonces Range("A2") = Format(Now(), "dd/mm/yy")

¿Podrá lograrse con formato condicional? si es así ¿cómo?

Saludos.

Lito

Siga el debate

12 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 Fernando Arroyo

23/10/2003 - 12:58 | Informe spam

Parece que voy recuperando la memoria :-)
Creo que ya recuerdo cómo se activaba el equivalente al evento Change para una hoja. Lo siguiente tendrías que ponerlo en una hoja de macros:

sub auto_open()
Woorksheets("Hoja1").onentry = "PonerHora"
end sub

sub PonerHora
If activecell.column=2 then activecell.offset(0,-1)=now()
end sub

El problema es que no he podido probar el código porque no tengo el Excel 95.
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Lito" escribió en el mensaje news:

Perdón, voy a ser muuuuyy pedigüeño :-)

El código anda bien en Excel 2000, para el que lo pedí, pero ahora necesito adaptarlo a una vieja
386 en que bajo Win 3.1 tengo funcionando Excel 5. Si, aquella querida versión en que se programaba
en español. (Ah, tiempos...)

¿Será mucho pedir?

Anticipadas y primaverales gracias. (Otoñales para los del norte)

Lito

Responder a este mensaje

#12 Lito

23/10/2003 - 14:38 | Informe spam

¡Que bueno que te acordaste!

Pues lo probé y me da la impresión que no le gustó el inglés (hay otros proced en español) intenté
traducirlo al español
y debo hacer algo mal

Así lo puse:

Proced auto_open()
Hojas("NombreHoja").onentry="PonerHora"
Fin proced

Proced PonerHora
Si celdaactiva.colummna=2 entonces celda.activa.offset(0,-1)=ahora()
Fin proced

Sospecho del "offset" del que no se la traducción y del auto_open ¿auto_abrir?

En fin, el tema no es muy significativo. Lo importante era que en la otra PC está arreglado

Te agradezco la ayuda, molestias e interés.

Un saludo.

Lito

PD: Útil tu página. Esencial para los que apenas nos movemos con el usano ;-) ya que en español no
abundan.

"Fernando Arroyo" escribió en el mensaje
news:
Parece que voy recuperando la memoria :-)
Creo que ya recuerdo cómo se activaba el equivalente al evento Change para una hoja. Lo siguiente
tendrías que ponerlo en una hoja de macros:

sub auto_open()
Woorksheets("Hoja1").onentry = "PonerHora"
end sub

sub PonerHora
If activecell.column=2 then activecell.offset(0,-1)=now()
end sub

El problema es que no he podido probar el código porque no tengo el Excel 95.
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Lito" escribió en el mensaje news:

Perdón, voy a ser muuuuyy pedigüeño :-)

El código anda bien en Excel 2000, para el que lo pedí, pero ahora necesito adaptarlo a una vieja
386 en que bajo Win 3.1 tengo funcionando Excel 5. Si, aquella querida versión en que se

programaba