Sheet pas opslaan als een aantal verplichte cellen zijn ingevuld

[Advanm]

Hoi,

Ik ben bezig met een project en heb een sheet met een knop die een worksheet opslaat als de waarde in een cel is gevult.

Private Sub CommandButton2_Click()
' Controleer of bestand bestaat
If Dir("Z:/siteconfig/" & Range("D2") & ".xls") = Range("D2") & ".xlsm" Then

' MsgBox ("File komt voor") ' Eenvoudige save, overschrijf bestande bestand
ActiveWorkbook.SaveAs


Else
'MsgBox ("File niet gevonden") ' Maak nieuwe bestand aan
 ActiveWorkbook.SaveAs Filename:="Z:\siteconfig\" & Range("D2") & ".xlsm" _
, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If


End Sub

Hoe kan ik er voor zorgen in dit stuk code dat het sheet pas kan worden opgeslaan als een aantal vooraf bepaalde cellen gevuld moet zijn?

Ik heb via google het volgende gevonden maar weet niet hoe dit in bovenstaande code te verwerken.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Range("A1").Value = "" Then
    MsgBox ("Verplicht veld (A1).")
End If
End Sub

Inmiddels ben ik weer iets verder. heb de volgende code nu staan voor de button

Private Sub CommandButton2_Click()
' Controleer of bestand bestaat
If Dir("Z:/siteconfig/" & Range("D2") & ".xls") = Range("D2") & ".xlsm" Then

' MsgBox ("File komt voor") ' Eenvoudige save, overschrijf bestande bestand
ActiveWorkbook.SaveAs


Else
'MsgBox ("File niet gevonden") ' Maak nieuwe bestand aan

If ActiveSheet.Name = Range("D8").Value & " " & Range("F8") And Value("c25") And Value = "" Then
    MsgBox ("dit is een verplicht veld")
    Exit Sub
 End If
 
 ActiveWorkbook.SaveAs Filename:="Z:\siteconfig\" & Range("D2") & ".xlsm" _
, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If

End Sub

Nu wordt in een ander deel het worksheet gemaakt op basis van 2 cellen. Op dat werkblad moet nu gechecked worden of op dat werkblad een cell ( later meerdere cellen ) gevuld zijn. Hoe kan ik laten checken of de juiste cell geselecteerd is in het werkblad wat is aangemaakt?

Ik krijg nu een compile error op dit commando

If ActiveSheet.Name = Range("D8").Value & " " & Range("F8") And Value("c25") And Value = "" Then