Avatar billede emil_ger Nybegynder
10. maj 2008 - 18:02 Der er 4 kommentarer og
1 løsning

Macro (Visual Basic) flytning af data fra et ark til andet

Jeg har via en inputrække defineret data i Ark1 A1:J1.
Når inputtet er endt, skal hele rækken flyttes til første tomme række i Ark2. Dette er hvad jeg har so far:

    Sheets("Ark1").Select
    Range("A1:J1").Select
    Selection.Cut
    Sheets("Ark2").Select
    Range("A1:J1").Select (Denne skal være den første ledige række)
    ActiveSheet.Paste

Hvor Range("A1:J1").Select skal være defineret som den første ledige række.

På forhånd tak for hjælpen.
Avatar billede excelent Ekspert
10. maj 2008 - 18:21 #1
Sub xCopy()
rk = Sheets("Ark2").Cells(65500, 1).End(xlUp).Row + 1
Sheets("Ark1").Range("A1:J1").Cut Sheets("Ark2").Range("A" & rk & ":J" & rk)
End Sub
Avatar billede kabbak Professor
10. maj 2008 - 18:24 #2
Sheets("Ark1").Range("A1:J1").Cut Sheets("Ark2").Range("A65536").End(xlUp).Offset(1, 0)
Avatar billede excelent Ekspert
10. maj 2008 - 18:58 #3
eller hvis der ikke er værdier i alle celler (A-J)

Sub xCopy()
Sheets("Ark1").Range("A1:J1").Cut Sheets("Ark2").Range("A" & Range("A1").SpecialCells(xlLastCell).Row + 1)
End Sub
Avatar billede emil_ger Nybegynder
10. maj 2008 - 19:46 #4
Smid et svar begge to, så får I begge point.

Tak for hjælpen.
Avatar billede excelent Ekspert
10. maj 2008 - 19:50 #5
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
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