Display a row if a cell value is greater than zero

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I work for a small laundry equipment distributor. I would like to have a
sales order that is "automated" on the following basis (or a more elegant
way):

To create a sales order, open the blank sales order workbook. Go to the data
input sheet. This sheet would be a list of all equipment we sell with a row
dedicated to each equipment item. The first cell of that row would be a blank
cell that will contain the number of items to be ordered. The second cell of
that row would be the manufacturer of that item.The third cell of that row
would be the model number of that item. The fourth cell of that row would be
a description of the item. If you enter a number in the first cell that
denotes the number of items to be ordered, then that row will appear in a
second sheet that is the actual sales order.

Can any one help me with this please!
 
Hi Vmerril,

Try something like this change event macro.
Assumes the quanity will be entered in column A and there is a worksheet
named Order Sheet.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub

If MsgBox(prompt:=" Post to Order Sheet?", _
Buttons:=vbYesNo, _
Title:="Poster") = vbYes Then
Target.Resize(1, 4).Copy _
Sheets("Order Sheet").Range("A100") _
.End(xlUp).Offset(1, 0)

ElseIf vbNo Then
Exit Sub

End If
End Sub

HTH
Regards,
Howard
 
Back
Top