LinkBack URL
About LinkBacks
plasma33 
Hi Guys,
I have a code which gives me an error. Its a lengthy code and gives me an error "delete method of range class failed - run time error 1004". Can someone give me an easy alternative to the lengthy code. Thanks in advance.
Code->
Cheers
Dim nLastRow, nLastRow1, nLastRow2, nLastRow3, nLastRow4, nLastRow5, nLastRow6 As Long Sheets("Table").Select ' Find Last Row in Column "C" nLastRow = Cells(Rows.Count, "B").End(xlUp).Row nLastRow1 = Cells(Rows.Count, "D").End(xlUp).Row nLastRow2 = Cells(Rows.Count, "F").End(xlUp).Row nLastRow3 = Cells(Rows.Count, "H").End(xlUp).Row nLastRow4 = Cells(Rows.Count, "J").End(xlUp).Row nLastRow5 = Cells(Rows.Count, "L").End(xlUp).Row nLastRow6 = Cells(Rows.Count, "N").End(xlUp).Row ' Step backwards because of deleting rows For i = nLastRow To 1 Step -1 Select Case Cells(i, "B") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow1 To 1 Step -1 Select Case Cells(i, "D") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow2 To 1 Step -1 Select Case Cells(i, "F") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow3 To 1 Step -1 Select Case Cells(i, "H") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow4 To 1 Step -1 Select Case Cells(i, "J") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow5 To 1 Step -1 Select Case Cells(i, "L") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i For i = nLastRow6 To 1 Step -1 Select Case Cells(i, "N") Case 1 Rows(i).Delete Case 2 Rows(i).Delete Case 3 Rows(i).Delete Case 4 Rows(i).Delete Case 5 Rows(i).Delete Case 6 Rows(i).Delete Case 7 Rows(i).Delete Case 8 Rows(i).Delete Case 9 Rows(i).Delete Case 10 Rows(i).Delete Case 11 Rows(i).Delete Case 12 Rows(i).Delete Case 13 Rows(i).Delete Case 14 Rows(i).Delete Case Else End Select Next i
plasma33
Register To Reply
Bookmarks