Sub sluiten met kruisje userform

[Symphysodon]

Beste forummers,

Ik krijg het niet voor elkaar om een macro te sluiten met het kruisje van een userform.

In een macro worden een aantal routines uitgevoerd die gedeeltelijk in een userform zijn ondergebracht. In de userform gebruik ik QueryClose om met het kruisje de userform af te sluiten, daarna gaat de macro verder. Dat wil ik niet omdat de gehele macro enkele minuten duurt. Hoe krijg ik dit voorelkaar

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    n = Sheets("Admin").ListObjects("TBL_Administratie").DataBodyRange.Rows.Count
    If n > 27 Then
        MsgBox "Het aantal grafieken is maximaal 27!"
        Sheets("Admin").ListObjects("TBL_Administratie").ListColumns(3).DataBodyRange.Resize(, 2).ClearContents 'Verwijderen |||
        Cancel = vbNo
        
    End If
    
Exit Sub
End Sub

Sub Nieuwe_kaart()

code...

usOpmaak.Show

code.....
End Sub

Alvast bedankt.

Mvg
Marco

 

[edmoor]

Controleer QueryClose Mode:
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/queryclose-event

En gebruik dan Cancel = 1 (Of 0 om wel te sluiten)

 

[Symphysodon]

Dat heb ik toch gedaan?

De userform wordt ook wel gesloten maar de sub niet en daar gaat het

 

[edmoor]

Dan had ik je verkeerd begrepen.
Doe het eens zo:

[COLOR="#FF0000"]Dim SluitSub As Boolean[/COLOR]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    n = Sheets("Admin").ListObjects("TBL_Administratie").DataBodyRange.Rows.Count
    If n > 27 Then
        MsgBox "Het aantal grafieken is maximaal 27!"
        Sheets("Admin").ListObjects("TBL_Administratie").ListColumns(3).DataBodyRange.Resize(, 2).ClearContents 'Verwijderen |||
        Cancel = vbNo
        [COLOR="#FF0000"]SluitSub = True[/COLOR]
    End If
End Sub

Sub Nieuwe_kaart()
    [COLOR="#008000"]'code...[/COLOR]
    
    usOpmaak.Show
    [COLOR="#FF0000"]If SluitSub Then Exit Sub[/COLOR]
    
    [COLOR="#008000"]'code.....[/COLOR]
End Sub

 

[Symphysodon]

Hoe dan? De QueryClose staat in de userform en de sub staat apart in een module. Ik kan de sluitsub niet als global declareren en call mag ik niet gebruiken van snb

 

[edmoor]

Zet dit dan in de module:
Public SluitSub As Boolean

 

[Symphysodon]

Bedankt Edmoor (ook voor je geduld), dit werkt.