Escribir dentro de Inputbox a celda
Quería hacer que al abrir el archivo excel, a través de un inputbox me pidiera una fecha de realización de obra, lugar de la obra, fecha prevista de finalización, y esos datos cuando le doy a aceptar me los llevara en el libro llamado "datos" en las siguientes celdas:
A1 = fecha para realización obra
F2= lugar de obra
G6 = fecha prevista de obra.
1 Respuesta
Te mando mi solución. Con esta macro lo tienes resuelto:
Sub datos()
fecha1 = InputBox("introduzca fecha realización de obra")
If fecha1 = "" Or Not IsDate(fecha1) Then Exit Sub
lugar = InputBox("lugar de la obra")
If lugar = "" Then Exit Sub
fecha2 = InputBox("fecha prevista de obra")
If fecha2 = "" Or Not IsDate(fecha2) Then Exit Sub
Range("a1").Value = CDate(fecha1)
Range("f2").Value = lugar
Range("g6").Value = CDate(fecha2)
End Subrecuerda finalizar y puntuar
Hola amigo, como hago para que estos datos vayan a una hoja dentro del libro que la he llamado "datos", por que al ejecutar se me van a la "hoja1", y una cosa que se me olvido antes, como hago para que se borren los datos que hay en esas casillas antes de introducir los nuevos datos en estas casillas que te he indicado.
gracias.-
Entonces la macro es así. Ahora te pondrá los datos en la hoja DATOS encima de los que había, por lo que los está borrando.
[size= 14px; line-height: 21px; white-space: normal]Sub datos()
fecha1 = InputBox("introduzca fecha realización de obra")
If fecha1 = "" Or Not IsDate(fecha1) Then Exit Sub
lugar = InputBox("lugar de la obra")
If lugar = "" Then Exit Sub
fecha2 = InputBox("fecha prevista de obra")
If fecha2 = "" Or Not IsDate(fecha2) Then Exit Sub
sheets("datos").Range("a1").Value = CDate(fecha1)
sheets("datos").Range("f2").Value = lugar
sheets("datos").Range("g6").Value = CDate(fecha2)
End Sub[/size]recuerda finalizar y puntuar
