need to sort three sheets differently in same workbook

Do you actually need 3 copies of the same sheet - or is this just to give yu the different sorted views?

You could have a 3 buttons to click on a single sheet
- sort1 = date, time, event name
- sort2 = event name, date, time
- sort3 = shift, date, event name

Avoids risk of the 3 sheets going out of sync, reduces filesize and VBA simplified

To help you create the VBA, it would be helpful to have a sample workbook containing typical data including all columns
- I do not wnat to recreate everything when it is already available


To attach a workbook
- make the details sufficiently anonymous
- click on GOAdvanced
- look below for ManageAttachments
- follow screen instructions

To add a macro to a toolbar see this link
- see if you can get it to work using single one line VBA (simple Message Box perhaps)
- is there any reason why that will not work for you?

This link may be helpful too

PS - do not quote the whole of the previous post
- clutters everything up
- click on Reply
- use quote selectively if answering a particular point or if replying to a post further up the thread

Yes - that's fine
Will update the thread tomorrow morning (UK)

Hi

Personally, I wouldn't have the buttons attached to the QAT. On there they are very small and can be difficult to distinguish.
The buttons would really only be applicable to that particular sheet anyway, so I prefer having the buttons on the sheet as in the attached file.

In this file, I copied just one sheet of your data to a sheet called Data.
I had to insert a new column at C, and convert your US dates to UK dates for the sort to work correctly for me.
You can delete that column, and just change Range("C4") to Range("B4") in the macro code, and of course I4 will become H4 and G4 will become F4

I inserted a few rows at the top of the screen and placed 3 buttons there, title up appropriately and attached the three macros to the buttons.
At the end of the macro, it writes the Sort order to cell H2 for easy viewing of the current Sort sate.

Below I just show the Sort 1 for the Date, Time and Event sort, but the others are identical aprt form the choice of sort column and the message in H2 at the finish
Hope this helps

Sub Sort1()
    ' Date, Time, Event
    Dim lr As Long
    Dim myData As Range
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Data")
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    Set myData = Sheets("Data").Range("A4:K" & lr)

    With ws
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("C4"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=Range("I4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.SortFields.Add Key:=Range("G4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ws.Sort
            .SetRange myData
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        .Range("H2") = "Data sorted by Date, Time and Event"
    End With
End Sub

No, you can't do that as the blanks would all get sorted to the end.

Why not just select all of your rows > Right click > Row Height > and choose something like 40.
Then with all the rows selected, in the Alignment section on the Home Tab, select the middle alignment for Vertical.
You will then have "white space" (except it is coloured) around the entries making it easier to read.

This could work, but I still would ultimately like to have the separate sheets. I have 100+ folks looking at the sheet at any given time. We've been running on this manual version of the calendar for a few years now and I'd just like to keep the layout as easy to use as possible.