Avatar billede Vibbe Praktikant
14. maj 2020 - 08:07 Der er 1 kommentar og
1 løsning

Hjælp til kode VBA

Har en specifik opgave jeg har brug for hjælp til. VBA
Har et excel ark med 2 faner
Ark 1 og Ark 2

Ønsket er at få lavet en kode der kopier i Ark 2 felt A1 og indsætte  i
Ark 1 felt A5.
Herefter skal den kopiere i Ark 2 felt A2 og indsætte i Ark 1 felt A27

Som i kan se springer den fra A5 til A27

Ønsket er at få lavet en gentagelse, således at den hele tiden rykker et felt nedad i ark 2 og indsætter ved at scrolle 22 nedad i ark 1

Håber det er forståeligt og der er en der har mulighed for at hjælpe
Er ret ny i det her VBA. Men har en opgave jeg skal være færdig med til imorgen
Avatar billede thomas_bk Ekspert
14. maj 2020 - 11:02 #1
Vil de to indsættelsesområder ikke komme til at overlappe fra A27 og ned når der er tilstrækkelig mange data som er blevet indsat!
Avatar billede store-morten Ekspert
14. maj 2020 - 12:05 #2
Prøv:
Sub Flyt()

    Dim CopyRow As Integer
    Dim InsRow As Integer
    Dim i As Integer
   
'Start kopi i række 1
CopyRow = 1
'Start indsæt i række 5
InsRow = 5

'Gentag 5 gange
For i = 1 To 5

Worksheets("Ark2").Range("A" & CopyRow).Copy _
    Destination:=Worksheets("Ark1").Range("A" & InsRow)
   
'Forøg kopi række med 1
CopyRow = CopyRow + 1
'Forøg indsæt række med 22
InsRow = InsRow + 22

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
Kategori
Excel-kurser for alle niveauer og behov – find det kursus, der passer til dig

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