Como Filtrar datos contenidos en mas de una Fila?

Suponiendo que se cumplen las siguientes condiciones:

1. Tu "base de datos" principia en la celda A1.

2. En tu listado no hay filas o columnas completas en blanco.


Si la primera condición no se cumple, en el código que te paso abajo,
modifica la sigiente línea:
Rango = Range("A1").CurrentRegion.Address
con la dirección de la cenda inicial de tu listado.

La segunda condición es muy importante para que mi propuesta funcione. No
deberás obviarla. Puedes verificarla rápidamente si haces clic en una celda
(no vacía) de tu listado, y pulsas Control - E (si tu Excel está en inglés,
debería ser Control - A).

Y ¡al fin! Aquí te va el código:

Sub FiltrarVendedor()
'Preparando variables
Dim Rango As String, Vendedor As String
Dim Ocultar As Boolean, Fila As Long

'Estableciendo valores iniciales
Rango = Range("A1").CurrentRegion.Address
Vendedor = InputBox("Vendedor")

If Vendedor = "" Then
'Si no se ingresó vendedor, se muestra todo
For Fila = 2 To Range(Rango).Rows.Count
Cells(Fila, 3).EntireRow.Hidden = False
Next Fila
Else
For Fila = 2 To Range(Rango).Rows.Count
'Se determina si el vendedor coincide
If Cells(Fila, 3) = Vendedor Then
Ocultar = True
Else
If Len(Cells(Fila, 3)) > 0 Then
Ocultar = False
End If
End If
'Se oculta o se muestra la fila
If Ocultar Then
Cells(Fila, 3).EntireRow.Hidden = False
Else
Cells(Fila, 3).EntireRow.Hidden = True
End If
Next Fila
End If
End Sub


Observa que cuando no se ingresa el nombre de un vendedor, cuando ejecutes
el código se mostrará nuevamente toda tu información.




"Nikar" escribió:

yo tengo una base de datos en la cual los datos q necesito filtrar estan en 2
filas separadas. Es decir

NombreApellido-Vendedor
Nombre del hijoapellidoetc

y necesitaria filtrar por vendedor esas 2 filas, mi otro problema es q la
gente q tiene mas de 1 hijo tiene mas de 2 filas. Yo algo de idea de VB tengo
pero creo q no es ni cerca suficiente...

Se agradece cualquier ayudita :D