Replace Rows("2:48").Select to Rows(Range)

[FJSeminario]

I want to be able to select a range of rows to sort, but I don't know the
number of rows in the Sheet, so I find out programmatically first and then
move to the Range object Frm_sortRange01
I am getting a type mistmatch where it is indicated by the Comment
on the right of the statement


Option Explicit
Option Base 1

Dim GeoCodeTableStartRow As Integer
Dim Frm_SortRange01 As Range

GeoCodeTableStartRow = 2

'
Set Frm_SortRange01 = Range("2:48") ' <===== Is this correct?

ThisWorkbook.Activate
Sheets("GeoCodeTable").Activate
Sheets("GeoCodeTable").Select

' I got this code from recording a Macro in Excel
Changed code to automate Original Code
Rows(Frm_SortRange01).Select ' Rows("2:48").Select
' Process stops with Type mistmach
Application.CutCopyMode = False
Selection.Sort Key1:= _
Range("A2"), ' Range ("A" & GeoCodeTableStartRow), _
Order1:=xlAscending, Key2:= _
Range("C48"), ' Range("C" & GeoCodeTableStartRow) _
, Order2:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
<input id="gwProxy" type="hidden"><!--Session data--><input *******="if(typeof(jsCall)=='function'){jsCall();}else{setTimeout('jsCall()',500);}" id="jsProxy" type="hidden">

 

[Tuelor]

You could try the following to ensure the variable is more clearly defined.

Dim Frm_SortRange01 As Excel.Range

Set Frm_SortRange01 = Sheets("SheetName").Range("2:48")

I presume your code is all within a subroutine? Also, do you have a user form called Frm_SortRange01? I would be inclined to rename this variable to avoid any confustion (ie rngSortRange).

D

 

[ukmikeb]

This thread has been duplicated at -

http://www.mrexcel.com/forum/showthread.php?t=539046

which has more replies at this moment.

If you haven't had a reply to a thread after a period by all means "*bump*" the thread to bring it to everyones attention again.

hth

 

[FJSeminario]

You could try the following to ensure the variable is more clearly defined.

Dim Frm_SortRange01 As Excel.Range

Set Frm_SortRange01 = Sheets("SheetName").Range("2:48")

I presume your code is all within a subroutine? Also, do you have a user form called Frm_SortRange01? I would be inclined to rename this variable to avoid any confustion (ie rngSortRange).

D

Tuelor, Thanks this work and I changed the name as you sugested but i had another problem, this is a duplicate Thread and there were more replies to the other one,Please refer to it for the development of that thread
http://www.mrexcel.com/forum/showthread.php?t=539046

Thanks

<input id="gwProxy" type="hidden"><!--Session data--><input *******="if(typeof(jsCall)=='function'){jsCall();}else{setTimeout('jsCall()',500);}" id="jsProxy" type="hidden">