FILTRAR CON INPUTBOX

21/10/2007 - 09:36 por poorty | Informe spam
Hola a tod@s:

Tengo un rango A1:I3000 en cuya columna E hay introducidos unos
códigos de cliente

Necesitaria que al pulsar un boton me mostrara los datos "solamente"
de los clientes cuyo codigo de cliente introduzco en un Inputbox

Lo necesito exactamente asi, porque es para uso de muchisimas personas
y la mayoria no sabe utilizar filtros y casi ni excel

Gracias y un saludo

Jose
 

Leer las respuestas

#1 Héctor Miguel
21/10/2007 - 21:38 | Informe spam
hola, jose !

Tengo un rango A1:I3000 en cuya columna E hay introducidos unos codigos de cliente
Necesitaria que al pulsar un boton me mostrara los datos "solamente" de los clientes cuyo codigo de cliente introduzco en un Inputbox
Lo necesito exactamente asi, porque es para uso de muchisimas personas y la mayoria no sabe utilizar filtros y casi ni excel



prueba asignando codigo +/- como el siguiente al boton que vayas a utilizar
(solo procura mantenerlo en un lugar visible donde no se oculte por efectos del autofiltro)

Sub Filtra_codigos()
Dim Codigo As String
Codigo = Trim(InputBox("Entra el codigo a mostrar...", ""))
If Codigo = "" Then MsgBox "Operacion cancelada !!!", , "": Exit Sub
With ActiveSheet
If Application.CountIf(.[e:e], Codigo) Then .[a1].AutoFilter 5, Codigo: Exit Sub
MsgBox "Codigo inexistente !!!", , ""
If .AutoFilterMode Then .AutoFilterMode = False
End With
End Sub

saludos,
hector.

Preguntas similares