macro OK in Excel 2003 but NOT in Excel 2000

A

AncientLearner

I can run to following code in Excel 2003 but when I run it in Excel 2000 I
get an error/debug at the line >> Set rngFrom = <<<

Should I declare different variables because of 2000 version?

****
Sub ADP_ExportExcel()
'transpose horizontal column output (multiCol) into single column
(vertical)
Dim rngFrom As Range
Dim rngTo As Range
Dim rng As Range
With Sheets("sheet1")End With
Set rngTo = Sheets("sheet2").Range("A1")
For Each rng In rngFrom
rngTo.Value = rng.Value
rngTo_Offset(1, 0).Value = rng.Offset(0, 1).Value '2 columns
rngTo_Offset(2, 0).Value = rng.Offset(0, 2).Value '3 columns
rngTo_Offset(3, 0).Value = rng.Offset(0, 3).Value '4 columns
Set rngTo = rngTo_Offset(4, 0) 'number of rows per item
Next rng
End Sub
 
M

Mark Ivey

Give this a try...


LastRowSheet1 = Sheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row

Set rngFrom = Sheets(1).Range("A1:A" & LastRowSheet1)





Mark Ivey
 
P

Peter T

I don't see anything wrong in your code that would fail due to version.

However your code would fail if the activesheet is not a worksheet, eg it's
a chart-sheet or no visible sheet. Just in case, it might be worth the two
changes to the commented line below -

With Sheets("sheet1")
' Set rngFrom = .Range(.Range("A1"), .Cells(Rows.Count, "A").End(xlUp))
Set rngFrom = .Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp))

Regards,
Peter T
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top