Foros del Web » Soporte técnico » Ofimática »

Boton en Excel

Estas en el tema de Boton en Excel en el foro de Ofimática en Foros del Web. Hola buenos dias. A ver, necesito agregar un boton de formulario en Excel llamado "FECHA", que cuando se presione en la celda A2 aparezcan los ...
  #1 (permalink)  
Antiguo 05/03/2009, 05:58
 
Fecha de Ingreso: febrero-2009
Ubicación: Republica de Santa Fe
Mensajes: 99
Antigüedad: 15 años, 2 meses
Puntos: 1
Boton en Excel

Hola buenos dias.

A ver, necesito agregar un boton de formulario en Excel llamado "FECHA", que cuando se presione en la celda A2 aparezcan los datos que aporta la funcion =AHORA() ¿Me explico? ¿Como puedo hacer esto?

Muchas gracias y espero una ayudita.
  #2 (permalink)  
Antiguo 05/03/2009, 06:53
Avatar de ceSharp  
Fecha de Ingreso: octubre-2008
Ubicación: Madrid
Mensajes: 495
Antigüedad: 15 años, 5 meses
Puntos: 66
Respuesta: Boton en Excel

Hola Lebs,

Tendrás que hacer una macro sobre ese botón que escriba en la celda A2 la fórmula =AHORA()
ahora bien, esta fórmula se actualiza cada vez que realizas alguna acción dentro de la hoja. Es decir, si tú escribes =AHORA() en este momento que son las... 13:48 (en España) y pasados 2 minutos ejecutas alguna acción dentro de la página, la celda A2 pasará a ser las 13:50. ¿como evitarlo? (si es que quieres evitarlo...) Inicia la grabación de la macro y en la casilla A2 escribes =AHORA(), copia dicha casilla y pegado especial en la misma casilla, aparece una ventana con el tipo de pegado especial y le dices que solo valores (y finalizas la grabación de la macro). De esta manera cada vez que pulsas el botón se grabarán los datos y no la fórmula y no se actualizará cuando ejecutes alguna acción en la hoja.

salu2
  #3 (permalink)  
Antiguo 06/03/2009, 04:04
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 4 meses
Puntos: 144
Respuesta: Boton en Excel

Copia esto desde VBA, en la hoja que quieras controlar (no en Thisworkbook, ni en un módulo):
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rango = "A2"
If Not Application.Intersect(ActiveCell, Range(rango)) Is Nothing Then
    ActiveCell = Now()
End If
End Sub
Saludos.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:21.