Ingreso de Datos

Código Macro

'Este código es para el ingreso de datos en una caja de texto y lo ubica en celdas especificas...

'En este array ingresaremos el nombre de 5 personas y sus respectivas edades.
'Para este caso este array es de tamaño 5x2, 5 filas ya que serán 5 los nombres de personas que ingresaremos y dos columnas una para Nombres y otra para edades
Sub Ingreso_Datos()
Dim datospersonas(1 To 5, 1 To 2) As Variant
For k = 1 To 5
For i = 1 To 2
If i = 1 Then
mensaje = InputBox("Ingresa el nombre de una persona", "Nombre de Personas", "Escribe el nombre de una persona")
Else
mensaje = InputBox("Ingresa la edad de la persona antes indicada", "Edad de Personas", "Escribe la edad de la persona")
End If
datospersonas(k, i) = mensaje
Cells(k, i).Value = datospersonas(k, i)
Next i
Next k
End Sub
 

Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".

Y en el módulo pegar el código completo del macro, para luego poder usarlo.

Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.

Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.

Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...