Copy and paste

[Mia]

Hi,

I have a problem with copying and pastig.

I have wrote a code wich copies a table after sorting it and pastes i in
to a new workbok. Everything works fine when I'm standing in the
table and runs the macro, but if I'm standing above the table
it copies all the rows and not only the filtered ones.

What have I done wrong? Do anyone knows?

 

[Mike H]

Mia,

What have I done wrong? Do anyone knows?

How can anyone possibly offer an informed solution unless you post your code?

Mike

 

[Mia]

Sorry, here it comes




Sheets("A").Unprotect
Application.ScreenUpdating = False

Dim dagar As Long
Dim AktuellLista As Range
Dim bok As Workbook
Dim blad As Worksheet
Dim rad As Long

Dim Period As Date
Dim Avslut As Date

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

Set bok = Workbooks.Add

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



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

ActiveSheet.ListObjects("Atabell").Range.AutoFilter

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

ActiveSheet.ListObjects("Atabell").Range.AutoFilter Field:=23, Criteria1 _
:=">" & Range("b4").Value, Operator:=xlOr, Criteria2 _
:="="


ActiveSheet.ListObjects("Atabell").Range.AutoFilter Field:=2, Criteria1 _
:="3919"

ActiveSheet.ListObjects("Astratabell").AutoFilter.Range.Copy


bok.Activate


Set blad = Worksheets.Add()
blad.Name = "3919"

Worksheets("3919").Range("A1").PasteSpecial (xlPasteFormats)
Worksheets("3919").Range("A1").PasteSpecial (xlPasteValues)


--
Best regards
Mia


"Mike H" skrev: