Macro con imputbox para añadir datos

[Jorgebc]

Saludos

Necesito una macro con inputbox que haga lo siguiente:
Incias la macro y te aparece una inputbox que dice:
"introduce:
fecha de inicio: (cuadro para escribir) ej: 12/8
fecha de vuelta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[eltete]

En el libro que te adjunto hay un pequeño ejemplo.
La macro se activa clicando sobre la elipse que hay dibujada
La macro es:

Sub EscFechas()
Dim F1 As Date
Dim F2 As Date
Dim F As Date


On...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Jorgebc]

Eso era lo que estaba buscando! Pero el problema es que cuando le das una segunda vez, en vez de continuar apreciendo las fechas debajo de las que ya se introdujeron en la primera vez, las borra y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[eltete]

Elimina la línea :
ActiveSheet.Range("A:A").ClearContents

y cambia la línea:
n=1
por
n = Range("a65536").End(xlUp).Offset(1, 0).Row

 

[Jorgebc]

Muchisimas gracias! Tema resuelto