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 !

Mostrar la cita
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