Listbox con más de 15 columnas

TodoExpertos, muy buenos días.

Me gustaría me indiquen como poder ampliar la cantidad de columnas en un listbox pues necesito que el mismo tenga 15 para poder asociar las filas a un textbox de un formulario del que depende.

La macro con la que estoy trabajando es

'
'Activar la celda del registro elegido
Private Sub ListBox1_Click()
Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
    If Me.ListBox1.Selected(i) Then
        Valor = Me.ListBox1.List(i)
        Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
    End If
Next i
frmMasinformacion.Show 'activa con un click el formulario con mas información
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox1 = ListBox1.Column(0)
    frmMasinformacion.TextBox2 = ListBox1.Column(1)
    frmMasinformacion.TextBox3 = ListBox1.Column(2)
    frmMasinformacion.TextBox4 = ListBox1.Column(3)
    frmMasinformacion.TextBox5 = ListBox1.Column(4)
    frmMasinformacion.TextBox6 = ListBox1.Column(5)
    frmMasinformacion.TextBox7 = ListBox1.Column(6)
    frmMasinformacion.TextBox8 = ListBox1.Column(7)
    frmMasinformacion.TextBox9 = ListBox1.Column(8)
    frmMasinformacion.TextBox10 = ListBox1.Column(9)
    frmMasinformacion.TextBox11 = ListBox1.Column(10)
    frmMasinformacion.TextBox12 = ListBox1.Column(11)
    frmMasinformacion.TextBox13 = ListBox1.Column(12)
    frmMasinformacion.TextBox14 = ListBox1.Column(13)
    frmMasinformacion.TextBox15 = ListBox1.Column(14)
    frmMasinformacion.TextBox16 = ListBox1.Column(15)
'copia valor de la primer columna
Dim strList As String
'Dim i As Integer
For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then
      If Len(Trim(Me.ListBox1.List(i))) > 0 Then ' blank values excluded here
         strList = strList & Trim(Me.ListBox1.List(i)) & " " & vbNewLine '
      End If
   End If
Next i
Dim MyData As DataObject
Set MyData = New DataObject
MyData. Clear
MyData. SetText Trim(strList)
MyData. PutInClipboard
End Sub

2 respuestas

Respuesta
1

¿Quieres cargar más de 10 columnas?

Revisa esta respuesta:

¿Un listbox puede tener más de 11 columnas? Vba excel

Respuesta
1

Prueba

Private Sub UserForm_Initialize()
con un array
'matriz = Range("c1").CurrentRegion
'With ListBox1
'    .List = matriz
'    .ColumnCount = Range("c1").CurrentRegion.Columns.Count
'End With
con rowsourcee y encabezados
With ListBox1
    .RowSource = Range("c1").CurrentRegion.Columns.Address
    .ColumnCount = Range("c1").CurrentRegion.Columns.Count
    .ColumnHeads = True
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas