Solicitar a través de un inputBox el ingreso de los registros de la Tabla hasta que el usuario decida no ingresar más registros. Usar estructura While...Wend.
El disparador permite Repetir todas las instrucciones hasta que usuario desea no ingresar más datos, hasta que respuesta sea: No → Disparador toma el valor de 0
y sale del ciclo repetitivo While
Módulo 1:
Sub Registro()
disparador = 1
While disparador = 1
[A1048576].End(xlUp).Activate
Fila = ActiveCell.Row + 1
Nombre = InputBox("Ingrese el nombre:")
País = InputBox("Ingrese el País de origen " & Nombre)
Ciudad = InputBox("Ingrese la Ciudad de procedencia " & Nombre)
Teléfono = InputBox("Ingrese el Teléfono " & Nombre)
Dirección = InputBox("Ingrese la Dirección " & Nombre)
Cells(Fila, 1) = Nombre
Cells(Fila, 2) = País
Cells(Fila, 3) = Ciudad
Cells(Fila, 4) = Teléfono
Cells(Fila, 5) = Dirección
'Decisión sobre ingresar nuevos datos
Mensaje = "Desea ingresar nuevos datos?"
Estilo = vbYesNo + vbQuestion + vbDefaultButton2
Respuesta = MsgBox(Mensaje, Estilo)
If Respuesta = vbYes Then
disparador = 1
Else
disparador = 0
End If
Wend
End Sub
Editado por moderación para insertar etiquetas al código...
Macro se llama: Registro.
Solicitar a través de un inputBox el ingreso de los registros de la Tabla hasta que el usuario decida no ingresar más registros. Usar estructura While...Wend.
El disparador permite Repetir todas las instrucciones hasta que usuario desea no ingresar más datos, hasta que respuesta sea: No → Disparador toma el valor de 0
y sale del ciclo repetitivo While
Módulo 1:
Sub Registro() disparador = 1 While disparador = 1 [A1048576].End(xlUp).Activate Fila = ActiveCell.Row + 1 Nombre = InputBox("Ingrese el nombre:") País = InputBox("Ingrese el País de origen " & Nombre) Ciudad = InputBox("Ingrese la Ciudad de procedencia " & Nombre) Teléfono = InputBox("Ingrese el Teléfono " & Nombre) Dirección = InputBox("Ingrese la Dirección " & Nombre) Cells(Fila, 1) = Nombre Cells(Fila, 2) = País Cells(Fila, 3) = Ciudad Cells(Fila, 4) = Teléfono Cells(Fila, 5) = Dirección 'Decisión sobre ingresar nuevos datos Mensaje = "Desea ingresar nuevos datos?" Estilo = vbYesNo + vbQuestion + vbDefaultButton2 Respuesta = MsgBox(Mensaje, Estilo) If Respuesta = vbYes Then disparador = 1 Else disparador = 0 End If Wend End SubEditado por moderación para insertar etiquetas al código...
Ingresar datos con Do Loop While.rar