Merging

S

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
 
J

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Autosaving 2
Auto insert 2
How do you hide ..... 2
Hidding buttons 3
Command button 2
Locking Cells 1
Spin button 2
VBA time and date? 1

Top