Buscar en un ListBox
Publicado por Marcos José (22 intervenciones) el 14/01/2020 18:03:54
Tengo un listbox que me carga los datos de una tabla, este es el codigo para cargar los datos:
Quisiera saber que código he de usar para que mediante un TextBox que hay en el UserForm, pueda buscar por el CLIENTE, sin necesidad de escribirlo completo, y si deseo eliminar un registro, una vez marcado como hacerlo
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
Sub CargarPresupuestos()
Dim strTabla As String, rngMirango As Range, rngMirango2 As Range, intColumnas As Integer
Hoja8.ActivatestrTabla = "TablaPresupuestos"
On Error Resume Next
'Creamos el nombre a la tabla de la hoja activaActiveWorkbook.Names(strTabla).Delete
Set rngMirango = ActiveSheet.Range("a2").CurrentRegion
Set rngMirango2 = rngMirango.Offset(1, 0).Resize(rngMirango.Rows.Count - 1, rngMirango.Columns.Count)
rngMirango2.Name = strTabla
intColumnas = rngMirango2.Columns.Count
''Formateamos ListBox'With lstPresupuestos
.ColumnCount = intColumnas
.ColumnWidths = "70 pt;80 pt;70 pt;150 pt;60 pt;60 pt;60 pt;80 pt;65 pt;80 pt;100 pt;100 pt;100 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt"
' 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.ColumnHeads = True
End With
lstPresupuestos.RowSource = strTabla
End Sub
Quisiera saber que código he de usar para que mediante un TextBox que hay en el UserForm, pueda buscar por el CLIENTE, sin necesidad de escribirlo completo, y si deseo eliminar un registro, una vez marcado como hacerlo
Valora esta pregunta
0
