Avatar billede goutanou Nybegynder
03. august 2010 - 10:51 Der er 3 kommentarer

Makroopslag

Hej
Håber på at nogen kan hjælpe mig med følgende opgave.
Jeg skal lave en makro der samle flere ark på et ark.
Eks. Ark1: A1-H1 til bund (f.eks A35-H35)
    Ark2: A1-H1 til bund (f.eks A53-H53)
    Ark3: A1-H1 til bund (f.eks A18-H38)
I ark4 vil jeg gerne have det samle. Mit problem er at ark1, ark2 og ark3 ikke har altid det samme antal rækker.
Jeg håber at det er forståeligt? (jeg er franskmand og det er ikke nemt at finde de rigtige ord...)
På forhånd tak for hjælpen
Patrice
Avatar billede excelent Ekspert
03. august 2010 - 12:15 #1
Sub xCopy()
For t = 1 To Sheets.Count - 1
rk1 = Sheets(4).Cells(65000, 1).End(xlUp).Offset(1, 0).Row
rk2 = Sheets(t).Cells(65000, 1).End(xlUp).Offset(1, 0).Row
Sheets(t).Range("A1:H" & rk2).Copy Sheets(4).Range("A" & rk1)
Next
End Sub

Forudsætter at kolonne A i arkene har værdier i samme antal rækker som øvrige kolonner
Avatar billede goutanou Nybegynder
03. august 2010 - 15:01 #2
Hej

Det virkede første gang...Mange tak skal du have.
mvh
patrice
Avatar billede excelent Ekspert
03. august 2010 - 16:07 #3
velbekom
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester