Auto Sort using Macro

R

Rubix

I wish to auto sort text and numbers in two columns and on 5 rows
descending. Is it possible to do this using Visual Basic?

Thanks,
Rube
 
K

Ken Puls

Hello,

This was paired down from a macro recording:

With ActiveSheet.Range("S18:T22")
.Sort Key1:=Range("S18"), Order1:=xlAscending, Header:=xlGuess
End With

If you wanted to sort by column T, change that in the second line of the
code.

Hope it helps,
 
R

Rubix

Thanks so much for your response.

I'm not sure if I am doing this right but in VBAProject under
ThisWorkbook I have:

Private Sub Workbook_Open()
With ActiveSheet.Range("S18:T22")
.Sort Key1:=Range("T18"), Order1:=xlDescending, Header:=xlGuess
End With
End Sub

This sorts column T but only when the spread sheet opens. I wish for
auto sorting while data is added.

Sorry I'm a newbie at this sort of thing.

Rube
 
Top