Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Combine 3 cell in to one cell

Status
Not open for further replies.

JUALOP60

Technical User
May 29, 2010
16
Hi,

i have this code:


If Range("A" & LRow).Value = LINDEX Then
LFound = True
LCompany = Range("B" & LRow).Value
LAddress = Range("C" & LRow).Value
LCity = Range("D" & LRow).Value
LProvince = Range("E" & LRow).Value
LCode = Range("F" & LRow).Value

Sheets("ChequeReq").Select
Range("B13").Value = LCompany
Range("B14").Value = LAddress
Range("B15").Value = LCity


I want the values of "D","E","F" Cells, which are City, Province and Postal Code on Cell "B15",

Like: Vancouver,BC VZ6 1R7

how can I?

Thank you
 
This should be in Forum707. Post there if you are still having problems.
You can do something like this:

Range("B15").Value = Range("B14").Value + ", " + Range("B15").Value

Note that if there is any possibility of ambiguity you should explicitly state which sheet each range is on - as I have below.

Code:
With Sheets("Source")
    Sheets("ChequeReq").Range("B15").Value = .Range("B14").Value + ", " + .Range("B13").Value 
End With

(Probably better form to replace the + operators with & but either works)

Gavin
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top