ELIMINAR FILAS VISIBLES FILTRADAS

A ver si esto te sirve


Sub EliminaCeldasVisibles()
Dim R As Range
' El Offset(1) asegura que los titulos no se eliminen
Set R = ActiveCell.CurrentRegion.Offset(1)
R.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub


Espero tus comentarios

Saludos
Carlos Durán


"Marvin" escribió en el mensaje
news:

QUE TAL GRUPO,

ALGUIEN ME PUEDE AYUDAR PARA SABER CÓMO PUEDO ELIMINAR LAS CELDAS VISIBLES
DESPÚES DE UN FILTRADO, CLARO INTRUCCIÓN PARA UNA MACRO GRCS