sort macro...not working

[bluepenink]

Hello

below is my code, just having some difficulty with defining the sheet name portion...at least taht is whre the error is occuring:

Sub EmployeeName()
    ActiveSheet.Index = Sheet1.Index
    Range("C6").CurrentRegion.Sort Key1:=Range("D7"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
       
Range("F5") = "Sorted by: Employee Name"
End Sub

row 6 has the headers....so the header range is C6:N6

much appreciated!

 

[jmthompson]

It looks like you are trying to sort 1 cell. What is the range you really want to sort?

 

[VoG]

Hi. Perhaps

Sub EmployeeName()
With Sheet1
    .Range("C6").CurrentRegion.Sort Key1:=.Range("D7"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
       
    .Range("F5") = "Sorted by: Employee Name"
End With
End Sub

 

[bluepenink]

Hello thxs for ur response.

my data is in range (C7:N1100)

Im trying to sort by a field aka employee name, and then branch name
employee name is column D
Branch name is E

both will be seperate macros buttons. thx u

 

[VoG]

Try

Sub EmployeeName()
With Sheet1
    .Range("C7:N1100").Sort Key1:=.Range("D7"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
       
    .Range("F5") = "Sorted by: Employee Name"
End With
End Sub

 

[bluepenink]

perfect, thx you so much!!!!!!! ur awesome

i just had to change the range to C6:N1100 as the header was in range row 6.

thxs again!

 

[bluepenink]

hello quick question

how can i make the macro say...."Sorted by: None"....when a macro for sort has not been clicked? thxs!