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 de Dante Amor
1
¿Quieres cargar más de 10 columnas?
Revisa esta respuesta:
Respuesta de James Bond
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