Fout-code 1004 wanneer niet alle verplichte velden zijn ingevuld.

[Robert09]

Hallo ik heb een fout wanner ik het bestand probeer op te slaan terwijl ik bv 1 verplicht veld ben vergeten

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets(1).Range("B5,D3,B14,G6,G7,G8,G9,G10,G11,G14,G18,B27,C27,F27,H27,I33,I34,I35,I36,G38,G40")
If cl.Value = Empty Then
MsgBox "Cel " & cl.Address(False, False) & " is niet gevuld.", vbCritical, "Printen afgebroken"
Cancel = True 'Deze regel zorgt voor het daadwerkelijk afbreken van het opslaan
Exit For
End If
Next
Sheets("Blad1").Range("D3") = Sheets("Blad1").Range("D3") + 1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets(1).Range("B5,D3,B14,G6,G7,G8,G9,G10,G11,G14,G18,B27,C27,F27,H27,I33,I34,I35,I36,G38,G40")
If cl.Value = Empty Then
MsgBox "Cel " & cl.Address(False, False) & " is niet gevuld.", vbCritical, "Opslaan afgebroken"
Cancel = True 'Deze regel zorgt voor het daadwerkelijk afbreken van het opslaan
Exit For
End If
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\Aanvraag garantie\ " & Range("D3") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

End Sub

Zie bijlage voor compleet Excel document.

 

[HSV]

Werkt bij mij ook niet in Excel 2003 (.xls extensie).
In Excel 2007 werkt het prima.

 

[snb]

Tuurlijk, omdat PDF pas in 2007 is toegevoegd.

 

[Robert09]

Onder 2007 krijg ik hem ook niet werkend..

Heb hem onder 2007 geprobeerd maar krijg nu een fout als ik de niet alle verplichte velden heb ingevuld i.p.v. een door mij aangevraagde foutmelding.

In de bijlage een voorbeeld.

 

[HSV]

Welke regel geeft de fout weer, en in welke van de twee codes?

 

[Robert09]

In de tweede code, er wordt aangegeven dat de fout zit in

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="W:\te\ " & Range("D3") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

 

[HSV]

Onderstaand stukkie klopt?

Filename:="W:\te\

Zowel de schijf: "W" als de map "te" ?
Is de map "te" aangemaakt op de schijf "W" ?

 

[Robert09]

De locatie W:\te\ is volledig aangemaakt.
Hier kan het niet aan liggen.

 

[Warme bakkertje]

Heb je wel schrijfrechten naar deze Dir ?
Onderstaande werkt iig perfect voor mij (uiteraard de Dir aangepast naar mijn HD-opzet)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim cl As Range
For Each cl In Sheets(1).Range("B5,D3,B14,G6,G7,G8,G9,G10,G11,G14,G18,B27,C27,F27,H27,I33,I34,I35,I36,G38,G40")
    If cl.Value = Empty Then
        MsgBox "Cel " & cl.Address(False, False) & " is niet gevuld.", vbCritical, "Opslaan afgebroken"
        Cancel = True: Exit Sub
    End If
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="W:\te\ " & Range("D3") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[Robert09]

Ja heb de schrijf rechten wel het gaat ook alleen fout als de verplichte velden niet zijn ingevuld.
Als alles correct is ingevuld krijg ik ook keurig pdf bestand.
Maar wanneer één of meerdere verplichte velden zijn vergeten moet er alleen een MsGbox verschijnen met daarop de foutmelding.

Wanneer ik het bestand safe met niet alle verplichte velden dan krijg ik de volgende fout


Wanneer ik dan op fout opsporing klik krijg ik dit te zien:

 

[Warme bakkertje]

Heb je mijn code al eens geprobeerd ?

 

[Robert09]

Heb het net getest met jou code deze werkt perfect !
Hartelijk bedankt hiervoor!