Como Ingreso Una Tabla A Un Userform
Soy nuevo en el mundo de lo que visual para excel y quiero hacer una pregunta. Necesito saber como puedo en un userform colocar una tabla así como si fuera una de excel y como lo hago para que esta misma tabla después la pegue en las celdas de excel agradecido estaré me puedan responder
1 respuesta
Respuesta de ghod
4
Lo que debes hacer es agregar un objeto Microsoft Office Spreadsheet (11 en el caso de Excel 2007).
Para cargar el contenido de la hoja de cálculo te escribo este código, a manera de ejemplo.
Option Explicit
Private Sub UserForm_Initialize()
Dim oRange As Range
Dim lRows As Long, lColumns As Long, i As Long, j As Long
Set oRange = Sheets("Datos").Range("A1").CurrentRegion
lRows = oRange.Rows.Count
lColumns = oRange.Columns.Count
For i = 1 To lRows
For j = 1 To lColumns
mSheet.Cells(i, j) = oRange(i, j) 'mSheet es el nombre del objeto Hoja de cálculo
Next
Next
End Sub
Ojalá te sirva.
Para cargar el contenido de la hoja de cálculo te escribo este código, a manera de ejemplo.
Option Explicit
Private Sub UserForm_Initialize()
Dim oRange As Range
Dim lRows As Long, lColumns As Long, i As Long, j As Long
Set oRange = Sheets("Datos").Range("A1").CurrentRegion
lRows = oRange.Rows.Count
lColumns = oRange.Columns.Count
For i = 1 To lRows
For j = 1 To lColumns
mSheet.Cells(i, j) = oRange(i, j) 'mSheet es el nombre del objeto Hoja de cálculo
Next
Next
End Sub
Ojalá te sirva.
Si aún tienes dudas, escríbeme. En caso contrario, pr favor finaliza la pregunta para poder ayudar a otros.
