I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
..Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

Right click the range and FormatCells--Alignment. Under 'Text Control' check
the status of 'MergeCells'
--
If this post helps click Yes
---------------
Jacob Skaria


"bigjim" wrote:

I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
.Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

You are telling Excel to sort the entire sheet in this portion of the code...
Sheets("MarginAnalysis").Cells

The "Key1:=.Range("b225:B270")" portion specifies the column to sort by.

Change .Cells to .Selection if you want to sort the selection.
However, the selection must intersect with column B.
--
Jim Cone
Portland, Oregon USA



"bigjim"

wrote in message
I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
..Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

The merged cells box is empty

"Jacob Skaria" wrote:

Right click the range and FormatCells--Alignment. Under 'Text Control' check
the status of 'MergeCells'
--
If this post helps click Yes
---------------
Jacob Skaria


"bigjim" wrote:

I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
.Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

OK, I tried this code:

With ActiveWorkbook.Sheets("MarginAnalysis").Range("b22 5:b270").Select
Selection.Sort Key1:=Range("b225"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End With

Now I'm getting this error:
"Sort reference is not valid. Make sure it's witing the data ou want to
sort and the first sort by box isn't the same or blank.

I'm not sure what that is saying.

Jim

"Jim Cone" wrote:

You are telling Excel to sort the entire sheet in this portion of the code...
Sheets("MarginAnalysis").Cells

The "Key1:=.Range("b225:B270")" portion specifies the column to sort by.

Change .Cells to .Selection if you want to sort the selection.
However, the selection must intersect with column B.
--
Jim Cone
Portland, Oregon USA



"bigjim"

wrote in message
I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
..Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

Ctrl+A and check whether there are any merge cells...and try the below code.

ActiveWorkbook.Sheets("MarginAnalysis").Range("b25 :b70"). _
Sort Key1:=Range("b25"), Order1:=xlDescending


If this post helps click Yes
---------------
Jacob Skaria


"bigjim" wrote:

The merged cells box is empty

"Jacob Skaria" wrote:

Right click the range and FormatCells--Alignment. Under 'Text Control' check
the status of 'MergeCells'
--
If this post helps click Yes
---------------
Jacob Skaria


"bigjim" wrote:

I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
.Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim

this worked for me.

With ActiveWorkbook.Sheets("MarginAnalysis")
.Range("b225:b270").Sort Key1:=.Range("b225"), _
Order1:=xlDescending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End With
--
jb


"bigjim" wrote:

OK, I tried this code:

With ActiveWorkbook.Sheets("MarginAnalysis").Range("b22 5:b270").Select
Selection.Sort Key1:=Range("b225"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End With

Now I'm getting this error:
"Sort reference is not valid. Make sure it's witing the data ou want to
sort and the first sort by box isn't the same or blank.

I'm not sure what that is saying.

Jim

"Jim Cone" wrote:

You are telling Excel to sort the entire sheet in this portion of the code...
Sheets("MarginAnalysis").Cells

The "Key1:=.Range("b225:B270")" portion specifies the column to sort by.

Change .Cells to .Selection if you want to sort the selection.
However, the selection must intersect with column B.
--
Jim Cone
Portland, Oregon USA



"bigjim"

wrote in message
I'm using excel 2003. I want to sort data formatted as text in a column.
Most of the cells in the column are blank. I am using the following code:

With Sheets("MarginAnalysis")
..Cells.Sort Key1:=.Range("b225:B270"), _
Order1:=xlAscending, Header:=xlNo, _
MatchCase:=False, Orientation:=xlTopToBottom
End With

The error I get is "This operation requires the merged cells to be
identically sized. " There are no merged cells anywhere in the range
selected. When I go to the worksheet "marginanalysis" after the program
stops the range b225:b282 is highlighted.??
I'm lost and any help would be appreciated.

Jim