B
Bernice
I'm trying to determine the last row of data, then move up
a number of rows (to avoid sorting formula cells) and then
perform a sort. I'm not sure how to move up x number of
rows and then use that as the ending portion for a sort.
The first part of the macro shows moving up 15 rows to
avoid the formulas. The second part is hardcoding the
range value. Here is what I have so far
Dim shtworksheet As Worksheet
Dim rngData As Range
Set shtworksheet = _
Application.Workbooks("test1.xls").Worksheets("sheet1")
'Initialize the variables
Set rngData = shtworksheet.Range("B6").CurrentRegion
'last cell (moves the cellpointer to the lower right
corner of active files active area
Cells.SpecialCells(xlCellTypeLastCell).Select
'Move up fifteen rows
Selection.Offset(-15, 0).Select
'Identify the specific range for sorting
Range("B6:T50").Select
'sort data by purchase date
'Header:=xlYes leaves the first row untouched
'Header:=xlGuess ??
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending,
Header:=xlGuess
Thanks for your help,
Bernice
a number of rows (to avoid sorting formula cells) and then
perform a sort. I'm not sure how to move up x number of
rows and then use that as the ending portion for a sort.
The first part of the macro shows moving up 15 rows to
avoid the formulas. The second part is hardcoding the
range value. Here is what I have so far
Dim shtworksheet As Worksheet
Dim rngData As Range
Set shtworksheet = _
Application.Workbooks("test1.xls").Worksheets("sheet1")
'Initialize the variables
Set rngData = shtworksheet.Range("B6").CurrentRegion
'last cell (moves the cellpointer to the lower right
corner of active files active area
Cells.SpecialCells(xlCellTypeLastCell).Select
'Move up fifteen rows
Selection.Offset(-15, 0).Select
'Identify the specific range for sorting
Range("B6:T50").Select
'sort data by purchase date
'Header:=xlYes leaves the first row untouched
'Header:=xlGuess ??
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending,
Header:=xlGuess
Thanks for your help,
Bernice