Como modifico un listbox en excel
Le comento, algo, modifique un poco el código de la listbox,, precisamente para este archivo,, el formulario, se acuerda,,, le mando una foto
Resulta que le añadí otra columna a'l cuadro de lista,
"Próxima visita, " columna 12
Le muestro, pero no me salen los datos.
Respuesta de Dante Amor
2
Te paso el código:
Sub Cargar_Lista() Dim b As Variant, c As Variant Dim i As Long, j As Long, k As Long Dim cmb1 As String, txt1 As String, txt2 As String ' ReDim b(1 To UBound(a, 1), 1 To 6) Lista.Clear '2 programa, 3 tec, 4 mun, 5 nomb, 7 fec, 10 %, 12 prox For i = 1 To UBound(a, 1) If ComboBox1.Value = "" Then cmb1 = a(i, 2) Else cmb1 = ComboBox1.Value If TextBox1.Value = "" Then txt1 = a(i, 3) Else txt1 = TextBox1.Value If TextBox2.Value = "" Then txt2 = a(i, 4) Else txt2 = TextBox2.Value If LCase(a(i, 2)) = LCase(cmb1) And _ LCase(a(i, 3)) Like LCase(txt1) & "*" And _ LCase(a(i, 4)) Like LCase(txt2) & "*" Then j = j + 1 b(j, 1) = a(i, 3) b(j, 2) = a(i, 4) b(j, 3) = a(i, 5) b(j, 4) = a(i, 7) b(j, 5) = a(i, 10) b(j, 6) = a(i, 12) End If Next If j > 0 Then ReDim c(1 To j, 1 To 6) For i = 1 To j For k = 1 To 6 c(i, k) = b(i, k) Next Next Lista.List = c End If End Sub
También debes cambiar la propiedad del Listbox ColumnCount a 6
Y también agregar la longitud en la propiedad del Listbox ColumnWidths a 180 pt;100 pt;220 pt;80 pt;60 pt;80 pt
