Duda con autofiltro en VBA

11/12/2007 - 18:28 por Antonio | Informe spam
Hola amigos, estoy realizando un autofiltro por Codigo para lo que hago

With Sheets("INCIDENCIAS")
.Columns("N:N").AutoFilter
.Columns("N:N").AutoFilter Field:=1, Criteria1:=iProvincia (aqui es
donde esta el criterio)
End With

Funciona bien, pero ahora quiero borrar el resultante del autofiltro, es
decir si hay dos filas que las borre , pero no consigo realizarlo mirando la
ayuda he visto Delete Shift:=xlUp pero no me funciona

Un saludo
 

Leer las respuestas

#1 Héctor Miguel
12/12/2007 - 04:38 | Informe spam
hola, Antonio !

... estoy realizando un autofiltro por Codigo para lo que hago
With Sheets("INCIDENCIAS")
.Columns("N:N").AutoFilter
.Columns("N:N").AutoFilter Field:=1, Criteria1:=iProvincia (aqui es donde esta el criterio)
End With
Funciona bien, pero ahora quiero borrar el resultante del autofiltro
es decir si hay dos filas que las borre, pero no consigo realizarlo
mirando la ayuda he visto Delete Shift:=xlUp pero no me funciona..



prueba con algo +/- como lo siguiente (OJO: suponiendo que los datos/titulos inician desde la fila1): -???-

With Worksheets("incidencias")
If AutoFilterMode Then .AutoFilter
.Range("n1").AutoFilter Field:=1, Criteria1:=1
.Range(.Range("n2"), .Range("n65536").End(xlUp)) _
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Range("n1").AutoFilter
End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares