sorting a range of cells in the same column by Address
 

i am trying (in a macro) to sort a range of cells, from variables declared as
objects, that are in the same row.
My problem is that as i run the macro, the program thinks that cell $L$56
is larger than cell $L$125. is there any way to get around this?

This is a portion of the code i am using.

'Sort to determine the stop coordinates
replacelist = 0
Set replace = Nothing
Do
If branchAddress1 branchAddress2 Then
replacelist = branchlist1
replacebranch = branchAddress1
branchlist1 = branchlist2
branchAddress1 = branchAddress2
branchlist2 = replacelist
branchAddress2 = replacebranch
Else
If branchAddress2 branchAddress3 Then
replacelist = branchlist2
replacebranch = branchAddress2
branchlist2 = branchlist3
branchAddress2 = branchAddress3
branchlist3 = replacelist
branchAddress3 = replacebranch
Else
If branchAddress3 branchAddress4 Then
replacelist = branchlist3
replacebranch = branchAddress3
branchlist3 = branchlist4
branchAddress3 = branchAddress4
branchlist4 = replacelist
branchAddress4 = replacebranch
Else
If branchAddress4 branchAddress5 Then
replacelist = branchlist4
replacebranch = branchAddress4
branchlist4 = branchlist5
branchAddress4 = branchAddress5
branchlist5 = replacelist
branchAddress5 = replacebranch
End If
End If
End If
End If
Loop Until branchAddress1 <= branchAddress2 And branchAddress2 <=
branchAddress3 And branchAddress3 <= branchAddress4 And branchAddress4 <=
branchAddress5

sorting a range of cells in the same column by Address
 

What is branchAddress1 and what is branchAddress2? If these are cell
addresses then you need to work with the row and not the cell address, such
as:
Range(branchAddress1).Row
Does that work for you? HTH Otto

"Ironhydroxide" wrote in message
...
i am trying (in a macro) to sort a range of cells, from variables declared
as
objects, that are in the same row.
My problem is that as i run the macro, the program thinks that cell $L$56
is larger than cell $L$125. is there any way to get around this?

This is a portion of the code i am using.

'Sort to determine the stop coordinates
replacelist = 0
Set replace = Nothing
Do
If branchAddress1 branchAddress2 Then
replacelist = branchlist1
replacebranch = branchAddress1
branchlist1 = branchlist2
branchAddress1 = branchAddress2
branchlist2 = replacelist
branchAddress2 = replacebranch
Else
If branchAddress2 branchAddress3 Then
replacelist = branchlist2
replacebranch = branchAddress2
branchlist2 = branchlist3
branchAddress2 = branchAddress3
branchlist3 = replacelist
branchAddress3 = replacebranch
Else
If branchAddress3 branchAddress4 Then
replacelist = branchlist3
replacebranch = branchAddress3
branchlist3 = branchlist4
branchAddress3 = branchAddress4
branchlist4 = replacelist
branchAddress4 = replacebranch
Else
If branchAddress4 branchAddress5 Then
replacelist = branchlist4
replacebranch = branchAddress4
branchlist4 = branchlist5
branchAddress4 = branchAddress5
branchlist5 = replacelist
branchAddress5 = replacebranch
End If
End If
End If
End If
Loop Until branchAddress1 <= branchAddress2 And branchAddress2 <=
branchAddress3 And branchAddress3 <= branchAddress4 And branchAddress4 <=
branchAddress5

sorting a range of cells in the same column by Address
 

Hello Ironhydroxide,

Place this code in a standard VBA module. Add the macro into code in
the example below. The macro function compares the first address with
the second address. The results are less than = -1, equal = 0, greater
than = 1

EXAMPLE
================================================== ==========
Replace the IF ...THEN code below...
If branchAddress1 branchAddress2 Then

With this code...
If CmpAddresses( branchAddress1, branchAddress2) = 1 Then
================================================== ==========

MACRO CODE
================================================== =======
Function CmpAddresses(Address1 As Range, Address2 As Range) As Integer
'Results:
' Addx1 Addx2 = 1
' Addx1 = Addx2 = 0
' Addx1 < Addx2 = -1

Dim Addx1 As String
Dim Addx2 As String

With Address1
Addx1 = Str(.Column * .Row)
End With

With Address2
Addx2 = Str(.Column * .Row)
End With

CmpAddresses = StrComp(Addx1, Addx2)

End Function
================================================== =======

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=46376

sorting a range of cells in the same column by Address
 

Yes the branchAddress1 and ~2 are cell addresses.

i replaced the questionable code, and it works great now.

Thanks for the "hinweis".
"Otto Moehrbach" wrote:

What is branchAddress1 and what is branchAddress2? If these are cell
addresses then you need to work with the row and not the cell address, such
as:
Range(branchAddress1).Row
Does that work for you? HTH Otto