• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Msgbox pop up bij fout

Status
Niet open voor verdere reacties.
C

CRUZ2

Gebruiker
Lid geworden
4 jul 2008
Berichten
41
Beste excel goeroes

Ik wil dat een macro-tje een message box toont met "controleer projectnummer" als het opslaan niet lukt doordat hij niet de directory kan vinden of als de cel [G8] leeg is.
De macro moet als het wel lukt de messagebox tonen "Document opgeslagen"
Wie kan mij helpen de VBA code is:
Code: 
Private Sub OPSLAAN_Click()
    sMap = "T:\01 Projecten\01 " & IIf(Left([G8], 1) = "T", "Topside", "Rolloos") & "\"
    ThisWorkbook.SaveAs sMap & Dir(sMap & [G8] & "*", 16) & "\01 sales\01 questionnaires\" & [G8] & " " & [A7] & " " & Format(Now, "dd-mm-yyyy  hh-mm-ss") & ".xls"
    MsgBox "Document opgeslagen!"
    On Error Resume Next
    MsgBox "Controleer projectnummer"
    
End Sub

Thnx in advance

Cruz
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan