Eliminar datos de una hoja si ya existen en otra
Cómo hago una macro que recorra toda la columna D de una hoja y busque el dato de esa columna en otra hoja en la misma columna D si lo encuentra entonces borrar el registro completo de la segunda hoja.
Gracias por la ayuda
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia en la macro "Hoja1" por la hoja que contiene los datos que se van a leer, y cambia "Hoja2" por los nombres de tu segunda hoja.
Sub EliminarDatos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Range("D" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "D") <> "" Then
Set b = h2.Columns("D").Find(h1.Cells(i, "D"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Rows(b.Row).Delete
End If
End If
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
