excelClosed

Question

Hello,

i need help in solving a macro issue. i have written a macro to delete rows base on a certain criteria. this is, "week 01", the issue is, when the macro was recorded it delete only for 38 specific row in which i want it to delete all week 01 base on updated data. each week the data is updated, thus, the macro will need to not only delete 38 rows but also any amount of rows that has "week 01". thanks for your help in advance.

Helper · Answer

Thiis code assumes that "week 01" is in column A.
Hope this helps.


Private Sub DeleteWeek01()

Dim intRow
Dim intLastRow
intLastRow = Range("A65536").End(xlUp).Row
Dim Del
Del = "week 01"

For intRow = intLastRow To 1 Step -1

Rows(intRow).Select
If Cells(intRow, 1).Value = Del Then
    Cells(intRow, 1).Select
    Selection.EntireRow.Delete
      
End If

Next intRow

Range("A1").Select

End Sub

Excel

1 response

Similar discussions

Subscribe To Our Newsletter!