eliminar filas cuyos codigos ya existen en otra hoja

[mariloliangeles1992]

Buenos días, trataré de ser lo mas clara y concreta posible: Necesito una macro que me permita eliminar de la Hoja 2 todas las filas cuyos códigos ya existan en la Hoja 1[ATTACH]41559.vB[/ATTACH][ATTACH]41557.vB[/ATTACH] De verdad, muchas gracias.:culpability:

ELIMINAR FILAS.xls

[cecirt84]

Justo ayer estaba buscando algo parecido, yo no le he puesto en práctica, porque no he llegado a ese punto en mi archivo, pero quizá te sira, lo encontré en el siguiente video

Tutorial Excel - Macro de Búsqueda y eliminación de datos - VBA - YouTube

[bigpetroman]

hola mariloliangeles1992, Prueba el archivo anexo

ELIMINAR FILAS_SM.xls

[Armando Montes]

Hola Maria, una forma de hacerlo:

En C2 de la hoja 2 inserta esta formula: =CONTAR.SI(Hoja1!A$2:A$13;A2)

Doble clic para insertar la fomula hasta C6

Filtrar la columna C para mostrar solo la filas con numero >=1

Eliminar las filas

Eliminar el filtro

Puedes hacerlo con la grabadora de macros encendida y obtendras algo asi:

Sub Grabada()

    ActiveCell.FormulaR1C1 = "=COUNTIF(Hoja1!R2C[-2]:R13C[-2],RC[-2])"

    Range("C2").Select

    Selection.AutoFill Destination:=Range("C2:C6")

    Range("C2:C6").Select

    Range("C1").Select

    ActiveCell.FormulaR1C1 = "contar"

    Range("C2").Select

    Selection.AutoFilter

    ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:="1"

    Range("A4:C6").Select

    Selection.ClearContents

    Selection.AutoFilter

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.EntireRow.Delete

    Range("B11").Select

End Sub

Sub Depurada()

    Range("C2:C6").FormulaR1C1 = "=COUNTIF(Hoja1!R2C[-2]:R13C[-2],RC[-2])"

    ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=3, Criteria1:="1"

    Range("A4:C6").Selection.ClearContents

    Selection.AutoFilter

    Range("A1:C6").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    Range("B11").Select

End Sub[/CODE]