Edit Macro to Hide not Delete

[Alex O]

Can my macro below be edited to hide the target rows insted of deleting them?

Thanks

Sub DeleteUnwantedRows()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "M").End(xlUp).Row
For i = iLastRow To 11 Step -1

If Cells(i, "M").Value <> "117" _
And Cells(i, "M").Value <> "119" _
And Cells(i, "M").Value <> "120" _
And Cells(i, "M").Value <> "121" _
And Cells(i, "M").Value <> "122" _
Then
Rows(i).EntireRow.Delete
End If
Next i

End Sub

 

[VoG]

Try

Sub DeleteUnwantedRows()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "M").End(xlUp).Row
For i = iLastRow To 11 Step -1

If Cells(i, "M").Value <> "117" _
And Cells(i, "M").Value <> "119" _
And Cells(i, "M").Value <> "120" _
And Cells(i, "M").Value <> "121" _
And Cells(i, "M").Value <> "122" _
Then
Rows(i).Hidden = True
End If
Next i

End Sub

 

[Trevor G]

Can my macro below be edited to hide the target rows insted of deleting them?

Thanks

Sub DeleteUnwantedRows()
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, "M").End(xlUp).Row
For i = iLastRow To 11 Step -1

If Cells(i, "M").Value <> "117" _
And Cells(i, "M").Value <> "119" _
And Cells(i, "M").Value <> "120" _
And Cells(i, "M").Value <> "121" _
And Cells(i, "M").Value <> "122" _
Then
Rows(i).EntireRow.Delete
End If
Next i

End Sub

Try this

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> DeleteUnwantedRows()<br><SPAN style="color:#00007F">Dim</SPAN> iLastRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>iLastRow = Cells(Rows.Count, "M").End(xlUp).Row<br><SPAN style="color:#00007F">For</SPAN> i = iLastRow <SPAN style="color:#00007F">To</SPAN> 11 <SPAN style="color:#00007F">Step</SPAN> -1<br><br><SPAN style="color:#00007F">If</SPAN> Cells(i, "M").Value <> "117" _<br>And Cells(i, "M").Value <> "119" _<br>And Cells(i, "M").Value <> "120" _<br>And Cells(i, "M").Value <> "121" _<br>And Cells(i, "M").Value <> "122" _<br>Then<br>Rows(i).EntireRow.Hidden = <SPAN style="color:#00007F">True</SPAN><br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">Next</SPAN> i<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Alex O]

As always, the assistance is appreciated! Problem solved