Como lo mensionaste, le agregue esto y quedo asi
Código:
If FiltrarPor.ListIndex = 2 Then 'Buscar por CIUDAD
Sheets("Filtro").Range("A2") = ""
Sheets("Filtro").Range("B2") = ""
Sheets("Filtro").Range("D2") = Buscar
End If
Mi error era en esta línea If FiltrarPor.ListIndex = 2 Then que la dejaba en 1 y tenia que cambiarla a 2.
Muy agradecido Triby
Pedi cierre y aun me falta algo. Si me puedes orientar que no lo gro en que punto del código meterlo
Esto
Código:
Set f = FiltrarPor 'ComboBox de Filtrar por
If f.value = -1 Then
MsgBox "¿seleccione " & f, vbOKOnly + vbQuestion, "SELECCION"
Exit Sub
End If
Para que si se comienza a escribir en el TextBox Buscar y si no se ha seleccionado nada en FiltrarPor (ComboBox de Filtrar por) que mande este mensaje.
Estuve a tratar en casi todas las posicione spero al tratar de abrir el form, me manda el mensaje del MsgBox y después abre y luego si escribo sin seleccionar por donde firltrar vuelve el mensaje.
En este ultimo punto esta bien pero al abrir el form esta mal