consultar filtros

09/10/2008 - 03:34 por herimaro | Informe spam

Hola integrantes de este grupo, les escribo para solicitar ayuda en
este caso:
Tengo una base de datos con campos como documento de identidad,
apellidos, empresa, ventas, recaudo; necesito filtar por un
determinado campo para esto aplique autofiltros; pero necesito que
excel me realice esta misma tarea digitando en una celda fuera de la
base de datos el criterio de busqueda, por ejemplo necesito sacar un
resumen de cada vendedor en donde me aparezca el total de las ventas y
el total de los recaudos para esto yo escribo el numero de documento y
quiero que de inmediato se filtre por ese campo. Gracias

Si tienen a bien el archivo de prueba se encuentra en

http://estudinformatica.googlepages...iltros.xls

Gracias por su ayuda

heriberto

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

09/10/2008 - 06:31 | Informe spam

hola, heriberto !

Tengo una base de datos... necesito filtar por undeterminado campo
... aplique autofiltros; pero necesito... esta misma tarea digitando... fuera de la base de datos el criterio de busqueda ...
... el archivo de prueba se encuentra en
http://estudinformatica.googlepages...iltros.xls

- haz un clic-secundario sobre la etiqueta con el nombre de esa hoja y selecciona "ver codigo..."
- en el modulo que se muestre, copia/pega (o escribe) lo siguiente (sustituye por cualquier cosa que haya en el modulo)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
If IsEmpty([c2]) Then [a7].AutoFilter 2 Else [a7].AutoFilter 2, [c2].Text
End Sub

saludos,
hector.

Responder a este mensaje

#2 herimaro

09/10/2008 - 18:38 | Informe spam

On 8 oct, 23:31, "Héctor Miguel"
wrote:

hola, heriberto !

> Tengo una base de datos... necesito filtar por undeterminado campo
> ... aplique autofiltros; pero necesito... esta misma tarea digitando... fuera de la base de datos el criterio de busqueda ...
> ... el archivo de prueba se encuentra en
>http://estudinformatica.googlepages...iltros.xls

- haz un clic-secundario sobre la etiqueta con el nombre de esa hoja y selecciona "ver codigo..."
- en el modulo que se muestre, copia/pega (o escribe) lo siguiente (sustituye por cualquier cosa que haya en el modulo)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
If IsEmpty([c2]) Then [a7].AutoFilter 2 Else [a7].AutoFilter 2, [c2].Text
End Sub

saludos,
hector.

Hector, nuevamente inmensas gracias por tan acertada, pertinente y
oportuna respuesta; y como decimos en mi país "si no es mucha
molestia" podrias por favor comentarme como hago para arreglar las
cifras de la primera columna ya que requiero quitar todas las comas
por ejemplo 1,110,455,118 quiero que aparezca 1110455118

Gracias Nuevamente

Heriberto

Responder a este mensaje

#3 Héctor Miguel

09/10/2008 - 19:10 | Informe spam

hola, heriberto !

... como decimos en mi país "si no es mucha molestia" podrias por favor comentarme
como hago para arreglar las cifras de la primera columna ya que requiero quitar todas las comas
por ejemplo 1,110,455,118 quiero que aparezca 1110455118

- selecciona (toda ?) esa columna y aplica un formato numerico "general" y quita la alineacion izquierda
- luego puedes (simplemente) buscar y reeplazar (menu edicion): busca "comas" y reemplaza por "nada"/vacio/...

OJO: si vas a trabajar con numeros, es probable que debas modificar en el codigo...
de: -> If IsEmpty([c2]) Then [a7].AutoFilter 2 Else [a7].AutoFilter 2, [c2].Text
a: -> If IsEmpty([c2]) Then [a7].AutoFilter 2 Else [a7].AutoFilter 2, [c2]

saludos,
hector.

__ OP __

Tengo una base de datos... necesito filtar por undeterminado campo
... aplique autofiltros; pero necesito... esta misma tarea digitando... fuera de la base de datos el criterio de busqueda ...
... el archivo de prueba se encuentra en
http://estudinformatica.googlepages...iltros.xls

- haz un clic-secundario sobre la etiqueta con el nombre de esa hoja y selecciona "ver codigo..."
- en el modulo que se muestre, copia/pega (o escribe) lo siguiente (sustituye por cualquier cosa que haya en el modulo)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
If IsEmpty([c2]) Then [a7].AutoFilter 2 Else [a7].AutoFilter 2, [c2].Text
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida