Delete rows in excel vba code

Sub DeleteRowswithSpecificValue()
For i = Selection.Rows.Count To 1 Step -1
If Cells(i, 2).Value = "Printer" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End Sub

Source: trumpexcel.com

Similar codes

2 votes137 views2 answers
Vba exit loop
VBA
0 vote186 views1 answer
Excel vba cell on change
VBA
0 vote180 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote184 views1 answer
Excel vba calculate
VBA
0 vote184 views2 answers
How to concatenate more than 40 lines in vba
VBA
1 vote187 views1 answer
Random number generator vb.net
VBA
0 vote191 views1 answer
Putting marquee in vb.net
VBA
0 vote179 views1 answer
Excel text to columns line break
VBA
0 vote179 views1 answer
Change whcih control a user has selected vb
VBA
3 votes188 views1 answer
Vba request json
VBA