............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

fecha automática

Página 1 de 2. 1, 2  Siguiente

Ver el tema anterior Ver el tema siguiente Ir abajo

fecha automática

Mensaje por loli el Miér Jul 23, 2008 5:54 am

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 [Tienes que estar registrado y conectado para ver este vínculo] por favor

loli

Cantidad de envíos : 4
Fecha de inscripción : 22/07/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por GalileoGali el Miér Jul 23, 2008 8:24 am

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

[Tienes que estar registrado y conectado para ver este vínculo]

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?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: fecha automática

Mensaje por ioyama el Miér Jul 23, 2008 9:04 am

Hola loli

Revisa el adjunto.

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

[Tienes que estar registrado y conectado para ver este vínculo]

Un saludo desde Vitoria

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

ioyama
Moderador
Moderador

Masculino Cantidad de envíos : 128
Edad : 54
Ciudad - Pais : Vitoria (España)
Fecha de inscripción : 03/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por loli el Miér Jul 23, 2008 9:35 am

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

loli

Cantidad de envíos : 4
Fecha de inscripción : 22/07/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Miér Jul 23, 2008 11:15 am

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

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Miér Jul 23, 2008 1:48 pm

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

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por GalileoGali el Miér Jul 23, 2008 1:53 pm

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+ ;

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Jue Jul 24, 2008 11:49 am

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

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Jue Jul 24, 2008 3:15 pm

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
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Jue Jul 24, 2008 5:04 pm

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

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Jue Jul 24, 2008 5:48 pm

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

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Jue Jul 24, 2008 6:29 pm

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

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Jue Jul 24, 2008 6:50 pm

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

saludos

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Jue Jul 24, 2008 6:59 pm

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

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Jue Jul 24, 2008 7:14 pm

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

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Jue Jul 24, 2008 7:29 pm

Muchas gracias amigo...
Si tienes razon el tema me gusta
Por hoy ya me has ayudado enormemente, estoy agotado y tengo que trabajar de aqui a poco.
Estamos en contacto.
Un saludo grande

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por GalileoGali el Jue Jul 24, 2008 8:56 pm

Aca va un archivo donde habia hecho un control Calendario, podes seleccionar una celda o un rango, lanzar el Control haciendo click sobre el icono y despues seleccionar la fecha en el Control.

[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Vie Jul 25, 2008 1:57 pm

Hola me he descargado el archivo
Pero estoy mas liado
Como puedo poner en el rango que quiero las fechas si no se donde lo tengo que poner puesto que el codigo no lo especifica:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Calendario


End Sub
Despues pasa que ese icono es muy grande y tapa datos que interesa ver.
Mi idea es que al picar en la casilla en cuestion se abriese el calediario y una vez insertada la fecha se cerrara

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Vie Jul 25, 2008 3:39 pm

Hola potrillo complementando con el archivo de gali una opcion seria la siguiente en la hoja donde ingresaras las fechas pon este codigo

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Calendario
End Sub

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
UserForm1.Show
End Sub

y si no quieres digitar ninguna fecha solo cierra el formulario con el boto X

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Sáb Jul 26, 2008 8:59 am

jairga escribió:Hola potrillo complementando con el archivo de gali una opcion seria la siguiente en la hoja donde ingresaras las fechas pon este codigo

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Calendario
End Sub

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
UserForm1.Show
End Sub

y si no quieres digitar ninguna fecha solo cierra el formulario con el boto X
Hola amigo
te explico como lo hice pero me sale error
abro la hoja en cuestion donde van las fechas, le pico con boton derecho: ver codigo, inserto todo esto,he cambiando los rangos logicamente:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Calendario
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("G3:G500,H3:H500,J3:J500")) Is Nothing Then Exit Sub
If Target <> "" Then Exit Sub
UserForm1.Show
End Sub
Guardo, y cuando entro me sale error:
Se ha producido el error 424 en tiempo de ejecucion
Se requiere un objeto
Finalizar depurar ayuda

Si le digo de purar me marca en amarillo y una flecha: UserForm1.Show

Que estoy haciendo mal?
Gracias

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Sáb Jul 26, 2008 10:49 am

Hola, te falta el formulario con el contol calendar,puedes hacerlo tu mismo no se si sabes como? o podrias importarlos desde el ejemplo de gali, para enseñarte mas o menos como programar el from y el calendario de una forma didactica seria como lo hace gali con video para las tablas dinamicas pero yo no se como se hace y si depronto la pagina aguante el peso del archivo si no me dices y te digo como importar el objeto desde el archivo de gali al tuyo

saludos
jairga

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Sáb Jul 26, 2008 1:50 pm

Pues creo que lo mas "sencillo" seria importar el archivo de gali, pero como digo ni idea, si no es muy complicado te lo agradeceria me lo explicases, recuerda desde el inicio, osea estoy en la hoja en cuestion y con el codigo anterior insertado.
Gracias

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por jairga el Sáb Jul 26, 2008 11:18 pm

Hola potrillo quisiera darte un concejo de todo corazon y espero no lo tomes a mal, a veces el camino mas rapido aunque nos lleve al lugar que queremos llegar en este caso no es el mejor y talvez fue mi culpa ya que te deje esa posibilidad pero en tu caso como a sido en el mio debemos tomar el camino largo debes comenzar por leer en la red hay muchos manuales que puedes bajar y puedes comenzar desde lo basico, bueno ahora lo intentaremos hacer progamando desde objetos si ya estas en el visual proyect arriba hay unos menus te vas al que dice insertar, y ledas donde dice UserForm, cuando tengas insertado el formulario si no te aparecio tambien la ventana de herramientas la puedes ver desde le menu ver, bueno seleccionas la ventana de herramientas hay estan los controles mas usados casi nunca esta el control calendario entonces les das boton derecho del mause y le das controles adicionales buscas CONTROL CALENDAR creo que te aparecera la version que tengas 10 o 11 y activa la casilla una vez echo esto tendras en el cuadro de herramientas este control solo lo seleccionas con un click y lo arrastras hasta el formulario y lo insertas con un click y lo ajustas al formulario ya lo otro puedes guiarte con el archivo de gali y ves copiando y pegando los codigos y haciendo pruebas, espero lo intentes se que al final lo conseguiras, si no aqui estaremos.

saludos
jairga

jairga
Moderador
Moderador

Masculino Cantidad de envíos : 163
Edad : 40
Ciudad - Pais : Cartagena-Barranquilla(Colombia)
Version de Excel : XP-2003-2007
Fecha de inscripción : 11/03/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por potrillo el Mar Jul 29, 2008 11:23 am

Gracias amigo entiendo perfectamente tu plantemiento a lo de investigar, asi lo hare quizas tu conozcas alguna web o maual sencillo en la red para aconsejarme.
De todas formas hare lo que dices investigare por la red.
Con respecto a la formula te explico que me llega a generar el calendario en las celdas que le he definido pero al clicar en el calendario el dia, no lo inserta, creo que falta poco para el resultado ok, aver si me sale
Gracias

potrillo

Masculino Cantidad de envíos : 59
Edad : 40
Ciudad - Pais : Almeria - España
Version de Excel : Excell office
Fecha de inscripción : 25/05/2008

Volver arriba Ir abajo

Re: fecha automática

Mensaje por GalileoGali el Mar Jul 29, 2008 1:43 pm

Potrillo: si buscas en el Portal de este sitio, puedes ver un BANNER que dice MANUALES y TUTORIALES, haz click alli, y dirigete a la Pagina de Links, con sugerencias y recomendaciones.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: fecha automática

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Página 1 de 2. 1, 2  Siguiente

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.