Merging

[Steve]

Hello ..

So far I have this

Sub Update_receipt(ByVal name, ByVal Quantity, ByVal Price, ByVal Total)
Sheets("Receipt").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("a6").Select
ActiveCell.FormulaR1C1 = name
Range("b6").Select
ActiveCell.FormulaR1C1 = Quantity
Range("c6").Select
ActiveCell.FormulaR1C1 = "@"
Range("d6").Select
ActiveCell.FormulaR1C1 = Price
Range("e6").Select
ActiveCell.FormulaR1C1 = Total
intCount = intCount + 1
End Sub


Now instead of sending the Quantity to one cell, the '@' symbol to
another cell and the Price to a different cells i want to send them all
to the same cell.

Now i am a total newbie so it will be a simple answer


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 080108-0, 08/01/2008
Tested on: 09/01/2008 14:07:49
avast! - copyright (c) 1988-2008 ALWIL Software.
http://www.avast.com

 

[Jim Cone]

Range("A6").Value = name & Quantity & "@" & Price
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Steve"
wrote in message
Hello ..
So far I have this
Sub Update_receipt(ByVal name, ByVal Quantity, ByVal Price, ByVal Total)
Sheets("Receipt").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("a6").Select
ActiveCell.FormulaR1C1 = name
Range("b6").Select
ActiveCell.FormulaR1C1 = Quantity
Range("c6").Select
ActiveCell.FormulaR1C1 = "@"
Range("d6").Select
ActiveCell.FormulaR1C1 = Price
Range("e6").Select
ActiveCell.FormulaR1C1 = Total
intCount = intCount + 1
End Sub

Now instead of sending the Quantity to one cell, the '@' symbol to
another cell and the Price to a different cells i want to send them all
to the same cell.
Now i am a total newbie so it will be a simple answer