Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem ark/side med ark navn

 Besvar Besvar
Forfatter
Leonhardt Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 03.Jun.2015
Land: DK
Status: Offline
Point: 77
Direkte link til dette indlæg Emne: Gem ark/side med ark navn
    Sendt: 19.Feb.2019 kl. 18:47
Hej 

Er der en der ved om jeg kan lave en makro, som vil gem være Ark/side eller hedder det en fane.
jeg har et ark, hvor jeg ligge en masse rå data ind i ark 1, så har jeg lavet en makro, som del hver afdeling ud på hver deres ark. også klipper og sæt jeg ind i et som hver afdeling får deres egne fil. 

men kan man lave en makro til det??.

MVH
René
Jeg bruger 365 og 2016
Til top



Til top
Ib Hansen Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
Direkte link til dette indlæg Sendt: 20.Feb.2019 kl. 11:19
Prøv denne.
Den gemmer arket samme sted som det oprindelige ark, men lukker ikke arket, efter det er gemt.
Private Sub CommandButton1_Click()
    MName = ActiveSheet.Name & ".xlsm"
    MDir = ActiveWorkbook.Path
    ActiveWorkbook.SaveAs Filename:=MDir & "\" & MName
End Sub

Ps. Koden fundet ved Google søgning og det er altid en god ide at starte der Wink
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)
Til top
Leonhardt Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 03.Jun.2015
Land: DK
Status: Offline
Point: 77
Direkte link til dette indlæg Sendt: 20.Feb.2019 kl. 18:05
Hej Ib

Jeg har prøvet flere af dem jeg har goolge, men de gør det samme som den her, gemmer hele fil med alle ark. og ikke kun den et Ark pr ny fil.

MVH
René
Jeg bruger 365 og 2016
Til top
Michael D Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Feb.2019
Land: Danmark
Status: Offline
Point: 23
Direkte link til dette indlæg Sendt: 22.Feb.2019 kl. 09:46
Hej Leonhardt,

Du skal først kopiere arkene i et nyt workbook og derefter gem. Se f.eks.:


Sub copy_and_save_sh_to_wb()
Dim newWb       As Workbook
Dim sh          As Worksheet
Dim n           As String
Dim currDir     As String

currDir = ThisWorkbook.Path

For Each sh In ThisWorkbook.Worksheets
    
    n = sh.Name
    Set newWb = Application.Workbooks.Add
    sh.Copy before:=newWb.Worksheets(1)
    Application.DisplayAlerts = False
        newWb.Worksheets(2).Delete
        newWb.SaveAs currDir & "\" & n & ".xlsx"
        newWb.Close
    Application.DisplayAlerts = True
    
Next sh

End Sub


Håber det hjælper.

vh,
Michaël
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk