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.AutoFilter
ActiveSheet.ListObjects("Tabell1012").Range.AutoFilter Field:=5,
Criteria1 _
:="$D5"

ActiveSheet.ListObjects("Tabell1012").Range.AutoFilter Field:=32,
Criteria1 _
:="<>"

End Sub


Keep my fingers krossed.

BR
Mia

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.AutoFilter
ActiveSheet.ListObjects("Tabell101226").Range.AutoFilter Field:=5,
Criteria1 _
:=val


ActiveSheet.ListObjects("Tabell101226").Range.AutoFilter 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.AutoFilter
> ActiveSheet.ListObjects("Tabell1012").Range.AutoFilter Field:=5,
> Criteria1 _
> :="$D5"
>
> ActiveSheet.ListObjects("Tabell1012").Range.AutoFilter Field:=32,
> Criteria1 _
> :="<>"
>
> End Sub
>
>
> Keep my fingers krossed.
>
> BR
> Mia