Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy and paste
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? -- Best regards Mia |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy and paste
Mia,
What have I done wrong? Do anyone knows? How can anyone possibly offer an informed solution unless you post your code? Mike -- When competing hypotheses are equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Mia" wrote: 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? -- Best regards Mia |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy and paste
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.AutoFilte r ActiveSheet.ListObjects("Abell").Range.AutoFilter Field:=21, Criteria1 _ :="<=" & Range("b3").Value, Operator:=xlOr, Criteria2 _ :="=" ActiveSheet.ListObjects("Atabell").Range.AutoFilte r Field:=23, Criteria1 _ :="" & Range("b4").Value, Operator:=xlOr, Criteria2 _ :="=" ActiveSheet.ListObjects("Atabell").Range.AutoFilte r 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: Mia, What have I done wrong? Do anyone knows? How can anyone possibly offer an informed solution unless you post your code? Mike -- When competing hypotheses are equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Mia" wrote: 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? -- Best regards Mia |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Automating copy/paste/paste special when row references change | Excel Programming | |||
help w/ generic copy & paste/paste special routine | Excel Programming | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming |