Macro para eliminar filas repetidas en 2 hojas diferentes
Macro para eliminar filas múltiples en 2 hojas diferentes
Hola
Quisiera eliminar filas repetidas en la misma hoja
Este código solo elimina 1
Cells(fCliente, 1).Select
suministro = Cells(fCliente, 1).Value
ActiveCell.EntireRow.Delete
If OptionButton1.Value = True Then
Set b = Hoja20.Columns("A").Find(suministro, lookat:=xlWhole)
If Not b Is Nothing Then
Hoja20.Rows(b.Row).Delete
End If
End If
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código
If OptionButton1.Value = True Then
' Set b = Hoja20.Columns("A").Find(suministro, lookat:=xlWhole)
' If Not b Is Nothing Then
' Hoja20.Rows(b.Row).Delete
' End If
For i = Hoja20.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
If Hoja20.Cells(i, "A") = suministro Then
Hoja20.Rows(i).Delete
End If
Next
End Ifsal u dos
