Delete row under condition

[Jeeremy7]

Hey Guys,

I'm going to start explaining this simple as possible, let me know if I don't make sense !

In my workbook there's sheet "A" and "B"
If the value on the same row for column F and G is the same on sheet "A" and "B" then delete that row in sheet "A"

Thanks !

 

[Marc L]

​

No as columns D:E are not used within the VBA procedure …​

 

[Jeeremy7]

I found the problem.. there was some data in column A that I deleted, I added it back and updated my excel on dropbox
If the fix is too much I could just add a clear column A before running your macro, you already helped a lot let me know

Thanks again !!

 

[Marc L]

Yes 'cause of your worksheet design …​

​

Sub Demo1bb8r()
      Const F = "F7:F#&""¤""&G7:G#"
        Dim V, R&
    With Sheet15
        V = Filter(.Evaluate(Replace("TRANSPOSE(IF(F7:F#>""""," & F & "))", "#", .Cells(.Rows.Count, 6).End(xlUp).Row)), False, False)
    End With
    With Sheet13
        V = Application.Match(.Evaluate(Replace(F, "#", .Cells(.Rows.Count, 6).End(xlUp).Row)), V, 0)
        Application.ScreenUpdating = False
    For R = UBound(V) To 1 Step -1
        If IsNumeric(V(R, 1)) Then .Rows(R + 6).Delete
    Next
        Application.ScreenUpdating = True
    End With
End Sub

 

[Jeeremy7]

There's a small touch up, I'll try to figure out something but the formula works perfectly thanks again for your big help !! ??