2x een VbMsgBoxResult in een macro ????

[romian]

Beste lezer(s)
Als ik 2x VbMsgBox in een module wil plaatsen krijg ik als reactie
dat het niet kan op hetzelfde niveau.
Ook met de help kom ik daar niet uit helaas.
Wie kan mij zeggen hoe ik dat kan oplossen
Groet van romian

 

[CB01]

En als je ipv 2x msgbox op 1 regel plaats het volgende doet:
MsgBox "Eerste melding"
MsgBox "Tweede melding"

 

[Wigi]

Als ik 2x VbMsgBox in een module wil plaatsen krijg ik als reactie
dat het niet kan op hetzelfde niveau.

Wat is de exacte code die je nu hebt? Graag tussen code tags plaatsen aub (dat is het # icoon).

 

[CB01]

Dit is wat ik bedoelde:

MsgBox "Eerste melding"
MsgBox "Tweede melding"

 

[Roncancio]

Dit is wat ik bedoelde:

MsgBox "Eerste melding"
MsgBox "Tweede melding"

Als hiermee je vraag is beantwoord, dan gaarne je vraag op opgelost zetten (rechts onderaan op de pagina).
Bvd.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Als hiermee je vraag is beantwoord, dan gaarne je vraag op opgelost zetten (rechts onderaan op de pagina).
Bvd.

Met vriendelijke groet,

Roncancio

CB01 is niet de vraagsteller

 

[Roncancio]

CB01 is niet de vraagsteller

Oeps.

fff niet opgelet.
Bedankt voor de reactie.:thumb:

Met vriendelijke groet,


Roncancio

 

[romian]

Hallo CB01,
Bedankt voor je reactie maar als ik dat zo uitvoer
wordt dat niet geaccepteerd door VBA overigens:
De 2 MsgBox coden die ik geplaatst heb hebben
wel een verschillende inhoud.
Een code vraagt Ja of Nee op de vraag" Wilt U doorgaan"
en die staat bovenaan de macro en in de andere code,
die aan het einde staat, staat:"Afsluiten met opslaan?"
Zo is het misschien wat duidelijker.Groet Romian

 

[romian]

Hallo Wigi,
Hier de code die ik 2x wil plaatsen, een in het begin
en een op het einde van de macro:
[Dim myCheck As VbMsgBOXResult
myCheck = MsgBox("Wilt U doorgaan?",vbYesNo)
If myCheck = vbNo Then
Exit Sub
End If ] Rest van de macro
De code op het einde is idem maar dan met de vraag:
Wilt U afsluiten met opslaan?
Indien ik 1 code plaats doet de macro het prima maar niet met beiden.
Ik hoop dat je hier wat verder mee kunt in het geven van een oplossing.
Vriendelijke groet Romian

 

[Hoornvan]

Hallo Wigi,
Hier de code die ik 2x wil plaatsen, een in het begin
en een op het einde van de macro:
[Dim myCheck As VbMsgBOXResult
myCheck = MsgBox("Wilt U doorgaan?",vbYesNo)
If myCheck = vbNo Then
Exit Sub
End If ] Rest van de macro
De code op het einde is idem maar dan met de vraag:
Wilt U afsluiten met opslaan?
Indien ik 1 code plaats doet de macro het prima maar niet met beiden.
Ik hoop dat je hier wat verder mee kunt in het geven van een oplossing.
Vriendelijke groet Romian

Dit is niet de volledige code, daar werd wel om gevraagd.
Je moet de volgende keer de code selecteren en dan boven in het menu op # klikken s.v.p.

 

[Hoornvan]

Zo doet hij het bij mij wel.

Sub test()
Dim myCheck As VbMsgBoxResult
myCheck = MsgBox("Wilt U doorgaan?", vbYesNo)
If myCheck = vbNo Then Exit Sub

''Rest van de macro

myCheck = MsgBox("Wilt U afsluiten met opslaan?", vbYesNo)
If myCheck = vbYes Then
End If
End Sub

 

[romian]

Hierbij de coden;
Als melding krijg ik weer Dubbele code te zien en werkt de macro nietmeer.

Dim myCheck As VbMsgBoxResult
myCheck = MsgBox("Wilt U doorgaan?", vbYesNo)
If myCheck = vbNo Then
Exit Sub

 Dim myCheck As VbMsgBoxResult
myCheck = MsgBox("Succesvol gedumpt Wilt U nu afsluiten met opslaan?", vbYesNo)
If myCheck = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

Heb ik dan nog ergens een foutje gemaakt? romian

 

[Wigi]

Is het nu zo lastig om de code te kopiëren, gaande van: Sub NaamVanDeProcedure() tot en met: End Sub?

 

[Hoornvan]

romian,

Als de rode regel eruit haal en de code zoals hij er nu staat gebruikt loop hij door.
Krijg je nu nog een fout melding zal je toch de volledige code moeten geven, als je teminste geholpen wil worden.

De dokter kan je ook niet helpen zonder volledige informatie.

Dim myCheck As VbMsgBoxResult
myCheck = MsgBox("Wilt U doorgaan?", vbYesNo)
If myCheck = vbNo Then Exit Sub

 [COLOR="Red"]Dim myCheck As VbMsgBoxResult[/COLOR]
myCheck = MsgBox("Succesvol gedumpt Wilt U nu afsluiten met opslaan?", vbYesNo)
If myCheck = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub

 

[Warme bakkertje]

Sub tst()
    'begin van de code

If MsgBox("Wilt U doorgaan?", vbYesNo) = vbNo Then Exit Sub
    
    'rest van de code

If MsgBox("Succesvol gedumpt Wilt U nu afsluiten met opslaan?", vbYesNo) = vbYes Then 
ActiveWorkbook.Close True
End If
End Sub

 

[romian]

Hallo WIM en Rudi,
Opgelost; ja je moet het maar weten!
Hartelijk bedankt voor de moeite
Vriendelijke groet Romian

 

[romian]

Hallo Wigi,
Natuurlijk is het een kleine moeite om de code door te sturen
en natuurlijk wil ik alles aandragen om mijn probleem opgelost te
krijgen maar ik had niet begrepen dat je onder de hele code de hele
macro bedoelde.
Vergeet niet dat vragenstellers (zoals ik ) meestal maar amateurs zijn
in vergelijking met de beantwoorders, vandaar!
Vriendelijke groet Romian

 

[Warme bakkertje]

Beste Romain,ik veronderstel dat vele helpers hier Excel enkel als hobby beoefenen (ik alleszins toch) of er gebruik van maken bij hun dagtaak en dus oplossingen bieden vanuit hun eigen ervaringen. De geboden hulp hier is dus louter op vrijwillige basis. Bedankt in ieder geval voor je feedback en tot Excel