Avatar billede gladhund Nybegynder
22. juli 2011 - 00:14 Der er 1 kommentar og
1 løsning

Flytte ark til anden workbook

Kære eksperter,

Jeg har to workbooks åbne.

1. Jeg ønsker at flytte de X første ark fra den aktive workbook til den anden workbook (rapport.xlsx) via VBA. X = Sheets("Variable").Range("AB2").value.

2. Arkene skal samtidig have omvendt rækkefølge, så det forreste med index 1 bliver det sidste i destinations-workbook'en og så fremdeles.

Jeg har forsøgt med alle mulige løkker, men det går galt hver gang.

Kan nogen hjælpe?
Avatar billede gladhund Nybegynder
22. juli 2011 - 12:14 #1
Har bla. prøvet med følgende, som ikke virker...


Public Sub FlytArk()

Dim Sidste As Integer
Dim i As Integer
Dim Generator As Workbook

Set Generator = ActiveWorkbook

Sidste = Sheets("Variable").Range("AB1000").End(xlUp).Row

For i = Sidste To 3 Step -1 'pga offset, så der startes i række 3

ActiveWorkbook.Sheets(1).Move Before:=Workbooks("Rapport.xlsx").Sheets(1)

Generator.Activate

Next i

End Sub
Avatar billede gladhund Nybegynder
20. august 2011 - 13:20 #2
lukkes
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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



Seneste spørgsmål Seneste aktivitet
19 min siden Pixeline cd’er til PC Af Mathilde i Windows
I dag 01:14 Windows 10 - IIS 10 Af bsn i Windows
I går 20:39 Boot fra USB Af poulmadsen i Windows
I går 11:43 Gmail-ikon på skrivebordet Win 10 Af ErikHg i Fri debat
I går 09:22 Lopslag Af Luffe i Excel