Filtrar base de Datos

-> estoy suponiendo que tienes...
- una hoja llamada 'Resumen'
- [en ella] un rango 'de extraccion'

llamado 'Datos.Cliente' de X_filas × Y_columnas

-> este seria el rango 'preparado' [incluidos

los 'vacios'] para volcar los datos 'encontrados' del
cliente_X <-

- [opcionalmente] una celda [llamada 'Registros']

para 'contar' el numero de 'datos encontrados' del
cliente_X

p.e. usando una formula 'del tipo' de =contar.si

(NombresClientesBD,ClienteSolicitado)

-> estoy usando las 'formas largas' de hacer referencia

hojas/rangos[nombres]/filas/etc.

[para que puedas ejecutar las macros 'desde

cualquier' hoja y 'analizar'
diferentes 'comportamientos'] ;)

-> podrias usar las macros en eventos [para automatizar

las tareas]

[por lo pronto... estoy ejemplificando la forma en

que NO hay celdas vacias 'intermedias'] :-)

si cualquier duda o requieres ayuda [o tienes

informacion] adicional... ¿comentas?

saludos,
hector.
en un modulo de codigo 'normal' ==>>Sub MostrarTodo() ' para mostrar las filas que 'estaban'

ocultas

Worksheets("Resumen").Range

("Datos.Cliente").EntireRow.Hidden = False

End Sub
Sub Barrer_Ocultar() ' en caso de que el rango 'de

extraccion' tenga 'vacios intermedios'

Dim Fila As Integer
Application.ScreenUpdating = False
With Worksheets("Resumen").Range("Datos.Cliente")
For Fila = 1 To .Rows.Count
.Range("a" & Fila).EntireRow.Hidden = (.Range("a"

Fila) = "")

Next
End With
End Sub
Sub MostrarSoloLlenas() ' en caso de que quieras usar

el 'conteo' de datos 'encontrados'

Dim Registros As Integer
MostrarTodo
With Worksheets("Resumen")
Registros = .Range("Registros")
With .Range("Datos.Cliente")
Range(.Range("a" & Registros + 1), .Range("a"

& .Rows.Count)) _

.EntireRow.Hidden = True
End With
End With
End Sub
en el modulo de codigo de 'la hoja' ==>>Private Sub Worksheet_Calculate() ' por si quieres

mantener visibles solo los datos 'encontrados'

MostrarSoloLlenas
End Sub

.

Hector:

Gracias por tu respuesta, todavia tengo dudas

en un modulo de codigo 'normal' < donde

esto

en el modulo de codigo de 'la hoja' < donde

inserto esto

al ejecutar la macro NO HACE LO QUE NECESITO
al parecer trabaja pero no oculta las filas

creo que te ayudaria lo siguiente

la hoja la nombre "Cuentas por Cobrar"
el rango lo nombre como "datos.cliente" <- lo tome de tu
macro

el rango es de a10 hasta i400

el dato que uso como base para ocultar la fila es el
contenido en la columna A, esto es: si el contenido de la
celda A10 es igual a 0 entonces oculta la fila sino

siguiente fila. < y revisa la celda a11 despues la a12
hasta que termine el rango, posiblemente tenga que
modificar el rango de a10..i400 a a10..a400 para que sea
ese el rango donde buscar.
.

-> estoy suponiendo que tienes...
- una hoja llamada 'Resumen'
- [en ella] un rango 'de extraccion'

llamado 'Datos.Cliente' de X_filas × Y_columnas

-> este seria el rango 'preparado' [incluidos

los 'vacios'] para volcar los datos 'encontrados' del
cliente_X <-

- [opcionalmente] una celda [llamada 'Registros']

para 'contar' el numero de 'datos encontrados' del
cliente_X

p.e. usando una formula 'del tipo' de =contar.si

(NombresClientesBD,ClienteSolicitado)

-> estoy usando las 'formas largas' de hacer referencia

a

hojas/rangos[nombres]/filas/etc.

[para que puedas ejecutar las macros 'desde

cualquier' hoja y 'analizar'
diferentes 'comportamientos'] ;)

-> podrias usar las macros en eventos [para automatizar

las tareas]

[por lo pronto... estoy ejemplificando la forma en

que NO hay celdas vacias 'intermedias'] :-)

si cualquier duda o requieres ayuda [o tienes

informacion] adicional... ¿comentas?

saludos,
hector.
en un modulo de codigo 'normal' ==>>>Sub MostrarTodo() ' para mostrar las filas

ocultas

Worksheets("Resumen").Range

("Datos.Cliente").EntireRow.Hidden = False

End Sub
Sub Barrer_Ocultar() ' en caso de que el rango 'de

extraccion' tenga 'vacios intermedios'

Dim Fila As Integer
Application.ScreenUpdating = False
With Worksheets("Resumen").Range("Datos.Cliente")
For Fila = 1 To .Rows.Count
.Range("a" & Fila).EntireRow.Hidden = (.Range("a"

&

Fila) = "")

Next
End With
End Sub
Sub MostrarSoloLlenas() ' en caso de que quieras usar

el 'conteo' de datos 'encontrados'

Dim Registros As Integer
MostrarTodo
With Worksheets("Resumen")
Registros = .Range("Registros")
With .Range("Datos.Cliente")
Range(.Range("a" & Registros + 1), .Range("a"

& .Rows.Count)) _

.EntireRow.Hidden = True
End With
End With
End Sub
en el modulo de codigo de 'la hoja' ==>>>Private Sub Worksheet_Calculate() ' por si quieres

mantener visibles solo los datos 'encontrados'

MostrarSoloLlenas
End Sub

.

Hector:

Gracias por tu respuesta, todavia tengo dudas

en un modulo de codigo 'normal' < donde

inserto

esto

en el modulo de codigo de 'la hoja' < donde

inserto esto

al ejecutar la macro NO HACE LO QUE NECESITO
al parecer trabaja pero no oculta las filas

creo que te ayudaria lo siguiente

la hoja la nombre "Cuentas por Cobrar"
el rango lo nombre como "datos.cliente" <- lo tome de tu
macro

el rango es de a10 hasta i400

el dato que uso como base para ocultar la fila es el
contenido en la columna A, esto es: si el contenido de

celda A10 es igual a 0 entonces oculta la fila sino

revisa

siguiente fila. < y revisa la celda a11 despues la

hasta que termine el rango, posiblemente tenga que
modificar el rango de a10..i400 a a10..a400 para que sea
ese el rango donde buscar.
.

Hector:

lo de contar el registro me parece de mas, (no le
encuentro la utilidad por el momento),
el rango modificado correcto es a10..a400 y lo
llamaria "datos.cliente"

espero te sea de utilidad estos comentarios, te lo
agradezco de antemano.

.