Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
Rewriting a Delete Rows Sub
How would I adj this code to delete everything that is in column H, that is not an "M"? However I need to do this on the activate sheet tab.
Sub Delete_Data()
Set stInp = Sheets("Sheet2")
oriInputCnt = stInp.Cells(stInp.Rows.Count, "H").End(xlUp).Row
If oriInputCnt > 5 Then stInp.Rows("6:" & oriInputCnt).EntireRow.Delete Shift:=xlUp
End Sub
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Hi Rwayneh,
Please try below:
Please try below:
Sub Deletes()
Dim Ws As Worksheet
Dim LR As Long, i As Long
Dim v As Variant
Set Ws = Worksheets("Sheet2")
LR = Ws.Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 6 Step -1
v = Ws.Cells(i, "H").Value
With Ws.Cells(i, "H")
If v <> "M" Then
.EntireRow.Delete
End If
End With
Next i
End Sub
For no points you don't need the v variable.
Sub Deletes()
Dim Ws As Worksheet
Dim LR As Long, i As Long
Set Ws = Worksheets("Sheet2")
LR = Ws.Range("H" & Rows.Count).End(xlUp).Row
For i = LR To 6 Step -1
With Ws.Cells(i, "H")
If .Value <> "M" Then
.EntireRow.Delete
End If
End With
Next i
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial