verschillende cellen verplicht invullen, geen voorwaardelijke opmaak

[bta]

Zeer gewaardeerde excellers,
Ik heb verschillende cellen op blad 1, tussen B2 en B10, die verplicht moeten worden ingevuld voor het opslaan. Ik wil graag dat er een waarschuwingsbericht verschijnt, als niet alle velden zijn ingevuld. Als men toch wil opslaan moet dat wel kunnen.
Voor het opslaan gebruik ik nu een macroknop met

Sub OpslaanAls()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Weer bedankt voor de aandacht.
Groet,
BTA

 

[Ad Becude]

Hoi BTA,

Plaats onderstaande code in een Module:

Sub OpslaanAls()
If Worksheets(1).Range("B2,B10") = "" Then
If MsgBox("Niet alle velden zijn ingevuld, wilt u toch opslaan?", vbYesNo, "Opslaan als") = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
End If
End If
End Sub

Deze geld voor de cellen B1 en B10

 

[Wigi]

Ik zou het met deze code doen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
    Dim rngLegeCellen As Range
    
    On Error Resume Next
    Set rngLegeCellen = Worksheets(1).Range("B2:B10")
    On Error GoTo 0
    
    If Not rngLegeCellen Is Nothing Then
    
        'lege cellen gevonden
        Set rngLegeCellen = Nothing
        
        If MsgBox("Niet alle velden zijn ingevuld, wilt u toch opslaan?", vbYesNo, "Opslaan als") = vbNo Then
            
            Cancel = True
            
        End If
        
    End If
    
End Sub

Code komt bij ThisWorkbook te staan, niet in een module.

Wigi