JasonLevan
Registered User.
- Local time
- Today, 03:33
- Joined
- Jan 25, 2011
- Messages
- 21
Below is a macro i got from a buddy and it works perfect only i need to add another imput box called item qty the info will record into column b next to what went into column a. and then it will continue on just like before. can anyone help me out
Sub additems()
'
'
Dim NewValue
X = 1
A:
NewValue = InputBox("Enter A Item Number, Enter 3860 If Complete")
If NewValue = "3860" Then GoTo Z:
Range("A" & X).Select
ActiveCell.FormulaR1C1 = NewValue
X = X + 1
GoTo A:
Z:
End Sub
Sub additems()
'
'
Dim NewValue
X = 1
A:
NewValue = InputBox("Enter A Item Number, Enter 3860 If Complete")
If NewValue = "3860" Then GoTo Z:
Range("A" & X).Select
ActiveCell.FormulaR1C1 = NewValue
X = X + 1
GoTo A:
Z:
End Sub