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 de Luis Mondelo
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 Subrecuerda valorar la respuesta
