Printing Selected Rows and Then Deleting Them

[WoodsyMP5K]

hi. my first post but i can imagine it will be the first of many So hello everyone.

I am trying to look to use a macro to look for data in Col D, print the entire row with said data (e.g. "330") in it and then delete the rows from the workbook but have absolutely no clue where to start.

Would it be best to run two codes for the printing and then the deleting?

Thanks for any help

[jraj1106]

Hi

Try this:

trial.xlsm


Regards...

[WoodsyMP5K]

thanks jraj1106 but i made the mistake of running this without even looking at the code like an idiot (massive rush to stop the job at the printer as you can imagine)

Sub PRINTANDDEL()
Dim rcnt As Long

rcnt = Range("D" & Rows.Count).End(xlUp).Row

For i = 1 To rcnt
If Range("D" & i).Value <> "330" Then
Range("D" & i).PrintOut
Rows(i & ":" & i).Delete
End If
Next
End Sub

Would i have to alter it as above to look for "330". Sorry for being a pain