Avatar billede Klaus W Professor
14. september 2021 - 19:43

Samle data fra flere ark

Hej alle sammen
Jeg har tidligere fået hjælp til denne lille udfordring https://www.computerworld.dk/eksperten/spm/1024997
Og det køre egentlig som det skal, nu er det jeg gerne vil ændre det lidt men kan simpelthen ikke finde ud af at ændre VBA-koden.
Jeg vil gerne have at varerne fra de Ark der samles starter i A9 i stedet for A1.
Også vil jeg gerne have at overskriften ikke kom med. Den står i A1 til I1 i alle Arkene der skal samles.
Nogle der kan hjælpe.
Alt hjælp vil blive værdsat 
Hilsen Klaus W       
https://www.dropbox.com/s/vppcguvyyddw3ty/Bestilling%202021.xlsm?dl=0

Sub Rektangelafrundedehjørner4_Klik()
Dim wksHent As Range
    Dim wksSaml As Worksheet
    Dim sidsterk As Long
    Dim kopiomr  As Range
    Dim kolonner As Variant
    kolonner = Split(Names("HentKolonner").RefersToRange.Value2, ":")
    Set wksSaml = Worksheets(Names("SamlearkNavn").RefersToRange.Value2)
    'wksSaml.Cells.ClearContents
    For Each wksHent In Names("OpsamlingFra").RefersToRange.Cells
        sidsterk = Worksheets(wksHent.Value2).Range("A" & Worksheets(wksHent.Value2).Rows.Count).End(xlUp).Row
        'kopi dataomkr
        Set kopiomr = Worksheets(wksHent.Value2).Range(kolonner(0) & "2:" & kolonner(1) & sidsterk)
        wksSaml.Range("A" & wksSaml.Rows.Count).End(xlUp).Offset(1, 0).Resize(kopiomr.Rows.Count, kopiomr.Columns.Count).Value2 = kopiomr.Value2
        'kopi overskrift
        wksSaml.Range("A1").EntireRow.Value2 = Worksheets(wksHent.Value2).Range("A1").EntireRow.Value2
    Next
End Sub
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

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





Computerworld
Ny rekord: Her er elbilen med den længste rækkevidde / Få timer til at Apple er klar med ny iOS 15 / Teslas vilde model S Plaid sætter fantomtid på hæderkronet bane