Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Eerst cel controleren dan PDF opslaan met VBA  (gelezen 1007 keer)

0 leden en 1 gast bekijken dit topic.

Offline CR

  • Lid
  • *
  • Berichten: 22
  • Geslacht: Man
  • Oplossing.be
Eerst cel controleren dan PDF opslaan met VBA
« Gepost op: 05 november 2020, 17:01:58 »
Beste iedereen,

Ik heb een code die ervoor zorgt dat ik een sheet kan opslaan als PDF.
Werkt perfect, maar eigenlijk zou ik daar nog wat extra's bij willen.
Namelijk dat hij voor opslaan controleert of de cellen C6,D6 en C7 zijn ingevuld.
Zo niet dat je dan een MsgBox krijgt die aangeeft dat die velden nog ingevuld moeten worden.
Want anders kan je de PDF niet opslaan.
Hopelijk kan iemand mij helpen.
Op internet kom ik niet echt veel verder zeg maar.

De code die ik gebruik voor de PDF is......

Sub OPSLAANPDF()
Plaats = Range("$AH$4").Value
Naam = Range("$AH$5").Value
    If Dir(Plaats & Naam & ".pdf") <> "" Then
     antwoord = MsgBox("Het bestand: " & Naam & ".pdf bestaat reeds  Vervangen?", vbYesNo)
        If antwoord = vbYes Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=[AH6], OpenAfterPublish:=True
        Else
            Exit Sub
        End If
         Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Plaats & Naam & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=[AH6], OpenAfterPublish:=True
End If
End Sub

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Eerst cel controleren dan PDF opslaan met VBA
« Reactie #1 Gepost op: 05 november 2020, 17:22:10 »
zet direct na Sub OPSLAANPDF()
=IF [C6]="" AND [D6]="" AND [C7]="" then msgbox "Vul eerts cel C6, D6 en C7 in": exit sub
|-|aije

ik gebruik Office 2016 Professional Plus

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Eerst cel controleren dan PDF opslaan met VBA
« Reactie #2 Gepost op: 05 november 2020, 17:29:24 »
welkom op het forum.

plaats in het vervolg zelf een voorbeeldbestand als het kan.

Offline CR

  • Lid
  • *
  • Berichten: 22
  • Geslacht: Man
  • Oplossing.be
Re: Eerst cel controleren dan PDF opslaan met VBA
« Reactie #3 Gepost op: 05 november 2020, 22:50:35 »
Hoi Haije,

Jouw code gebruikt, maar blijkbaar doe ik wat verkeerd.
Want hij werkt niet zoals het hoort zeg maar.
En ja, je hebt gelijk ik had er even een bestandje bij moeten doen.
Excuus, weer wat geleerd ben nog een beginner zeg maar.

Bij deze dus even een fictief bestandje.
Origineel staat teveel privé gegevens in namelijk.
Hopelijk weet je de oplossing als je de code ziet.

Groet Cor


Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Eerst cel controleren dan PDF opslaan met VBA
« Reactie #4 Gepost op: 06 november 2020, 07:54:09 »
Moet zijn:
If [C6] = "" Or [D6] = "" Or [C7] = "" Then MsgBox "Vul de dag, maand en cert/platform omschrijving in.", vbExclamation, "Fout": Exit Sub
rest van de code

Offline CR

  • Lid
  • *
  • Berichten: 22
  • Geslacht: Man
  • Oplossing.be
Re: Eerst cel controleren dan PDF opslaan met VBA
« Reactie #5 Gepost op: 06 november 2020, 11:35:50 »
Beste Philiep,

Werkt als een spoortrein.
Thanks voor al jullie hulp

Gr cor

 


www.combell.com