Eliminar datos filtrados

Respuesta de
a
Usuario
Espero me puedan ayudar... de una base de datos, necesito filtrar el contenido de una columna para después eliminar todas las filas, es decir, al realizar un filtro en una columna, necesito eliminar todo lo que contengan las filas resultantes del filtro.
Gracias.
 
Experto
Hola:
Si ocupas autofiltro, puedes grabar una macro, hacerle las modificaciones pertinentes y luego ejecutarla.
Ej:
Esta macro filtra todos los 7 de la primera fila y luego elimina las filas.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 22/08/2009
'
'
    strCriterio = "7"
    Selection.AutoFilter Field:=1, Criteria1:=strCriterio
    filaIni = ActiveSheet.UsedRange.Row + 1
    filaFin = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
    strRango = CStr(filaIni) + ":" + CStr(filaFin)
    Rows(strRango).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter Field:=1
    Cells(1, 1).Activate 'Dejar marcada la celda A1
End Sub

'Espero que te oriente en algo...
Saludos
Usuario
Es lo que necesito... lo estoy adactando a mi necesidad. Muchas gracias.