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


Emne lukketUndgå bekræftelse af sletning af sheets
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Sarchian Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Nov.2016
Land: Danmark
Status: Offline
Point: 7 		Direkte link til dette indlæg Emne: Undgå bekræftelse af sletning af sheets
    Sendt: 12.Jun.2019 kl. 16:32
Spørgsmål 1:
Udklip fra en længere makro:

Sheets("Worklogs (2)").Select
    ActiveWindow.SelectedSheets.Delete

Når makroen sletter det pågældende ark åbner den en tekstboks, hvor man skal bekræfte sletningen - kan jeg ikke undgå den, så arket blot slettes uden videre?

Spørgsmål 2:
Jeg skal lave en makro, der udskriver de enkelte sheets hver for sig som pdf.filer med bestemte navne for hver fil. Navnet fremgår af en celle i de enkelte sheets.       
Til top



Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73 		Direkte link til dette indlæg Sendt: 12.Jun.2019 kl. 20:57
Ang. spørgsmål 1: Prøv med

Application.DisplayAlerts = False
[din kode]
Application.DisplayAlerts = True
Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73 		Direkte link til dette indlæg Sendt: 14.Jun.2019 kl. 06:58
Ang spørgsmål 2: Prøv med disse to subs - en sub der går igennem alle arkene og sender dem et for et som argument til den næste sub, der eksporterer som pdf. Du kan læse detaljer om flere parametre ifm eksporten her: https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat

Sub LoopThroughSheets()

    Dim ws As Worksheet
    Dim Folder As String
    
    Folder = "" 'Indsæt stien til den mappe, hvor du vil gemme pdf'erne

    For Each ws In ThisWorkbook.Worksheets
        SaveSheetAsPDF ws, Folder
    Next ws

End Sub

Sub SaveSheetAsPDF(ws As Worksheet, Optional Folder As String)
    
    Dim Name As String
    Dim FullPath As String
    
    Name = ws.Range("A1") 'erstat A1 med den celle, hvor du har filnavnet
    
    If Folder = "" Then
        Folder = Application.DefaultFilePath
    End If
    
    FullPath = Folder & "\" & Name
      
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=FullPath 

End Sub
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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