Hola. Pues eso, quiero agregar nueva opcion a estas 2.
La opcion a agregar es "CIUDAD" ya trate de agregar pero no me dá talla.
Código:
En el evento Private Sub UserForm_initialize() tengo
'Carga el ComboBox llamado FiltrarPor
FiltrarPor.AddItem "CÓDIGO" 'ESTA EN COLUMNA A
FiltrarPor.AddItem "NOMBRE" 'ESTA EN COLUMNA B
Le agrego este mas
FiltrarPor.AddItem "CIUDAD"
quedando asi
FiltrarPor.AddItem "CÓDIGO"
FiltrarPor.AddItem "NOMBRE"
FiltrarPor.AddItem "CIUDAD" 'ESTA EN COLUMNA D
este es codigo involucrado para tal fin
Private Sub buscar_Change() 'TEXTBOX DONDE ESCRIBO LO QUE QUIERO BUSCAR, segun voy escribiendo va apareciendo
Application.ScreenUpdating = False
lista.RowSource = ""
Sheets("Clientes").Range("A:G").Copy Sheets("Filtro").Range("A1")
Sheets("Filtro").Range("A2:G2").Insert Shift:=xlDown
Sheets("Filtro").Range("B2:G2") = ""
Sheets("Filtro").Range("A2") = Buscar
'AQUI PARA LA D
If FiltrarPor.ListIndex = 1 Then 'Buscar por nombre
Sheets("Filtro").Range("A2") = ""
Sheets("Filtro").Range("B2") = Buscar
End If
Sheets("Filtro").Range("A1:G22").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Filtro").Range("A1:G2"), _
CopyToRange:=Sheets("Filtro").Range("H1:N22")
Sheets("Filtro").Rows(2).Delete
fila = Sheets("Filtro").Range("H" & Rows.Count).End(xlUp).Row
If fila > 1 Then lista.RowSource = "Filtro!H2:N" & fila
Application.ScreenUpdating = True
End Sub
LE AGREGUE ARRIBA ESTE PARA LA D
If FiltrarPor.ListIndex = 1 Then 'Buscar por nombre
Sheets("Filtro").Range("A2") = ""
Sheets("Filtro").Range("B2") = ""
Sheets("Filtro").Range("D2") = Buscar
End If Recuerdo que en la hoja donde hará ñla busqueda, los titulos EN LA LINEA 1 son diferentes a CODIGO, NOMBRE Y CIUDAD
Por CÓDIGO o NOMBRE si hace la busqueda bien pero no logro que me la haga por CIUDAD