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 Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

small helpp in coding

Status
Not open for further replies.

naikadit

Technical User
Jun 30, 2008
22
US
I am new bie and I am getting error in ths step just a small thing can you guys please help me out

Set objSheet = objExcel.ActiveWorkbook.Worksheets("RBS Site")
dim i,k ,j, isFloat, toTest, xlup, nmaxrow
xlup=&HFFFFEFBE
nmaxrow=objSheet.range("a65536").end(xlup).row -- to go till end of the row
objExcel.ActiveWorkbook.Worksheets("RBS Site").Range("A1:T(nmaxrow)").Value = objExcel.ActiveWorkbook.Worksheets("RBS Site").Range("A1:T(nmaxrow)").Value ---getting error here
 
getting error here
Which error ?

Anyway, what about this ?
objSheet.Range("A1:T" & nmaxrow).Value = objSheet.Range("A1:T" & nmaxrow).Value

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top