Søg
Avatar billede sdh Mester
29. august 2003 - 12:07 Der er 6 kommentarer og
1 løsning

Konverter ark til projektmapper

Jeg har en projektmappe jeg anvender til budget med ca 100 ark (afdelinger). Da jeg går ud fra at jeg ikke kan sende de enkelte ark via e-mail som vedhæftet fil til de budget-ansvarlige ønsker jeg en opskrift/makro på følgende:
De enkelte ark skal kunne konverteres til en projektmappe uden at arket fjernes fra den opr. projektmappe. Den nye projektmappe skal tildeles et navn lig med arknavnet (eks "120") dvs. 120.xls.Det er kun de markeret ark (grupperet ark)  i den opr. projektmappe der skal konverteres.
Er der nogle der kan hjælpe mig med det.

hilsen

SDH
Avatar billede overchord Nybegynder
29. august 2003 - 12:12 #1
Hejsa , denne virker i excel 97:

Sub transfersheet()
ActiveSheet.Cells.Copy
Workbooks.Add
Cells.PasteSpecial xlPasteAll
ActiveWorkbook.SaveAs (ActiveSheet.Name)
ActiveWorkbook.Close
End Sub
Avatar billede sdh Mester
29. august 2003 - 12:52 #2
Virker ikke - gemmer projektmappen som ark1 selvom det aktive arknavn er 110. Formateringen ryger sig også en tur - jeg har filter på regnearket der skal bibeholdes. Jeg ønsker også at hvis jeg markerer 3 ark: 110, 130, 140 at der oprettes 3 projektmapper der angives med hver deres navn.

hilsen

SDH
Avatar billede overchord Nybegynder
29. august 2003 - 12:54 #3
ok sorry det havde jeg ikke lige set - saa bliver det lidt mere tricky. Proever at kigge paa det senere idag hvis der ikke kommer andre svar
Avatar billede sdh Mester
29. august 2003 - 13:05 #4
Tak for foreløbig assistance.
Avatar billede bak Forsker
29. august 2003 - 13:25 #5
Denne skal kunne gøre det.

Sub test()
For Each sh In ThisWorkbook.Windows(1).SelectedSheets
    sh.Copy
    ActiveWorkbook.SaveAs "c:\" & sh.Name & ".xls"
Next
End Sub
Avatar billede sdh Mester
29. august 2003 - 14:12 #6
Tak for svaret bak. Det fungere bare perfekt. Har du ikke også et forslag til hvordan man kan e-maile det direkte til brugerne - automatiseret som vedhæftet fil. Skal jeg anfører e-mail adr. i en bestemt celle eller?.Jeg benytter Outlook som mail program. Brugbar løsning giver 60 points ekstra.

hilsen

SDH
Avatar billede bak Forsker
29. august 2003 - 14:27 #7
Her er den nemme metode (den er "gratis")
Forudsættes at emailadressen står i A2

Sub test()
For Each sh In ThisWorkbook.Windows(1).SelectedSheets
    sh.Copy
    ActiveWorkbook.SaveAs "c:\" & sh.Name & ".xls"
    ActiveWorkbook.SendMail Range("A2"), "Her er subjektet osv...."
    ActiveWorkbook.Close savechanges:=False
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »