Filtrar filas, copiar y borrar contenido

[vecodis]

Buenas tardes,

Tengo la duda, de si existe una macro que filtre filas que cumplan un criterio, las copie en otra hoja, borre el contenido de las celdas, pero que no elimine las filas.

[JM123]

Hola

Puede que con un filtro avanzado, pero sin un ejemplo sera dificil ayudarte

Saludos

[vecodis]

Adjunto te envío un ejemplo.

Cuando lo abras verás lo que quiero que haga.

Gracias

prueba.xls

[Giova123]

Hola , Inserta este codigo en el Modulo

Private Sub Filtro()


    Worksheets("NOVIEMBRE").Range("A13").CurrentRegion.AutoFilter Field:=1, Criteria1:="BAJA"

    Worksheets("NOVIEMBRE").Range("A13").CurrentRegion.Copy

    Worksheets("DEUDORES").Range("A1").PasteSpecial xlPasteAll

    Range("A13").Select

    Range(Selection, Selection.End(xlDown)).Offset(1, 0).EntireRow.Select

    Selection.SpecialCells(xlCellTypeVisible).Select

    Application.CutCopyMode = False

    Selection.ClearContents

    Worksheets("NOVIEMBRE").ShowAllData

    Range("A13").Select


End Sub[/CODE]

Me cuentas como te va .

[vecodis]

Tema Solucionado.

Funciona perfectamente

Muchas gracias.