jeffreybrown
Well-known Member
- Joined
- Jul 28, 2004
- Messages
- 5,152
The first part of the code I have working fine.
All of the row containing the value "Blank" in column "B" get deleted, but now I need all rows on Sheet3 with an offset of 3 to get deleted also.
On Sheet2 the values start at row 5, but on Sheet3 row 8.
All of the row containing the value "Blank" in column "B" get deleted, but now I need all rows on Sheet3 with an offset of 3 to get deleted also.
On Sheet2 the values start at row 5, but on Sheet3 row 8.
Code:
Sub delblank()
Dim LR As Long, i As Long
LR = Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 5 Step -1
With Sheets("Sheet2").Range("B" & i)
If Range("B" & i).Value = "Blank" Then Rows(i).Delete
End With
' With Sheets("Sheet3")
' .Rows(i - 3).Delete
' End With
Next i
End Sub