Application/Object error in code

[L. Howard Kittle]

Hello Excel users and Experts,
Excel 2002

This bit of code is giving me app/obj error. If the activecell is G18
(which will change often) I want to return the values from:

Column D and the active row
Active column and row 12

Sub ReturnName_Date()
Dim j As Integer
Dim i As Integer

'Activecell is G18
'Want values from D18 and G12

j = ActiveCell.Column ' G
i = ActiveCell.Row '18

Range("F1").Value = Range("D:" & i).Value & Range(j & ":12").Value

End Sub

Thanks,
Howard

 

[mark.driscol]

The Range("D:" & i).Value should be Range("D" & i).Value.

You might try

Range("F1").Value = Cells(i,"D").Value & Cells(12,"G").Value


Mark

 

[mark.driscol]

Sorry, I should have said

Range("F1").Value = Cells(i,4).Value & Cells(12,j).Value


Mark

 

[L. Howard Kittle]

Thanks, Mark. Does the job.

Thanks again
Regards,
Howard

 

[Bob Phillips]

Range("F1").Value = Range("D" & i).Value & Range(j & "12").Value


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

 

[L. Howard Kittle]

Thanks, Bob. Appreciate it.

Howard