Sort Using Toggle Button

Hi All,

I am trying to use one single toggle button to sort a sheet that can be downloaded HERE. Currently I have to use 2 buttons to do what I want.

I would like to combine both buttons into one button that changes text based on the 2 sort options. If the sheet is sorted by TEAM (team numbers are on left) the button should show "Sort By DF/SF". Then when I press the button again the sheet should sort by DF/SF (black letters on top and red on the bottom) and the button should change to "Sort By Team"

I've tried this but it didn't work.

Sub Button1_Click()


If ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By Team" Then
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By DF/SF"
    Call SortTeam
Else
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By Team"
    Call SortDFSF
    ActiveSheet.Range("J3").Select
End If


End Sub

Of course I do have 2 macros that are called "SortTeam" and another called "SortDFSF" They work fine with 2 separate buttons.

I have posted HERE as well. Don't mean to cross post but I did include the link to the other post!!

Re: Sort Using Toggle Button

Quote from MrRedli;768951

hi randy try below code: Change cell A1 to 1 before running this code and also delete the lines

Code

ActiveSheet.Protect Password:=""

from existing code you have.

Code

Sub soop()
Dim mop As Integer
mop = Range("A1").Value
If mop = 1 Then
    Call SortTeam
    mop = 2
    Worksheets("May 2016 AM Bid").Range("A1") = mop
    ActiveSheet.Protect Password:=""
Else
    Call SortDFSF
    mop = 1
    Worksheets("May 2016 AM Bid").Range("A1") = mop
    ActiveSheet.Protect Password:=""
End If
End Sub

Display More

No that didn't work. I did however upload my sheet with all the vb code.

Sub Button1_Click()


If ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By Team" Then
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By DF/SF"
    Call SortTeam
Else
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Sort By Team"
    Call SortDFSF
    ActiveSheet.Range("J3").Select
End If




End Sub




Sub SortTeam()
'
' SortTeam Macro
'




Application.ScreenUpdating = False
    Rows("2:2").Select
    Selection.AutoFilter
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add _
        Key:=Range("B2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Rows("2:2").Select
    Selection.AutoFilter
    Range("C1").Select
Application.ScreenUpdating = True
End Sub
Sub SortDFSF()
'
' SortDFSF Macro
'




Application.ScreenUpdating = False
    Rows("2:2").Select
    Selection.AutoFilter
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.AutoFilter.Sort.SortFields.Add _
        Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.ActiveSheet.AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Rows("2:2").Select
    Selection.AutoFilter
    Range("C1").Select
Application.ScreenUpdating = True
End Sub

Re: Sort Using Toggle Button

Quote from pike;768975

Hi RandyD123,
It was button eight

Code

Sub Button1_Click()


If ActiveSheet.Shapes("Button 8").TextFrame.Characters.Text = "Sort By Team" Then
    ActiveSheet.Shapes("Button 8").TextFrame.Characters.Text = "Sort By DF/SF"
    Call SortTeam
Else
    ActiveSheet.Shapes("Button 8").TextFrame.Characters.Text = "Sort By Team"
    Call SortDFSF
    ActiveSheet.Range("J3").Select
End If


End Sub

Display More

Wow, 100% correct. Thank You very much. I tried to figure out what was "Button 1" but I couldn't find any reference. Where did I go wrong?

Re: Sort Using Toggle Button

so now when I make a copy (second tab) the code errors out. I think it might be a different "Button #" but I don't know for sure.

EDIT UPDATE: I figured it out!!! Thank You again for the help. This is solved!!!