Thank you for your time!

I solved it like this


Dim Period As Date
Dim Avslut As Date


Dim Rapportmånad As String
Rapportmånad = ActiveSheet.Range("B3")

Set bok = Workbooks.Add

Application.ScreenUpdating = False

Workbooks("C").Sheets("Astradata").Activate

Period = ActiveSheet.Range("b3")
Avslut = ActiveSheet.Range("B4")

ActiveSheet.ListObjects("Astratabell").Range.AutoF ilter

ActiveSheet.ListObjects("Astratabell").Range.AutoF ilter Field:=21,
Criteria1 _
:="<=" & Range("b3").Value, Operator:=xlOr, Criteria2 _
:="="

ActiveSheet.ListObjects("Astratabell").Range.AutoF ilter Field:=23,
Criteria1 _
:="" & Range("b4").Value, Operator:=xlOr, Criteria2 _
:="="


ActiveSheet.ListObjects("Astratabell").Range.AutoF ilter Field:=2,
Criteria1 _
:="Kalle"


Thank you for your time!!!!


--
Best regards
Mia


"joel" skrev:


Do you want to sort the entire row? I would use special cell method to
get the visible rows then use sort on the visible object. the code
assumes there is a header row. The sort won't work if the key property
of the sort is not in the filtered data. I'm using column P to perform
the sort.

LastRow = Range("A" & Rows.count).end(xlup).row
Set DataRange = rows("1:" & LastRow)
set VisibleRows = DataRange.SpecialCells(xlCellTypeVisible)

VisibleRows.sort _
header:=xlyes, _
key1:=range("P1"),
order1:=xlascending


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=168751

Microsoft Office Help

.