Foro Excel

Hola a todos,

Tengo un problema con un excel, y es que necesito que cuando pinches en un botón te vaya a la fecha de hoy. Os explico, tengo un boton en la parte superior del documento y abajo tengo un listado de fechas. Quiero que cuando pinches al boton te seleccione la fecha de hoy. Os escribo un poco de código de lo que he hecho, aunque esto lo único que hace es buscar el numero dos y lo cambia por el 5. He puesto una variable "Hoy" que he hecho la prueba y te saca la fecha de hoy. Iba a poner esa fecha en el "find" para que me la buscara pero el find busca Strings. He intentado convertir la fecha a string con CStr pero tampoco me ha funcionado. ¿alguien sabe como hacerlo para que funcione?

Private Sub CommandButton1_Click()
Dim Hoy
Hoy = Now
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

Gracias de ante mano.
Un saludo

En el archivo adjunto, al presionar el boton, te selecciona la fecha actual.
Espero que te sirva.




Saludos

Hola, otra alternativa.

Y otra.

Salu2 a to2....to2

Antoni

Gracias a todos por contestar. He estado mirando todos los archivos que me habeis enviado y me interesa especialmente el de Iwolls que pinchando directamente en el botón me va a la fecha actual sin tener que introducir o seleccionar la fecha en una tabla.

Estoy intentando aprender un poquito más de excel pero todavía ando un poco verde. Yo suelo crear un botón normal pero no he utilizado nunca lo de grabar un macro y no se como va. ¿Me podrías explicar un poco eso?

Gracias,
Saludos

grabar macro excel
en google

GALILEOGALI
http://excelgali.mejorforo.net/

Código: Seleccionar todo

Sub BuscarFecha()
on error resume next
Err.clear
Range("A:A").Find(Date, , Lookat:=xlWhole).Select
if Err.Number <> 0 then MsgBox "El día de hoy no esta en la Lista"

End Sub

GALILEOGALI