Hello,
I have a macro running but i think some informations are in double so the macro doesn't work..
If somoene could help it would be really nice
Here's the code
Thanks !
I have a macro running but i think some informations are in double so the macro doesn't work..
If somoene could help it would be really nice
Here's the code
VBA Code:
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 1 Step -1
If (Cells(r, "B") Like "") Then
If Rng Is Nothing Then Set Rng = Rows(r) Else Set Rng = Union(Rng, Rows(r))
End If
lr = Cells(Rows.Count, "A").End(xlUp).Row
If Not (Cells(r, 1) Like "##-####") Then
If Rng Is Nothing Then Set Rng = Rows(r) Else Set Rng = Union(Rng, Rows(r))
End If
Next r
If Not Rng Is Nothing Then Rng.Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
Thanks !