Autofilter-sorting from specified cell
Hello,
I´m trying to with autofilter, everything i working fine but I want to sort after a specified cell, in this case D5. Do anyone know how to do this? My code is: Sub Januari() ' ' Sortera januari i betaltlistan Makro ' ' ActiveSheet.Unprotect ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=5, Criteria1 _ :="$D5" ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=32, Criteria1 _ :="<" End Sub Keep my fingers krossed. BR Mia |
Autofilter-sorting from specified cell
If someones intrested, I solved it myself. I used following code:
Sub Januari() ' ' Sortera januari i betaltlistan Makro ' ' ActiveSheet.Unprotect Dim val As String val = ActiveSheet.Range("D5") ActiveSheet.ListObjects("Tabell101226").Range.Auto Filter ActiveSheet.ListObjects("Tabell101226").Range.Auto Filter Field:=5, Criteria1 _ :=val ActiveSheet.ListObjects("Tabell101226").Range.Auto Filter Field:=32, Criteria1 _ :="<" End Sub "Mia" skrev: Hello, I´m trying to with autofilter, everything i working fine but I want to sort after a specified cell, in this case D5. Do anyone know how to do this? My code is: Sub Januari() ' ' Sortera januari i betaltlistan Makro ' ' ActiveSheet.Unprotect ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=5, Criteria1 _ :="$D5" ActiveSheet.ListObjects("Tabell1012").Range.AutoFi lter Field:=32, Criteria1 _ :="<" End Sub Keep my fingers krossed. BR Mia |
All times are GMT +1. The time now is 02:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com