Estimados amigos del foro saludos cordiales luego de buscar algo parecido a lo que requiero encontre un ejemplo, al cual he tratado de adaptar y ya casi funciona.

En el archivo de ejemplo que subo no estan todas las hoja para abreviarlo,... pero alli se encuentra una hoja de BD del mes de octubre en la que se acumularan los registros solo de ese mes para cualquier año... luego de una busqueda con los combobox del formulario para reporte se muestra el resultado en el listbox, el mismo que debera mostrarse tambien en la hoja Info_Temas, ..alli es donde surge el problema pues se borra el encabezado del cuadro y ademas la informacion no se ubica en la linea luego del encabezado. 

No obstante algunos combobox  de busqueda funcionan pero otros extrañamente no lo hacen bien pese a que estan codificados iguales como los anteriores.

No encuentro la falla del codigo

Me gustaria que le puedan echar un vistazo y me puedan colaborar con este modo de bisqueda para hacer el reporte.

 

Agradezco anticipadamente vuestra colaboracion

 

BUSQUEDA avanzada BD para hacer INFORME.xlsm

Editado el el 31 de marzo6 años por Visor

A ver @Visor , así para empezar ¿Cómo no quieres que se borre el encabezado si tienes esta línea en el código

ThisWorkbook.Sheets("Info_Temas").Cells.ClearContents

Segundo... esto no lo entiendo para nada. Si declaras "Fila = 1" ¿Cómo quieres que no se coloque en la que le corresponde?

Y a partir de ahí me he perdido, pero creo que con lo que te he dicho tienes suficiente. En cuanto a los combos, no sé a qué te refieres, yo lo veo bien

Gracias Haplox por revisar mi problema planteado

Como lo explique de un ejemplo que mas se parecia a lo que requiero le he avanzado mucho pero alli me pierdo tambie,..

Ahora bien lo que me explicas le he cambiado asi:

Fila = 10
'ThisWorkbook.Sheets("Info_Temas").Cells.ClearContents
Mes.Rows(4).Copy: ThisWorkbook.Sheets("Info_Temas").Rows(11).PasteSpecial Paste:=xlValues


For X = 10 To Filas
   Preparar

a la variable Fila = 10 en lugar de 1 pues esta una fila mas abajo del encabezado (Fila 9) y al siguiente codigo lo he comentado, 

Al otro codigo le he colocado fila 11 en Rows

El resultado es el de la siguiente imagen:

Como verás el listbox no locarga como se debe y en la hoja no doy para que se ubiquen los datos que corresponden.

Ademas si uso dos o mas combobox para la biusqueda, se me queda.

Es decir algo esta demas o le falta pero no lo veo

 

 

 

Hola @Visor

No revisé mucho la planilla pero me parece que es un detalle simplemente.
En el código del botón "Buscar_Click()" puedes intentar las siguientes modificaciones para ver si es lo que necesitas?
Suerte!

Creo que lo has hecho, pero por las dudas...borra o apostrofa la siguiente línea:
'ThisWorkbook.Sheets("Info_Temas").Cells.ClearContents

Modifica la siguiente línea:

'Listbox.RowSource = Range("C2:M" & Fila).Address

por ésta:

Listbox.RowSource = Range("C11:M" & Fila).Address

 

Gracias Tierra_Pampa, Efectivamente mejoro el resultado, ya no se ve el espacio en el listbox.

La fila de codigo que me indicaste que cambie, influye en el encabezado, como veras inicia con la palabra "Laboratorio" pero no se carga con el dato correspondiente. Mientras que en la Hoja sigue lo mismo,..la primera fila A1 se llena de  informacion y luego se salta a partir de la fila 11 que es donde si debe llenarse, pero igualmente no se corresponde el dato con el encabezado.

la fila que me indicaste que cambie con C11 le deje asi:

Listbox.RowSource = Range("A11:M" & Fila).Address 'Encabezados en el listbox

Que lo que hace es mostrar el encabezado del Listbox al pular el boton Buscar

Revisando me di cuenta la funcion del Trim, por eso, eliminé todo lo que tiene que ver con Trim y Like. 

Ahora al buscar con año lo muestra en listbox empezando con el nombre del Laboratorio y el resto que reqiero excepto las horas de entrada y salida

Carga en el LIstbox desde el inicio pero el encabezado no lo carga bien en correspondencia con el contenido

Los otros combobox no funcionan su busqueda

Aplique el cargado vinculado los combobox de manera dependiente tal como un ejemplo resuelto por Antoni, pero en mi caso no se porque no funciona el cargado

Bien en todo caso subio nuevamente el archivo para mostrar estos cambios.

Gracias por las colaboraciones al respecto

BUSQUEDA avanzada BD para hacer INFORME.xlsm

Saludos

Este es otro avance,. igualmente he quitado algunos codigos innecesarios y he colocado otros que mejoran el rsultado, aun no comprendo lo de la busqueda sobre todo seleccionando "and"  o "or" pues la busqueda pretende hacer que se busque caso 1) un criterio solamente uno cualquiera;  2) uno y otro (varios) ; 3) uno u otro (talves or no sea necesario, no lo sé)

En fin el codigo original como lo dijo alguien aqui, da para perderse,..

Subo el archivo en caso de que alguien  este siguiendo el tema, y tenga sugerencias

BUSQUEDA avanzada BD para hacer INFORME V3.xlsm

Saludos amigos del foro

Supongo que las soluciones que se vayan teniendo es util compartirlas

Efectivamente he solucionado en gran medida el tema, sin embargo la solucion no la he logrado como lo habia planteado al inicio.

Lo he cambiado mucho al planteo inicial y para ello he usado la filtración, funciona usando cualquiera de los combobox o de varios a la vez sin tener que usar los operadores And u Or. Usualmente vemos la filtracion usando textbox pero aqui el planteo es usando combobox.

Asi que subo el archivo para que lo vean. 

No obstante, hay una falla que no logro arreglar pues luego de filtrar en la Base de datos es obvio que se debe dejar como estaba inicialmente, es decir, sin filtrar.

para ello he puesto un codigo para quitar filtro pero esto me funciona parcialmente, pues tengo datos hasta la fila 56 y al quitar el filtro, solo se quita hasta la fila 47.

Por favor alguien me podria ayudar a resolver esto??, Agradezco anticipadamente su apoyo

Haga click aquí para Descargar el archivo

Hace 4 minutos , Visor dijo:

No obstante, hay una falla que no logro arreglar pues luego de filtrar en la Base de datos es obvio que se debe dejar como estaba inicialmente, es decir, sin filtrar.

Solo debes poner de nuevo .autofilter

 

Saludos 

Gracias Gerson, he usado ese codigo y otros que tu mismo propones en otros temas, pero no funciona.

'Primer intento
Hoja6.Range("$A$4:$R$60").AutoFilter 'Field:=8
'Segundo intento
'For Each Hoja In Array("OCT")
'    If Sheets(Hoja).AutoFilterMode Then Sheets(Hoja).AutoFilterMode = 0
'Next

 

No he usado una forma de filtración como autofiltro, es otro modo de filtrar supongo que por eso no funciona.

Esto seria todo

Hace 25 minutos , Visor dijo:

Hoja6.Range("$A$4:$R$60").AutoFilter

 

¿Tienes idea de lo que estas haciendo aquí??

Hace 25 minutos , Visor dijo:

'For Each Hoja In Array("OCT") ' If Sheets(Hoja).AutoFilterMode Then Sheets(Hoja).AutoFilterMode = 0 'Next

No necesitas recorrer celdas, ni nada; para desactivar el filtro, después de usarlo

Aun que esto Array("OCT") no se, que es para ti ¿hojas de libro?

 

Saludos 

Hace 26 minutos , Visor dijo:

No he usado una forma de filtración como autofiltro, es otro modo de filtrar supongo que por eso no funciona

¿Cual forma utilizas?

 

Saludos 

Hace 5 minutos , Gerson Pineda dijo:

¿Cual forma utilizas?

Saludos

Al parecer no abres el archivo subido

Hoja6.Range("A4:R" & ultimaFila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False

 

 

Hace 9 minutos , Visor dijo:

Al parecer no abres el archivo subido

Es para evitar la fatiga ?, ¿dime que se siente jaja?

Puedes usar esta linea, para cualquier filtro

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

Saludos 

Pues no funciona,

Mejor espero a que te animes en abrir el archivo,...

Hace 17 minutos , Visor dijo:

Pues no funciona,

Mejor espero a que te animes en abrir el archivo,...

Esa linea debes ponerla, justo después que ya no necesites tener filtrada la tabla

Vamos inténtalo! 

Hace 1 hora, Visor dijo:

No obstante, hay una falla que no logro arreglar pues luego de filtrar en la Base de datos es obvio que se debe dejar como estaba inicialmente, es decir, sin filtrar.

para ello he puesto un codigo para quitar filtro pero esto me funciona parcialmente, pues tengo datos hasta la fila 56 y al quitar el filtro, solo se quita hasta la fila 47.

Ojo borra cualquier linea anterior, donde intentabas quitar el filtro 

 

Saludos

Hace 8 minutos , Gerson Pineda dijo:

Esa linea debes ponerla, justo después que ya no necesites tener filtrada la tabla

Asi mis esta hecho

Private Sub CmdFiltrar_Click()
Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
criterios
Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False
cargaListbox
QuitarFiltro
Application.ScreenUpdating = True
End Sub

mejor animate en abrir el archivo,..

Es por tu bien, no el mio 

Hace 22 minutos , Visor dijo:

mejor animate en abrir el archivo,..

En el procedimiento "QuitarFiltro" ¿haz declarado la hoja, en este caso "hoja6"?

 

Saludos 

Si,..

Sub QuitarFiltro()
Application.ScreenUpdating = False
Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row
LimpiarCbx
criterios
Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False
Rows.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

 

Hace 11 minutos , Visor dijo:

Si,..

Ahí no veo esta linea

Hace 1 hora, Gerson Pineda dijo:

Puedes usar esta linea, para cualquier filtro

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

Ademas esta linea no es necesaria

Hace 12 minutos , Visor dijo:

Rows.EntireRow.Hidden = False

 

Saludos 

Ok Gracias Gerson,  de ese modo no lo intenté, lo use estando la hoja filtrada, voy a quitar manualmente todas las filas ocultas y probaré todo desde el inicio tal como lo indicas.

 

Hace 1 hora, Visor dijo:

Ok Gracias Gerson,  de ese modo no lo intenté, lo use estando la hoja filtrada, voy a quitar manualmente todas las filas ocultas y probaré todo desde el inicio tal como lo indicas.

 

Es que te repito, no veo la línea de codigo que te proporcione, y es sencillo de agregarla, ya con tu nivel de lógica en VBA, debes hacerlo, vamos avanza un poquito mas, seguro la satisfacción será tuya, no mía 

 

Saludos 

Si gracias Gerson, efectivamente asi sí funcionó.

Me gustaría pedirte un último detalle al respecto, pues cuando la hoja esta vacía o el criterio que busco no existe (osea no esta el dato), la macro se me inhibe y debo cerrar el programa oblgadamente. 

Allí me faltaría un código en caso de no exitir datos

Como seria en ese caso?? ya he intentado varias cosas

Editado el el 23 de abril6 años por Visor

¿Hoja vacía? 

La macro quitarfiltro, no tiene que ver, pero revisa las demás macros, que corres antes y después de ésta 

 

Saludos