Display a row if a cell value is greater than zero

Try this method instead, vmerrill:
http://www.officearticles.com/tutori...soft_excel.htm
*******************
~Anne Troy

www.OfficeArticles.com


"vmerrill" <[email protected]> wrote in message
news:[email protected]...
> 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

"vmerrill" <[email protected]> wrote in message
news:[email protected]...
>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!

Try this method instead, vmerrill:
http://www.officearticles.com/tutori...soft_excel.htm
*******************
~Anne Troy

www.OfficeArticles.com


"vmerrill" <[email protected]> wrote in message
news:[email protected]...
> 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

"vmerrill" <[email protected]> wrote in message
news:[email protected]...
>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!

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!

Try this method instead, vmerrill:
http://www.officearticles.com/tutori...soft_excel.htm
*******************
~Anne Troy

www.OfficeArticles.com


"vmerrill" <[email protected]> wrote in message
news:[email protected]...
> 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

"vmerrill" <[email protected]> wrote in message
news:[email protected]...
>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!