Mensaje al abrir excel que copia en una celda determinada

Quiero que al abrir un documento de excel me salga un mensaje preguntándome una fecha (DD/MM/AA) que copiará automáticamente en la celda A10 de la pestaña RENTAS (hoja 3).

1 respuesta

Respuesta
2

Te paso la macro para conseguirlo:

Sub auto_open()
'por luismondelo
c = 1
Do While c = 1
fecha = InputBox("introduzca fecha por favor")
ubica1 = Mid(fecha, 3, 1)
ubica2 = Mid(fecha, 6, 1)
If ubica1 <> "/" Or ubica2 <> "/" Then
MsgBox "La fecha introducida no es correcta.  Debe estar en el siguiente formato:" & Chr(13) & _
"dd/mm/aaaa"
Else
c = 2
End If
Loop
Sheets("rentas").Range("a10").Value = fecha
End Sub

recuerda valorar la respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas