13. januar 2011 - 03:11Der er
8 kommentarer og 1 løsning
kopier fra ark 1 til ark2
Hej jeg har fået et problem i excel har et program der kan flytte data fra ark1 til ark2 med mere med denne makro.
Private Sub Worksheet_Activate() Rw = Cells.SpecialCells(xlCellTypeLastCell).Row Range("A3:A" & Rw).EntireRow.Delete ' sletter inden ny data
Sheets("Ark1").Range("A2:s1000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("s1:s2"), CopyToRange:=Range("A2:r1000"), Unique:= _ False Range("A3").CurrentRegion.Font.Size = 8 ' retter skriftstørrelsen i ark2 End Sub
Så er problemet jeg vil gerne have flere kolonner og jeg har tilføjet nogle hvor jeg så har ændret de 3 (s) til (t) og (r) til (s) men nu kan jeg ikke få det til at virke igen håber der er en der hjælpe mig. mvh jpc ps. se evt tidligere tråd.
Som jeg umiddelbart læser det: Det første Range går fra Kolonne A, række 2 til kolonne S, række 1000 på "Ark1" .... Det skal kopieres til det tilsvarende Range på "Ark2" ... Til gengæld er jeg ikke 100% på hvad dit CriteriaRange skal være ?? (jeg har ændret det til T1:T2" ????)
Hej Nicolai Det jeg gør er jeg laver et sætind af kolonne foran kolonne R i ark1 og ark2 så går jeg ind i programkode og ændre som nedenfor. Sheets("Ark1").Range("A2:t1000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("t1:t2"), CopyToRange:=Range("A2:s1000"), Unique:= men der sker bare ikke noget på ark2 og den kommer ikke med en fejl melding som den ellers gør hvis ikke de to første linjer ikke er ens i de to ark. Det forstår jeg ikke hvad der er galt. mvh Jens Peter
Hej Nicolai Det er en kode som kabbak var så venlig at lave formig jeg har ikke så meget forstand på det men det CriteriaRange:=Range("t1:t2") gør at der sætter i ark1 et tal som så også står i ark2 f.eks ark2 2 ark3 3 eller 4 så tager den alt det med over som der står det tal ud for og det virker rigtig godt bortset fra at jeg ikke kan sætte flere koloner ind mvh JPC
Husk at skrive kolonnernes overskrifter på modtagerarkene, de skal være 100% ens med overskrifterne på ark1. hvis du ikke laver overskrifterne, kommer data ikke med.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
