Anónimo
¿Cómo eliminar filas de valores diferentes de 2 columnas?
Hola deseo saber el código de un macro para eliminar filas donde el valor del campo POR de la columna A es diferente al campo POR de la columna E.
Por ejemplo si el valor de A4 es diferente al de E4 entonces que me elimine la fila 4.
De antemano, Gracias.
Por ejemplo si el valor de A4 es diferente al de E4 entonces que me elimine la fila 4.
De antemano, Gracias.
1 respuesta
Respuesta
1
Te paso el código
Sub eliminarDuplicados()
Dim i As Long, cant As Long
If MsgBox("Se eliminarán las filas coincidentes? Está seguro de continuar", vbYesNo, "Atención") = vbNo Then Exit Sub
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 1) = Cells(i, 5) Then
Cells(i, 1).EntireRow.Delete shift:=xlUp
cant = cant + 1
Else
i = i + 1
End If
Loop
MsgBox "Se eliminaron " & cant & " filas", vbOKOnly, "Información"
End Sub
Sub eliminarDuplicados()
Dim i As Long, cant As Long
If MsgBox("Se eliminarán las filas coincidentes? Está seguro de continuar", vbYesNo, "Atención") = vbNo Then Exit Sub
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 1) = Cells(i, 5) Then
Cells(i, 1).EntireRow.Delete shift:=xlUp
cant = cant + 1
Else
i = i + 1
End If
Loop
MsgBox "Se eliminaron " & cant & " filas", vbOKOnly, "Información"
End Sub