Fallo con Filtro en macro

... debo eliminar las filas que en la columna C tengan la palabra FAC (SI EXISTE) y me lo hace bien este macro
EXCEPTO CUANDO SOLO HAY UNA FILA CON ESA CONDICION...Me podeis ayudar para que lo haga bien...

hola, !

> ... debo eliminar las filas que en la columna C tengan la palabra FAC (SI EXISTE) y me lo hace bien este macro
> EXCEPTO CUANDO SOLO HAY UNA FILA CON ESA CONDICION...Me podeis ayudar para que lo haga bien...

cuando solo existe una fila con esa condicion, es la fila 1 ? (o sea...)

=> "que" es lo que queda en la fila 1 ? (titulos ?... o datos ?)
     luego de eliminar inicialmente las filas 1 y 2, y comenzar a "trabajar" a partir de [C2]...

saludos,
hector.

__ el codigo expuesto __
Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Range("A:A,C:C,D:D,F:F,H:H").Select
    Range("H1").Activate
    Selection.Delete Shift:=xlToLeft
    With Range("C2").CurrentRegion
    .Select
    numfilas = .Rows.Count
    End With
    If Application.WorksheetFunction.CountIf(Range("c:c"), "FAC") Then
    Selection.AutoFilter Field:=3, Criteria1:="FAC"
    Range("A2:" & "A" & numfilas).EntireRow.Delete Shift:=xlUp
    Selection.AutoFilter
End If
    Range("C2").Select
End Sub

On 11 feb, 06:00, "Héctor Miguel"
wrote:





> hola, !

> > ... debo eliminar las filas que en la columna C tengan la palabra FAC (SI EXISTE) y me lo hace bien este macro
> > EXCEPTO CUANDO SOLO HAY UNA FILA CON ESA CONDICION...Me podeis ayudar para que lo haga bien...

> cuando solo existe una fila con esa condicion, es la fila 1 ? (o sea...)

> => "que" es lo que queda en la fila 1 ? (titulos ?... o datos ?)
>      luego de eliminar inicialmente las filas 1 y 2, y comenzar a "trabajar" a partir de [C2]...

> saludos,
> hector.

> __ el codigo expuesto __
> Rows("1:2").Select
>     Selection.Delete Shift:=xlUp
>     Range("A:A,C:C,D:D,F:F,H:H").Select
>     Range("H1").Activate
>     Selection.Delete Shift:=xlToLeft
>     With Range("C2").CurrentRegion
>     .Select
>     numfilas = .Rows.Count
>     End With
>     If Application.WorksheetFunction.CountIf(Range("c:c"), "FAC") Then
>     Selection.AutoFilter Field:=3, Criteria1:="FAC"
>     Range("A2:" & "A" & numfilas).EntireRow.Delete Shift:=xlUp
>     Selection.AutoFilter
> End If
>     Range("C2").Select
> End Sub

Hola Hector...

En la fila 1 están los títulos de las columnas, en la fila 2 empiezan
los datos que filtro. En esa fila (y en la columna C (C1, C2, C3. etc)
hay varios tipos de datos, que pueden ser, FAC, CRE, PEN, etc. La
macro pretende filtrar los FAC para eliminarlo toda las filas que
contengan ese dato. Lo hace bien, excepto cuando hay una sola fila con
el dato FAC, en ese caso no elimina esta fila...

Saludos- Ocultar texto de la cita -

- Mostrar texto de la cita -

En la fila 1 està¡n los tà­tulos de las columnas, en la fila 2 empiezan los datos que filtro.
En esa fila (y en la columna C (C1, C2, C3. etc) hay varios tipos de datos, que pueden ser, FAC, CRE, PEN, etc.
La macro pretende filtrar los FAC para eliminarlo toda las filas que contengan ese dato.
Lo hace bien, excepto cuando hay una sola fila con el dato FAC, en ese caso no elimina esta fila...

...le llevo dando vueltas y no doy con la tecla. El problema es que genero una hoja con filtros y liuego intento ordenarla de esta forma...

Sub Ordenar()
[a2].Sort Key1:=[c2], Key2:=[d2], Key3:=[a2], Order1:=xlAscending, Header:=xlYes
End Sub

...pero no respeta los encabezados y me los pone enmedio...no se si se verà¡ aqui bien

hola, !

bueno... la tabla de datos NO "paso" como (supongo) esperabas que se viera :-((
en via de mientras, confirma/corrige si...
- la tabla a la que aplicas ordenaciones y autofiltros lleva tambien sub-totales ?
- los datos que contiene son datos constantes ?... o formulas ?

(hasta donde se) subtotales y autofiltros no se llevan bien, y si le agregas formulas... (???)

saludos,
hector.

__ OP __

>> En la fila 1 están los títulos de las columnas, en la fila 2 empiezan los datos que filtro.
>> En esa fila (y en la columna C (C1, C2, C3. etc) hay varios tipos de datos, que pueden ser, FAC, CRE, PEN, etc.
>> La macro pretende filtrar los FAC para eliminarlo toda las filas que contengan ese dato.
>> Lo hace bien, excepto cuando hay una sola fila con el dato FAC, en ese caso no elimina esta fila...
> ...le llevo dando vueltas y no doy con la tecla. El problema es que genero una hoja con filtros y liuego intento ordenarla de esta forma...

> Sub Ordenar()
>   [a2].Sort Key1:=[c2], Key2:=[d2], Key3:=[a2], Order1:=xlAscending, Header:=xlYes
> End Sub

> ...pero no respeta los encabezados y me los pone enmedio...no se si se verá aqui bien

469046 5995303 CRE ene-10 0 28,89 1,916 Importe
468452 PED ene-10 117,8 132,8 5,719 45,752
469709 5984302 PRE ene-10 8,465 64,28 6,8 54,4
Total ene-10 126,265 197,08 12,519 100,152
Medici TLC/Actuaci Estado Fecha Trabajos Puntos Obra Civil P. Instal
Milip #¡VALOR!