Macro para eliminar filas que en una columna tengan POR valor alojado en una lista.
Necesito hacer una macro que elimine las filas que tengan POR valor en una Columna,
Ejemplo;
2 respuestas
Respuesta de Dante Amor
1
Te anexo la macro
Cambia en estas líneas los nombres de tus hojas
Set h1 = Sheets("Hoja1") 'hoja con todas las casas
Set h2 = Sheets("Hoja2") 'hoja con la lista de no. casa a eliminarla macro te pone en la "hoja2" en la columna "D" un mensaje con el resultado, cambia la letra "D" por otra columna donde quieras el resultado, o borra la línea de la macro si no quieres el resultado.
Sub Eliminar_Casas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1") 'hoja con todas las casas
Set h2 = Sheets("Hoja2") 'hoja con la lista de no. casa a eliminar
'
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Rows(b.Row).Delete
h2.Cells(i, "D") = "Eliminada"
Else
h2.Cells(i, "D") = "No existe"
End If
Next
MsgBox "Fin"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Respuesta de Programar Excel
1
Esto te puede aportar algo más