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
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
Protect yourself and your loved ones. Stay home for the holidays.
CERTIFIED EXPERT
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
CERTIFIED EXPERT
Change
Set Ws = Worksheets("Sheet2")
to
Set Ws = Activesheet
Set Ws = Worksheets("Sheet2")
to
Set Ws = Activesheet