VBA concatenate the values from two cells and paste into another cell

[gheyman]

How do I concatenate the values that are in C7 and D7 (With a space inbetween) and paste it into C3?

Sub PopoulateProducts()

Dim lr As Long

Sheets("Products").Select

'Clear existing data if any
lr = Sheets("Products").Cells(Rows.Count, "A").End(xlUp).Row
If lr > 2 Then Sheets("Parts").Range("A3:D" & lr).ClearContents

'Paste in DataMart Data
Products.Range("A3").Value = Sheets("Step 1").Range("C7")
Products.Range("B3").Value = Sheets("Step 1").Range("D7")

'Need help here
' Products.Range("C3").Value = ?
 
'End If
 
End Sub

[code/]

Thank you!

 

[Joe4]

Try:

Range("C3").Value = Range("C7").Value & " " & Range("D7").Value

Note that references like this:

Products.Range("A3")...

will not work unless you have defined a worksheet variable named "Products" and set it equal to something.

I recommend you use "Option Explicit" at the top of all your code to make sure you don't use undeclared variables.

 

[gheyman]

I did define my worksheet as "Products"
Thanks for the help. I will use the Option Explicit

Thank you

 

[Joe4]

I did define my worksheet as "Products"

Where did you do that?
Is it a Global Variable and declared elsewhere (because it is not declared in the code that you posted)?

Note that if you have set "Products" equal to the "Products" sheet, then you do not need to use that sheet qualifier in your range reference in this code, as you have already selected the sheet in the first step:

Sheets("Products").Select