Delete an entire line if row value found.

[hftechno]

Looking for a macro that will delete an entire line if row value found on a separate tab.
Example attached, thanks so much in advance.

[bebo021999]

Try this code

Option Explicit
Sub deleteR()
Dim user As Range, cell As Range, U As Range
With Sheets("range")
    Set user = .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
End With
Sheets("listing").Activate
For Each cell In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    If WorksheetFunction.CountIf(user, cell) Then
        If U Is Nothing Then
            Set U = cell
        Else
            Set U = Union(U, cell)
        End If
    End If
Next
If Not U Is Nothing Then U.EntireRow.Delete
[A1].Select
End Sub 

[jindon]

Good preparation for a simple AdvancedFilter.

Please Login or Register  to view this content.

[alansidman]

An alternative with Power Query

Please Login or Register  to view this content.

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

[Sintek]

Please Login or Register  to view this content.

[jindon]

Again....

Only for the reason to reduce the code lines without adding proper error trap is the worst of all.

[Sintek]

Understood...Am offering for supplied sample file based on availability of said values...Results are correct...
Check your result...Is deleting "support1" too...

[jindon]

Is deleting "support1" too...

Please Login or Register  to view this content.

[Sintek]

without adding proper error trap is the worst of all

Noted...As per jindon...best is to incorporate if no matches found...

Please Login or Register  to view this content.

[jindon]

Not enough.

Your code is based on the assumption of no blank cells in co.B.

And what is the need of "IF(ROW)" close in formula?

[hftechno]

jindon, thanks so very much!!!!
code works perfectly.

[jindon]

You are welcome and thanks for the feedback.

And thanks for the PM.

[daboho]

another ways

Please Login or Register  to view this content.