Macro para filtrar con combobx dependientes
-------------------
Para dante
Gracias por tu ayuda
Lo que te solicito es lo siguiente
En el archivo que te envio trabaja con filtros
El primero es un filtro general sin utilizar el combobox2
Elijo un item del combobox1 y luego cargo fecha inicial y luego fecha final y luego el boton FILTRAR me carga a la hoja filen los datos que estan entre las dos fechas. (Sin utilizar el combobox2)
El segundo filtro es con combobox dependiente
El combobox2 carga datos de la columna K
Cada item de la columna A tiene su descripcion en la columna K
El primer filtro funciona bien
Lo que necesito es lo siguiente:
Que se pueda hacer un segundo filtro utilizando tambien el segundo combo
Seria asi:
- Elijo un item del combobox1
- elijo un item del combobox2
- elijo fecha inicial
- elijo fecha final
- presiono boton filtrar
este filtro me dara datos relacionados con el item del combobox2 entre las dos fechas
Ejemplo
En el combobox1 elijo BC/S Santo Tomas
En el combobox2 elijo Medicamentos
fecha inicial 01/01/2017
fecha final 22/06/2017
Deberia darme una lista filtrada de solo Medicamentos entre esas dos fechas
En este caso Medicamentos de de BC/S Santo Tomas solo hay 1 en la lista
Por lo tanto en el filtro debera aparecer solo 1
Son dos tipos de filtros los que deben haber aquí
El primero sin usar el combobox2
Y el segundo usando ambos combobox
En el primer filtro el combobox2 se queda en blanco ya que seria un filtro general que abarca todos los tipos de descripcion de la columna K
En la columna K esta lo siguiente
Medicamentos
Medicamentos de TB
Metodos de Planificacion Familiar
Equipo Quirurgico
Material de Limpieza
Material de Oficina
En el codigo del archivo encontraras un Sub filtro2()
Este es el codigo que abarca a los dos combobox
Pero hay un error aquí
For i = 3 To items
If Hoja12.Cells(i, 11).Value Like Me.ComboBox2.Value _
And CDate(Hoja12.Cells(i, 2).Value) >= CDate(Me.txtFecha1) _
And CDate(Hoja12.Cells(i, 2).Value) <= CDate(Me.txtFecha2) Then
Porque si elijo el ejemplo que doy arriba
En el combobox1 elijo BC/S Santo Tomas
En el combobox2 elijo Medicamentos
fecha inicial 01/01/2017
fecha final 22/06/2017
No me sale el unico dato que hay de esos items de los combobox sino que me salen todos los mediamentos que hay entre esas fechas
