Delete row base on other sheet

[cuetipper]

For each cell in workbook1 colum "A" i would like to compare that against a list stored in workbook2 and if it is found delete the entire row from workbook 1.
Additionally for the #'s in workbook2 if they do not exist in workbook1 delete that cell from workbook2. Also workbook2 would notrmally be closed when the macro from workbook1 is a activated. Can this be done? I have not the experience yet to do so alone. All support would be appreciated.

 

[cuetipper]

Also would it be possible to clean the list in excwos before deleteing the rows in open vendor jobs?

 

[cuetipper]

Actually I just found out that the parameters I was instructed to use will not work.
Can you please trim the macro for me. I do not need to clean the EXCWOS sheet.
So I only need the first half of the macro.
Thanks.

 

[mumps]

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim srcWB As Workbook, srcWS As Worksheet, desWS As Worksheet, LastRow As Long, x As Long
    Set desWS = ThisWorkbook.Sheets("Open Vendor Jobs")
    LastRow = desWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim Rng As Range, RngList As Object
    Set RngList = CreateObject("Scripting.Dictionary")
    Set srcWB = Workbooks.Open("C:\Users\edward.selkov\Working\ExcludedWo's.xlsm")
    Set srcWS = Sheets("EXCWOS")
    For Each Rng In srcWS.Range("A2", srcWS.Range("A" & srcWS.Rows.Count).End(xlUp))
        If Not RngList.Exists(Rng.Value) Then
            RngList.Add Rng.Value, Nothing
        End If
    Next Rng
    For x = LastRow To 2 Step -1
        If RngList.Exists(desWS.Cells(x, 1).Value) Then
            desWS.Rows(x).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

 

[cuetipper]

Awesome. thank you.
One last thing... How can I save and close this workbook without prompts?

 

[mumps]

Add these lines of code:

 Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = True

below:

 Next x

Please note that this will over-write any existing copy without any warning.

 

[cuetipper]

I tried that but it did not work. the active workbook returns the personal.xls. How can I specift that workbook?

 

[mumps]

Which workbook contains the macro?

 

[cuetipper]

The personal Macro Book

 

[mumps]

Try using the full workbook name like this:

Workbooks("[COLOR="#FF0000"]workbookName.xlsx[/COLOR]").Save

 

[cuetipper]

tks