Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
URGENT LOOP ?
I have a sheet that is Subtotaled by Receipts #'s I'm trying to delete
Receipts that are less then 5 Please help Sub deleterowtest() Dim rngColB As Range Dim ipointer As Long Dim sSting As String sSting = "Total" 'Change "B" to the column your data in in you are looking to find Set rngColB = ActiveSheet.Range(Cells(1, "B"), Cells(Rows.Count, "B").End(xlUp)) 'Work backwards from bottom to top when deleting rows With rngColB For ipointer = .Rows.Count To 1 Step -1 If Right(.Cells(ipointer).Value, 5) = (sSting) And _ .Cells(ipointer).Offset(0, 1).Value < 5 Then MsgBox .Cells(ipointer).Offset(0, 1).Value '.Cells(ipointer).EntireRow.Delete End If Next ipointer End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
IME MODE FOR EXCEL 2007 (URGENT URGENT) | Excel Discussion (Misc queries) | |||
URGENT- Can't get out of infinite loop | Excel Discussion (Misc queries) | |||
Urgent-Urgent VBA LOOP | Excel Discussion (Misc queries) | |||
Urgent Help needed on! Copy and Paste a Formula as Values using a Loop statement | Excel Programming | |||
Macro help urgent urgent | Excel Programming |