Gooday everyone!!

on named cells is there any way to make them relative referencing
instead of absolute, becasue otherwise my sorting system does not work
becasue it is getting values from another sheet through named cells and
it sorts it all wrong.


Cheers in advance for any one clever enough who can help me:)

Good question!

You would need to use cell-named-range.offset method to cover the target sort range.

I would need to have your worksheet to show you how to achieve this.

Thanks

I can send you my worksheet if you give me your email, it's school course work that I am doing, if you could help me I would be very grateful

Don't know if this may help you, but if you name a cell like this "MyCellName" it will be global and may be referenced from another sheet.

If instead you name it "Sheet1!MyCellName" it will only be referenced from Sheet1, unless you use the Sheet1!MyCellName from another worksheet.

Unfortunately that didn't seem to help it still sorts wrong because I am coping some data from one other sheet and also adding some new data in, and when I sort it because my worksheet Is split up by different columns and there are 100 rows of data, it sorts the first columns but does not sort the last ones as the first ones are info from a different sheet and the last ones are new info I add in, the naming cells links that cells value directly to which row it is on which is not helpful.


Cheers for trying to help anyway.
If there’s any one else who could help it would be much appreciated, cheers folks!!!

Pls send the file (with a refreshing note as to what to be done) on the following address:
[email protected]

Thanks & regards
Amjad Mahmood

Dear Seb, I have fixed your macro problem.
I made changes in your module2 macro call (named as : Sorting)
I have checked it it's now correctly working.

Please check at your end, and let me know.

By the way I liked your work in the file which you have sent, you are wonderful in Excel.


Sub sorting(range1 As String)
    there1 = True
    Application.ScreenUpdating = False
    Dim SrtRange As String
    SrtRange = "A5:I" & Range("a4").End(xlDown).Row ' make sure that A4 & A5 must not be empty
    Range("a5").Select
    For a = 1 To 10
        With Selection.Interior
            .ColorIndex = 37
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
        End With
        ActiveCell.Offset(0, 1).Select
        seb = ActiveCell.Column
    Next
    Range(ref).Select
    With Selection.Interior
        .ColorIndex = 34
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    If ascending = True Then
        Range(SrtRange).Sort Key1:=Range(ref), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Else
        Range(SrtRange).Sort Key1:=Range(ref), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End If
    oldref = ref
    oldrange = range1
    there1 = False
End Sub