Vanuit een .XLT sjabloon dezeldfe sjabllon opvragen met VBA

[HWV]

Beste,

IK heb de volgende code gemaakt om aan het einde van het invullen van een formulier te vragen of ze nog een keer de zelfde formulier willen invullen.

Sub JaNee()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

If MsgBox("Wilt u nog een orderformulier invullen", vbYesNo) = vbYesNo Then

Workbooks.Open(Filename:="C:\Users\Henk\Desktop\test formulier\ZNP 001 Orderbon.xlt", Editable:=True).RunAutoMacros Which:=xlAutoOpen

Else

Call BestandenSluiten

End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Als ik afzonderlijk de code :

Workbooks.Open(Filename:="C:\Users\Henk\Desktop\test formulier\ZNP 001 Orderbon.xlt", Editable:=True).RunAutoMacros Which:=xlAutoOpen

gebruikt vraag hij of je toch of je het zelfde bestand wil openen.
Maar in combinatie met vbYesNo doet hij het niet dan sluit hij het bestand.

Iemand een idee hoe ik toch weer het zelfde sjabloon kan openen.

Het idee hierachter is dat hij weer met een schone formulier begin.
Of moet ik een code maken die de velden leeg maakt


Groet HWV

 

[Hoornvan]

HWV,

Dit vind ik in de help van Excel - gaat over de ja en nee knoppen, misschien heb je er wat aan.

[QUOTE]Voorbeeld van de functie MsgBox
Dit voorbeeld maakt gebruik van de functie MsgBox om een bericht voor een kritieke fout weer te geven in een dialoogvenster met een knop Ja en Nee. De knop Nee is opgegeven als de standaardreactie. De waarde die de functie MsgBox als resultaat geeft, is afhankelijk van de knop die u kiest. Dit voorbeeld gaat ervan uit dat DEMO.HLP een Help-bestand is dat een onderwerp bevat met een Help-contextnummer dat gelijk is aan 1000.[/QUOTE]

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Wilt u doorgaan?"    ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = "Demo MsgBox"    ' Definieert titel.
Help = "DEMO.HLP"    ' Definieert Help-bestand.
Ctxt = 1000    ' Definieert onderwerp
        ' context.
        ' Geeft bericht weer.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' Gebruiker koos Ja.
    MyString = "Ja"    ' Voert bepaalde handeling uit.
Else    ' Gebruiker koos Nee.
    MyString = "Nee"    ' Voert bepaalde handeling uit.
End If

 

[HWV]

Bedankt

Sub JaNee()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

If MsgBox("Wilt u nog een orderformulier invullen", vbYesNo) =[COLOR="Red"] vbYes[/COLOR] Then

Workbooks.Open(Filename:="C:\Users\Henk\Desktop\test formulier\ZNP 001 Orderbon.xlt", Editable:=True).RunAutoMacros Which:=xlAutoOpen

Else

Call BestandenSluiten

End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Kleine aanpassing gedaan, nu loopt hij wel als een trein.

Bedankt in ieder geval voor het meedenken

Groet HWV

 

[trucker10]

HVV een voorbeeldje van een YesNoCancel in een msg box , misshien heb je der wat aan om de werking te zien en te vergelijken met jouw probleem .
oeps ben te laat , het is al opgelost lees ik .