Excel VBA Macro: Delete Rows (Based on List of Values)

Excel VBA Macro: Delete Rows (Based on List of Values)

Code:
Sub delete_rows_based_on_list()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim row_count1 As Long
Dim row_count2 As Long
Dim i As Long
Dim j As Long

Set ws1 = ThisWorkbook.Sheets("Stock Screener")
Set ws2 = ThisWorkbook.Sheets("Items to Delete")

ws2.Activate
row_count2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row

ws1.Activate
row_count1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row

For j = 1 To row_count2

i = 2

Do While i ＜= row_count1

If Cells(i, 10) = ws2.Cells(j, 1).Text Then

Rows(i).EntireRow.Delete
i = i - 1
row_count1 = row_count1 - 1

End If

i = i + 1

Loop

Next j

End Sub

#excelmacro #excelvba

[alexrosen]

Your tutorials are really great and super useful 👌I can see a lot of use cases for this specific example in a lot of real world scenarios

[justlooking]

I tried using the code in your tutorial with a data table I am working with and did not work. This is my first attempt at using a macro to automate anything in excel so I am sure I am doing something wrong. I tried running in step and it highlights the Sub line.

The table I am working with has order entries each listing the operations associated with these orders. Several operations in some orders do not have a scheduled start date, which is essential for the project I am doing so I need to delete the rows missing the start date and any operations associated with the order that had a "defective" operation. From your video I got the impression that your script would do this task but I can't make it work.

Any advice?