i need quick help plz.

[realman07]

i have made a project by excel with VB programming under excel 2003
now:
how can i let this project work under excel 2007 or higher version???
i found different in number of columns and rows between versions of excel .... did all that i need to update program to calculate new number of columns and rows only,,,example:

in excel 2003 to find last column: code is
cc = Sheet2.Columns(256).End(xlToLeft).Column
also to find last row: code is
lastrow = Sheet1.Rows(65536).End(xlUp).Row

all that codes likely must be changed ,,,, so what else????

thanks

 

[circledchicken]

Hi,

I think instead of hard coding the number of rows/columns it would be better to say:

cc = Sheet2.Columns(Columns.Count).End(xlToLeft).Column
lastrow = Sheet1.Rows(Rows.Count).End(xlUp).Row

 

[hiker95]

realman07,


The following should work for all versions of Excel.


Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Dim cc As Long, lastrow As Long

'in excel 2003 to find last column: code is
'cc = Sheet2.Columns(256).End(xlToLeft).Column
cc = Worksheets("Sheet2").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

'also to find last row: code is
'lastrow = Sheet1.Rows(65536).End(xlUp).Row
lastrow = Worksheets("Sheet1").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

 

[realman07]

thanks alot
i'll try that
but is ther some thing else that i must be changed if i need to operate this project under 2007 or higher versions?????

thanks