Sort Macro Buttons

[tkbuc]

Hi Everyone,

I have a spreadsheet where I want to add two buttons. One button will sort Columns A & B based on Column (A) sorted A-Z. The other button will sort Columns A & B based on Column (B) sorted A-Z. I want all other columns to remain unchanged as they will be using vlookups based on the person's name that populates in column B. I'm having a hard time with it because Column A has merged cells which I need for the format. Any help or guidance would be greatly appreciated.

[scottiex]

merged cells should be avoided wherever possible. you probably have to do some thing a bit contrived like this

merge -> sort -> re-merge

Please Login or Register  to view this content.

'repeat above but for B instead of A

[tkbuc]

The Merge again portion is not working. Also, how else would you try and accomplish what I am accomplishing without having merged cells?

[nilem]

Hi tkbuc,
try this

Please Login or Register  to view this content.

[tkbuc]

Are these individual macros? I'm not sure I am setting them up right. Can anyone put these how they are suppose to be in the excel file I attached in the OP so I can see their use?

[nilem]

Here is your file with the code.

[tkbuc]

Thank you so much!!! For my information, what does "ertert" mean?

[nilem]

it's just the name of the procedure

[tkbuc]

Would you be able to walk me through one of the procedures step by step? I just want to know what it is actually doing as I'm trying to understand and educate myself

Also, I tried adding a third column to sort on (new column C) and copied the procedures above and pasted it into VBA after ertertB and when pressed, it erases all of the data in column C? What did I do wrong?

Sub ertertc()
Dim x, i&, k&
With Range("A2:c36")
x = .Value: k = -6
x = ShellSort22(x, 2) 'sort Columns A & B & C based on Column (C)
For i = 1 To UBound(x)
If Len(x(i, 1)) Then
k = k + 7
x(k, 1) = x(i, 1)
x(k, 2) = x(i, 2)
x(i, 1) = Empty: x(i, 2) = Empty
End If
Next i
.Value = x
End With
End Sub

[tkbuc]

*bump**bump*