Ayuda en excel macros

Cerrado
Denunciar
Message postés
1
Date d'inscription
sábado, 8 de marzo de 2014
Estatus
Miembro
Última intervención
sábado, 8 de marzo de 2014
-
Estimados,

necesito ayuda con este codigo,, lo que pasa es que quiero que este codigo de datos definidos, ya que este codigo sale un cuadro para poner nombre edad fecha, etc.
quiero que salga ya los datos definidos en mi hoja de excel.

Muchas Gracioas

Dim Nombre As String
Dim Ciudad As String
Dim Edad As Integer
Dim fecha As Date

WorkSheets("Hoja1").Activate
ActiveSheet.Range("A1").Activate

` Buscar la primera celda vacía de la columna A y convertirla en activa
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1,0).Activate
Loop

Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")

` Mientras la variable Nombre sea diferente a cadena vacía
Do While Nombre <> ""
Ciudad = InputBox("Entre la Ciudad : ", "Ciudad")
Edad = Val(InputBox("Entre la Edad : ", "Edad"))
Fecha=Cdate(InputBox("Entra la Fecha : ", "Fecha"))

With ActiveCell
.Value = Nombre
.Offset(0,1).Value = Ciudad
.Offset(0,2).Value = Edad
.Offset(0,3).value = fecha
End With

ActiveCell.Offset(1,0).Activate
Nombre = InputBox("Entre el Nombre (Return para Terminar) : ", "Nombre")
Loop