Delete a row at a time based on user input

[utlavadude]

I hope someone can help me.

I have a spreadsheet that has records that I need to delete based on a scanned value. Long story short, I want to be able to scan a barcode for an MO# (see below), search for the MO in colomn B, have it delete the row that has the MO#, then go back to the prompt ready for the next scan.

Note: The barcode does not have any of the " - RE" at the end of it.

Any and all help is GREATLY appreciated!


Sample Data:

(MO)	MO	SO	Product	Qty	Ship Date	Description
(MO-345559)	MO-345559 - Re	SO-266348	ZLBPBT-MINT, MINT SPF LIP BALM BLACK TUBE	500	2013-12-20	(ZLBPBT-MINT)
(MO-345209)	MO-345209 - Re	SO-266041	ZLBPWT-BERRY, BERRY SPF LIP BALM WHITE TUBE	560	2013-12-20	(ZLBPWT-BERRY)
(MO-345561)	MO-345561 - Re	SO-266368	ZLBPWT-UNFL, UNFLAVORED SPF LIP BALM WHITE TUBE	15000	2013-12-20	(ZLBPWT-UNFL)
(MO-345562)	MO-345562 - Re	SO-266368	ZLBPWT-UNFL, UNFLAVORED SPF LIP BALM WHITE TUBE	15000	2013-12-20	(ZLBPWT-UNFL)

<colgroup><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[utlavadude]

I figured it out on my own. Thanks anyway

Here's what I came up with:

Sub ClearPrinted()
'
' ClearPrinted Macro
'


Start:


Dim MO As String


MO = InputBox("Enter MO to Search for.")


'cancel button clicked, or nothing entered when OK was clicked
If MO = "" Then Exit Sub


lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For x = lastrow To 1 Step -1
If Cells(x, 2) = MO & " - Re" Then
Rows(x).Delete

' Else
' MsgBox "You must enter an MO Number", vbOKOnly + vbExclamation, "Invalid Entry"

End If
Next x

GoSub Start:








End Sub