Jump to content
Sign in to follow this  
Marcos14

ANSWERED TextBox para buscar en un ListBox

Recommended Posts

Tengo un userform, con un TextBox, el cual me serviria para buscar por "NOMBRE", en un ListBox.

El ListBox es de 12 columnas, el código para cargar el ListBox es este.

Private Sub UserForm_Initialize()
Me.Caption = "Buscar y Modificar Clientes - " & Title
CargarClientes
End Sub

 

Sub CargarClientes()
Dim strTabla As String, rngMirango As Range, rngMirango2 As Range, intColumnas As Integer
Sheets("RClientes").Select
strTabla = "TablaClientes"

On Error Resume Next
'Creamos el nombre a la tabla de la hoja activa

ActiveWorkbook.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 lstClientes
    .ColumnCount = intColumnas
    .ColumnWidths = "110 pt;50 pt;250 pt;100 pt;100 pt;200 pt;50 pt;150 pt;150 pt;100 pt;100 pt;100 pt;100 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt;60 pt;0 pt;0 pt;60 pt;85 pt;100 pt;80 pt;80 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
lstClientes.RowSource = strTabla

End Sub

 

Lo que necesitaria seria el codigo que iria en el TextBox, para bucar por nombre

https://mega.nz/#!sw5BFI5C

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png