één PDF printen als in de tabblad een cel een waarde heeft

[ddr780]

Ik zou graag één pdf willen maken van maximaal 8 tabbladen.
Als in het specifieke tabblad een cel een waarde heeft moet deze toegevoegd worden. Als alle 8 tabbladen aan de voorwaarde voldoet, dan zal ik één PDF moeten krijgen bestaande uit 8 bladzijden.
Alle pagina's hebben dezelfde opmaak, alleen andere inhoud.

Ik hoop dat dit voldoende informatie geeft voor een oplossing.

Gr
Diederick

 

[edmoor]

Kijk eens naar dit voorbeeld:

Sub MaakPDF()
    For Each sht In ActiveWorkbook.Sheets
        If sht.Range("A1") = 1 Then
            If x = 0 Then
                sht.Select
                x = 1
            Else
                sht.Select False
            End If
        End If
    Next sht
    
    If x = 1 Then
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Environ("Userprofile") & "\Desktop\Bladen.pdf", _
            OpenAfterPublish:=True
    End If
End Sub

 

[JEC.]

Sub A()
For i = 1 To Worksheets.Count
    If Sheets(i).Range("A2") <> 2 Then Sheets(i).Visible = False
Next i
ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C:"Filepath"\SAVED PDF.pdf"
For i = 1 To Worksheets.Count
    Sheets(i).Visible = True
Next i
End Sub

Deze werkt ook

 

[ddr780]

Hierbij voorbeeld.
Eerste tabblad (Sourcing) mag niet worden afgedrukt.
De rest wel, op voorwaarde dat er in cel F26 PRINT staat. Deze voorwaarde kan natuurlijk ook op tabblad sourcing toegepast worden aangezien in dit tabblad in cel F26 nooit PRINT komt te staan.
Als het mogelijk is dan graag de pdf opslaan op de desktop met als naam de inhoud van cel E4 van tabblad sourcing. (123456)

Bedankt

 

[edmoor]

Deze dus:

Sub MaakPDF()
    Set cursht = ActiveSheet
    For Each sht In ActiveWorkbook.Sheets
        If LCase(sht.Range("F26")) = "print" Then
            If x = 0 Then
                sht.Select
                x = 1
            Else
                sht.Select False
            End If
        End If
    Next sht
    
    If x = 1 Then
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Environ("Userprofile") & "\Desktop\" & Sheets("Sourcing").Range("E4") & ".pdf", _
            OpenAfterPublish:=True
    End If
    cursht.Select
End Sub

 

[edmoor]

Ik had de opmerking al aangepast, evenals de code.
Je moet E4 dan wel even vullen uiteraard.

 

[ddr780]

Oh het werkt al!!!

Bedankt!!

 

[edmoor]

Mooi
Wil je dan ook je post nog even als Opgelost markeren?