LISTBOX CON MAS DE 10 COLUMNAS METODO ADDITEM
Publicado por OMAR (1 intervención) el 03/12/2019 05:57:08
HOLA QUE TAL , TENGO UN PROBLEMA PARA VISUALIZAR MAS DE 10 COLUMNAS POR EL METODO ADDITEM QUIERO GENERAR UNA LISTBOX Y BUSQUEDA EN LA MISMA LES DEJO EL CODIO PARA QUE LO REVISEN GRACIAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub TELEFONO_Change()
numerodedatos = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
Me.lista = Clear
Me.lista.RowSource = Clear
Y = 0For fila = 3 To numerodedatosdescripcion = Hoja1.Cells(fila, 4).Value
If descripcion Like "*" & Me.TELEFONO.Value & "*" Then
Me.lista.AddItem
Me.lista.List(Y, 0) = Hoja1.Cells(fila, 1).Value
Me.lista.List(Y, 1) = Hoja1.Cells(fila, 2).Value
Me.lista.List(Y, 2) = Hoja1.Cells(fila, 3).Value
Me.lista.List(Y, 3) = Hoja1.Cells(fila, 4).Value
Me.lista.List(Y, 4) = Hoja1.Cells(fila, 5).Value
Me.lista.List(Y, 5) = Hoja1.Cells(fila, 6).Value
Me.lista.List(Y, 6) = Hoja1.Cells(fila, 7).Value
Me.lista.List(Y, 7) = Hoja1.Cells(fila, 8).Value
Me.lista.List(Y, 8) = Hoja1.Cells(fila, 9).Value
Me.lista.List(Y, 9) = Hoja1.Cells(fila, 10).Value
Me.lista.List(Y, 10) = Hoja1.Cells(fila, 11).Value
Y = Y + 1
End If
Next
End Sub
Private Sub UserForm_activate()
Me.lista.RowSource = ("clientas")
Me.lista.ColumnCount = 49
End Sub
Valora esta pregunta
0
