sorting in a macro and defining last row into varible not working in
 

Dim LastRow99 As Long

LastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row

ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Add
Key:=Range( _
LastRow99), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal


I get Run-time error '1004':
Method 'Range' of object '_Global' failed

sorting in a macro and defining last row into varible not working
 

You pass Long as argument to Range.
May be, you should redefine LastRow99, and use End(xlUp).EntireRow
range

sorting in a macro and defining last row into varible not working
 

I get a data type mismatch error now

On Sep 12, 4:30*pm, NOPIK wrote:
You pass Long as argument to Range.
May be, you should redefine LastRow99, and use End(xlUp).EntireRow
range

sorting in a macro and defining last row into varible not working in
 

You have to specify the range that you want sorted. I used A1 through X(lastrow
in column A). You'll want to change that to use the column you need.

Dim LastRow99 As Long

with activeworkbook.worksheets("working sheet")
lastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("A1:X" & LastRow99), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

S Himmelrich wrote:

Dim LastRow99 As Long

LastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row

ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Add
Key:=Range( _
LastRow99), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal

I get Run-time error '1004':
Method 'Range' of object '_Global' failed

--

Dave Peterson

sorting in a macro and defining last row into varible not working
 

needing to sort on column A, C, F & G

On Sep 12, 5:40*pm, Dave Peterson wrote:
You have to specify the range that you want sorted. *I used A1 through X(lastrow
in column A). *You'll want to change that to use the column you need.

Dim LastRow99 As Long

with activeworkbook.worksheets("working sheet")
* * lastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row
* * .Sort.SortFields.Clear
* * .Sort.SortFields.Add Key:=.Range("A1:X" & LastRow99), _
* * * * *SortOn:=xlSortOnValues, Order:=xlAscending, _
* * * * *DataOption:=xlSortNormal

S Himmelrich wrote:

Dim LastRow99 As Long

LastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row

* * ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Clear
* * ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Add
Key:=Range( _
* * * * LastRow99), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
* * * * xlSortNormal

*I get Run-time error '1004':
* Method 'Range' of object '_Global' failed

--

Dave Peterson

sorting in a macro and defining last row into varible not working in
 

Record a macro when you do it manually. Remember, since you're sorting on 4
fields, you'll have to do the sort twice.

S Himmelrich wrote:

needing to sort on column A, C, F & G

On Sep 12, 5:40 pm, Dave Peterson wrote:
You have to specify the range that you want sorted. I used A1 through X(lastrow
in column A). You'll want to change that to use the column you need.

Dim LastRow99 As Long

with activeworkbook.worksheets("working sheet")
lastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("A1:X" & LastRow99), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

S Himmelrich wrote:

Dim LastRow99 As Long

LastRow99 = .Cells(.Rows.Count, "A").End(xlUp).Row

ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Working Sheet").Sort.SortFields.Add
Key:=Range( _
LastRow99), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:= _
xlSortNormal

I get Run-time error '1004':
Method 'Range' of object '_Global' failed

--

Dave Peterson

--

Dave Peterson