fecha automática

hola... quiero hacer una cosilla en excel

me gustaria que cuando hago clic sobre una celda, automáticamente me saliera la fecha actual, sin que ésta se modifique nunca.... a no ser q la quiera modificar yo manualmente, esto se puede hacer?

Responderme si lo sabéis a sinchinas@hotmail.com por favor

loli:
1) Las respuestas se publican en el foro, para beneficio de todos
2) En funciones y formulas, es decir aca...

http://excelgali.mejorforo.net/funciones-y-formulas-f4/importar-informacion-de-una-base-de-datos-externa-t213.htm#595

esta esperando tu comentario, respecto a la respuesta que te aporto ioyama....
¿No crees conveniente antes de preguntar algo nuevo, siquiera formular un comentario o en todo caso, agradecer a quien genrosamente, te ha respondido?

Hola loli

Revisa el adjunto.

Te doy un par de opciones, ambas funcionan con macros de evento.

Archivo adjunto

Un saludo desde Vitoria

P.S. Me alegra saber que el aporte anterior te sirvió.

muchas gracias ioyama..... también me sirvió.

Hola ioyama
Veras me he descargado el archivo puesto que es una cosa que me podria beneficiar.
El caso es que he estado probando y veo que la segunda opcion una vez puesta la fecha ya no hay forma del volver al blanco, es decir no poner nada.
Despues otra cosa mucho mas problematica para mi y es que no tengo conocimientos en macros, como podria hacer para que en la colunna de mi archivo que me interesa se ejecutara este macro?
Gracias

Hola potrillo puedes utilizar esta opcion de ioyama creo que la adapte a tu pregunta

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C20")) Is Nothing Then Exit Sub
If Target <> "" Then Exit Sub
Target = Date
End Sub

y defines el rango que quieres trabajar la macro ejemplo si es columna C Fila 2 Hasta la colunma C fila 20 es Range("C2:C20") solo modifica la C por la columna que nesecitas y defines las filas

saludos

espero haberte ayudado
jairga

Tambien se puede poner la Fecha del sistema en la celda Activa, mediante la combinacion de Teclas:
CTRL + ;
si para lograr el caracter ";" hiciera falta la Mayuscula, habra que oprimir
CTRL + MAY+ ;

jairga escribió:Hola potrillo puedes utilizar esta opcion de ioyama creo que la adapte a tu pregunta

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C20")) Is Nothing Then Exit Sub
If Target <> "" Then Exit Sub
Target = Date
End Sub

y defines el rango que quieres trabajar la macro ejemplo si es columna C Fila 2 Hasta la colunma C fila 20 es Range("C2:C20") solo modifica la C por la columna que nesecitas y defines las filas

saludos

espero haberte ayudado
jairga

Gracias amigo...
El problema como digo es poner esto en el archivo en cuestion.
Tengo un excell con varias hojas de las cuales una es para meter datos y las otras para ver resultados.
Bien estoy en la hoja de donde debo colocar las fechas y a partir de aqui no se seguir, supongo que he de arbrir el visual pero no se los pasos a segir.
No se si es muy complicado pediros me lo explicarais a partir de ese paso, perdonad pongo empeño pero mi nivel en visual es cero.
Gracias

Hola potrillo bueno si ya estando en la hoja donde quieres aplicar la macro entras al editor de visual basic puedes hacerlo desde herraminetas o en la etiqueta de la hoja y le das ver codigo, una vez en el editor en la parte izquierda veras proyecto-VBAproject y las hojas que componen el libro de trabajo ejemplo: hoja1,hoja2,hoja3 ect. le das doble clik sobre la hoja donde se ingresara la fecha y en tu derecha aparecera un fondo blanco arriba dice general y al lado declaraciones bueno creo que ya sabes que aqui va el codigo ahora copia el codigo que nesecitas y lo pegas en esa ventana y modifica el rango como ya te dije, si por algun motivo aun no puedes seguiremos intentandolo.

saludos
jairga

jairga escribió:Hola potrillo bueno si ya estando en la hoja donde quieres aplicar la macro entras al editor de visual basic puedes hacerlo desde herraminetas o en la etiqueta de la hoja y le das ver codigo, una vez en el editor en la parte izquierda veras proyecto-VBAproject y las hojas que componen el libro de trabajo ejemplo: hoja1,hoja2,hoja3 ect. le das doble clik sobre la hoja donde se ingresara la fecha y en tu derecha aparecera un fondo blanco arriba dice general y al lado declaraciones bueno creo que ya sabes que aqui va el codigo ahora copia el codigo que nesecitas y lo pegas en esa ventana y modifica el rango como ya te dije, si por algun motivo aun no puedes seguiremos intentandolo.

saludos
jairga

Hola amigo muchisimas gracias de corazon...
Es la primera macro que hago y tu explicacion ha sido muy facil de comprender.
Ha salido a la primera, ahora lo que quiero hacer es aplicarlo a otras colunnas de la misma hoja, he pegado el codigo despues del primero cambiando el rango pero me sale error, supongo que no es asi.
Como se puede hacer otra vez lo mismo o en la misma hoja, pero en diferentes colunnas?
Gracias una vez mas.
Un saludo

Prueba asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("C2:C20,D2:D20,F2:F20")) Is Nothing Then Exit Sub
If Target <> "" Then Exit Sub
Target = Date
End Sub

modifica el rango y las columnas a tu nesecidad

saludos
jairga

Ok, salio perfectamente
Ahora me acabo de dar cuenta que quizas me interesa mas que en vez de poner el puntero y que salga la fecha, situarse dentro de la casilla y pulsar intro y que se insertara esta, osea casi lo mismo pero con la tecla intro i situarse en esta.
Pero no te quiero molestar mas, poco a poco hay ya he conseguido logros.
Muchas gracias amigo

Bueno yo lo haria seria insertar la fecha mediante un control calendar
bueno me alegro haberte ayudado

saludos

jairga escribió:Bueno yo lo haria seria insertar la fecha mediante un control calendar
bueno me alegro haberte ayudado

saludos

Y esto como se hace, es muy complicado?
Un saludo

Bueno amigo ya que te veo interesado en el tema voy a tratar esta noche en mi casa de hacerte un ejemplo y tambien a tratar de ver si puedo subirlo al foro ya que la ultima vez que intente en esnip no lo logre pero quedo en deuda con tigo

saludos a todos
jairga