Macro para agregar mas de 10 columnas en listbox
--------------
Buen dia
------
Como hago para agregar mas de 10 columnas en listb0x
'Para cargar más de 10 columnas
'.List = sh.Range("A1:J1").Value
------------------
Private Sub Entradas()
Dim i As Long, j As Long
With ListBox1
.Clear
For i = 3 To sh.Range("A" & Rows.Count).End(3).Row
If LCase(sh.Range("A" & i).Value) Like "*" & LCase(Me.txt_Buscar.Value) & "*" Then
.AddItem sh.Range("A" & i).Value
For j = 1 To 8
.List(.ListCount - 1, j) = sh.Cells(i, j + 1)
Next
.List(.ListCount - 1, 9) = i 'guardamos el número de fila en la columna 9
End If
Next
End With
End Suben este codigo
2 respuestas
Respuesta de Adriel Ortiz Mangia
1
[Hola
preparé la macro para 16 columnas ya usted lo ajustas a tu necesidad
Private Sub Entradas()
Set sh = Sheets("Hoja1") ' nombre de hoja
Dim i As Long, j As Long
With ListBox1
.ColumnCount = 16 ' cant. de columnas
.List = Range("A1:P1").Value ' define las columnas que vas a mostrar en el listbox
.Clear
For i = 3 To sh.Range("A" & Rows.Count).End(3).Row
If LCase(sh.Range("A" & i).Value) Like "*" & LCase(Me.txt_Buscar.Value) & "*" Then
.AddItem sh.Range("A" & i).Value
For j = 1 To 15
.List(.ListCount - 1, j) = sh.Cells(i, j + 1)
Next
.List(.ListCount - 1, 15) = i 'guardamos el número de fila
End If
Next
End With
End Sub
me da error
se ha producido el error 380 en tiempo de ejecucion:
no se puede configurar la propiedad list. valor de propiedad no valido
en esta linea
.list(.ListCount - 1, j) = sh.Cells(i, j + 1)
Yo solo puse un ejemplo, para ajustar la macro pon todo tu código de tu formulario aquí