Msgbox met ja/nee

[Atwist]

Hallo

Ik wil graag een msgbox maken met "Ja" & "Nee" functie in de help kwam ik al iets tegen maar ik snap alleen de vervolg opdrachten niet van de knopen.
Bij "Ja" moet het door gaan met de SUB maar bij "Nee" stoppen met de SUB.

Private Sub CommandButton15_Click()
MsgBox "Is alles betaald", vbYesNoCancel, "Waarschuwing"
If Response = vbYes Then    ' Gebruiker koos Ja.
    MyString = "Ja"  then Next  ' Voert bepaalde handeling uit.
Else    ' Gebruiker koos Nee.
    MyString = "Nee"    ' Voert bepaalde handeling uit.
End If

Next
    Sheets("NL").Select
    Range("A1:H30").Select
    Selection.Copy
    Sheets.Add , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Label250.Caption

    ActiveSheet.Paste
    Sheets("NL").Select
    Range("E2:E13").Select
    Application.CutCopyMode = False
    Selection.ClearContents

Zou iemand mij even op weg kunnen helpen.

 

[edmoor]

Zet Exit Sub in de Else conditie.

 

[Atwist]

Hallo Ed

Exit Sub werkt goed.
Alleen bij "Ja" krijg ik het niet voor elkaar dat de SUB doorloopt

 

[edmoor]

Je hoeft alleen maar dit te doen:

If Response = vbNo Then    ' Gebruiker koos Nee.
    Exit Sub
End If

Het woordje Next na de End If moet ook weg.

 

[Atwist]

Zit ik mij ff rot te zoeken wat te doen bij ja.

Maar ja heb wel eens gelezen dat door iets weg te laten het wel werkt hier weer een geval:d

wederom mijn dank

 

[snb]

Vermijd 'Select' en 'Activate' in VBA.

Private Sub CommandButton15_Click()
  If MsgBox ("Is alles betaald", vbYesNoCancel, "Waarschuwing") = vbYes Then
    with Sheets.Add( , Sheets(Sheets.Count))
      .Name = Label250.Caption
      .Range("A1:H30")=Sheets("NL").Range("A1:H30").Value
    end with 
    Sheets("NL").Range("E2:E13").ClearContents
  end if
End sub

 

[Atwist]

Vermijd 'Select' en 'Activate' in VBA.

Met deze code moet ik nog aan de gang is gemaakt met macro opname.

 

[Atwist]

Het gaat toch niet helemaal goed de SUB gaat toch door de maand wordt afgesloten.

Private Sub CommandButton15_Click()
MsgBox "Is alles betaald", vbYesNoCancel, "Waarschuwing"
If Response = vbNo Then    ' Gebruiker koos Nee.
    Exit Sub
End If

    Sheets("NL").Select
    Range("A1:H30").Select
    Selection.Copy
    Sheets.Add , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Label250.Caption

    ActiveSheet.Paste
    Sheets("NL").Select
    Range("E2:E13").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    
     Select Case LCase(Label250.Caption)
        Case "januari"
            Label250.Caption = "februari"
        Case "februari"
            Label250.Caption = "maart"
        Case "maart"
            Label250.Caption = "april"
        Case "april"
            Label250.Caption = "mei"
        Case "mei"
            Label250.Caption = "juni"
        Case "juni"
            Label250.Caption = "juli"
        Case "juli"
            Label250.Caption = "augustus"
        Case "augustus"
            Label250.Caption = "september"
        Case "september"
            Label250.Caption = "november"
        Case "november"
            Label250.Caption = "december"
        Case "december"
            Label250.Caption = "januari"
    End Select
    
      ThisWorkbook.Save
    
End Sub

 

[edmoor]

Je vangt de return code van de messagebox ook niet op:

If MsgBox("Is alles betaald", vbYesNo, "Waarschuwing") = vbNo Then
    Exit Sub
End If

 

[snb]

Heb je mijn code niet gelezen ?

 

[edmoor]

Daar staat het inderdaad goed in.
Als is de Cancel niet nodig.

 

[Atwist]

@ ED
Heb weer eens zitten slapen.

@SNB
Sorry het staat ook in jou code ik dacht dat het alleen over "select enz. ging had niet de hele code gelezen

Mijn excuus hiervoor

 

[snb]

Mijn code doet waarnaar je vroeg.

 

[Atwist]

Dat klopt helemaal heb deze ook al toegepast

Mijn dank