Macro para generar una tabla
Hola experto, recurro nuevamente a ti... En la siguiente macro, ¿cómo puedo hacer para que los valores capturados aparezcan en la hoja de excel y no unicamente el mensaje indicando que se ha terminado la captura de los datos?
De antemano gracias por tu ayuda, un saludo.
Sub EjercicioPag66()
Dim Tabla2D(2, 3) As Integer
Dim icol As Integer, ilinea As Integer
For icol = 1 To 2
For ilinea = 1 To 3
Tabla2D(icol, ilinea) = InputBox("Tabla[" & icol & ", " & ilinea & "]=")
Next
Next
MsgBox ("el total de los valores ha sido capturado")
End Sub
De antemano gracias por tu ayuda, un saludo.
Sub EjercicioPag66()
Dim Tabla2D(2, 3) As Integer
Dim icol As Integer, ilinea As Integer
For icol = 1 To 2
For ilinea = 1 To 3
Tabla2D(icol, ilinea) = InputBox("Tabla[" & icol & ", " & ilinea & "]=")
Next
Next
MsgBox ("el total de los valores ha sido capturado")
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Luego de la línea de captura agregá la que te pasará ese dato a la hoja:
Tabla2D(icol, ilinea) = InputBox("Tabla[" & icol & ", " & ilinea & "]=")
Cells(icol, ilinea) = Tabla2D(icol, ilinea)
Si necesitas pasarlo a otra hoja lo indicarás de este modo, por ej en Hoja2:
Sheets("Hoja2").Cells(icol, ilinea) = Tabla2D(icol, ilinea)
PD) Te recomiendo mi manual Programación VBA... explicado paso a paso en español
Tabla2D(icol, ilinea) = InputBox("Tabla[" & icol & ", " & ilinea & "]=")
Cells(icol, ilinea) = Tabla2D(icol, ilinea)
Si necesitas pasarlo a otra hoja lo indicarás de este modo, por ej en Hoja2:
Sheets("Hoja2").Cells(icol, ilinea) = Tabla2D(icol, ilinea)
PD) Te recomiendo mi manual Programación VBA... explicado paso a paso en español
