happyhungarian
Active Member
- Joined
- Jul 19, 2011
- Messages
- 252
- Office Version
- 365
- Platform
- Windows
Hi I am looking for a way to have my spreadsheet/data set autosort either before or after I autofilter. Here is the code I am currently using for the Autofilter
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Range("c2:c10"), Target) Is Nothing Then Exit Sub
ActiveSheet.Range("$bz$9:$bz$136").AutoFilter Field:=1
ActiveSheet.Range("$bz$9:$bz$136").AutoFilter Field:=1,Criteria1:="Show"
End Sub
I need several columns to autosort off of data that is in a few columns or autosort off of a ranking system (1-xx) I built in column BT10:BT136. I figure it would be easiest to Autosort from Smallest to Largest off of the ranking system in column BT.
Thank you for your help.
Jesse
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Range("c2:c10"), Target) Is Nothing Then Exit Sub
ActiveSheet.Range("$bz$9:$bz$136").AutoFilter Field:=1
ActiveSheet.Range("$bz$9:$bz$136").AutoFilter Field:=1,Criteria1:="Show"
End Sub
I need several columns to autosort off of data that is in a few columns or autosort off of a ranking system (1-xx) I built in column BT10:BT136. I figure it would be easiest to Autosort from Smallest to Largest off of the ranking system in column BT.
Thank you for your help.
Jesse
