filtrar de celdas vacias

[reque]

ola a todos espero puedan ayudarme... e realizado un formulario para consultar mi inventario con diferentes criterio mediante combobox, y me funciona perfectamente.... lo q quiero q me ayuden es en el combo de fecha... quiero filtrar las vacias... me explico en la columna de fecha tengo celdas q estan con una fecha determinada y tambien hay celdas q estan vacias... ojo las hojas estan totalmente ocultas....

saludos

INVENTARIO DE PIERRE DUCASSE-ULTIMO.part1.rar

INVENTARIO DE PIERRE DUCASSE-ULTIMO.part2.rar

INVENTARIO DE PIERRE DUCASSE-ULTIMO.part3.rar

INVENTARIO DE PIERRE DUCASSE-ULTIMO.part4.rar

[Antoni]

Hola:

No soy experto en filtros avanzados, pero si en soluciones de emergencia, cambia esta parte del botón de búsqueda:

    [COLOR=#008000]'Efectua el filtro avanzado

[/COLOR] 

       .Range("A1:I" & i).AdvancedFilter Action:=xlFilterCopy, _

            CriteriaRange:=.Range("M1:O2"), _

            copytorange:=Sheets("hoja7").Range("A1"), Unique:=False

        End With


[COLOR=#0000cd][B]        If Trim(Me.ComboBox4.Value) = "" Then[/B][/COLOR]

[COLOR=#0000cd][B]           For x = 2 To Hoja7.Range("A" & Rows.Count).End(xlUp).Row[/B][/COLOR]

[COLOR=#0000cd][B]              If Not Hoja7.Range("F" & x) = "" Then[/B][/COLOR]

[COLOR=#0000cd][B]                 If Rango Is Nothing = True Then[/B][/COLOR]

[COLOR=#0000cd][B]                    Set Rango = Hoja7.Rows(x)[/B][/COLOR]

[COLOR=#0000cd][B]                 Else[/B][/COLOR]

[COLOR=#0000cd][B]                    Set Rango = Application.Union(Rango, Hoja7.Rows(x))[/B][/COLOR]

[COLOR=#0000cd][B]                 End If[/B][/COLOR]

[COLOR=#0000cd][B]              End If[/B][/COLOR]

[COLOR=#0000cd][B]           Next[/B][/COLOR]

[COLOR=#0000cd][B]           Rango.Delete[/B][/COLOR]

[COLOR=#0000cd][B]        End If[/B][/COLOR]


        ListBox1.RowSource = "hoja7!A2:I" & i



[/CODE]

[reque]

ola antonio el codigo funciona pero cuando quiero filtrar con otro criterio me sale error en esta linea del codigo q me as proporcionado..

Set Rango = Application.Union(Rango, Hoja7.Rows(x))

otra cosa el codigo me filtra todas las vacias... yo queria primero q me muestre todo y luego colocar el el combo fecha "vacias" me filtre las q estan vacias....

[Antoni]

Te cuento:

He sustituido el último elemento del Combobox4, que estaba en blanco, por "Sin fecha" y he vuelto a modificar el evento click del control CommandButton1.

Ahora debería funcionar como quieres.

Descarga el archivo modificado desde este enlace:

https://dl.dropboxusercontent.com/u/241435/INVENTARIO%20DE%20PIERRE%20DUCASSE-ULTIMO%20MA%20I.xlsm