Merging
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 |
Merging
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 |
All times are GMT +1. The time now is 11:01 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com