niet ingevuld dan niet opslaan als

[bta]

In bijgaand bestand zitten al waarschuwingen dat niet kan worden opgeslagen als een bepaalde cel niet is ingevuld. Is het mogelijk om die waarschuwing ook in te bouwen als G19(, G23 of G27) niet is ingevuld, als C19(, C23 of C27) wel is ingevuld?
Dank voor jullie aandacht. Gr. BTA
Bekijk bijlage bezoekersformulier.rar

 

[Jack Nouws]

Hallo bta,

Volgens mij heb je hier al vaker naar gevraagd.
Zie hier voor het antwoord.

Met vr gr
Jack

 

[bta]

Wellicht als je de vraag goed leest en het bestand even bekijkt, dat je tot de ontdekking komt dat het een anderssoortige vraag is. Ik probeer het forum alleen lastig te vallen als ik er zelf niet uitkom. Ik heb echt gezocht, zo ongeveer de hele zondagmiddag, maar kon geen antwoord vinden.
Gr. BTA

 

[Cobbe]

De code kan beter maar het biedt wel een oplossing voor uw probleem.

Succes, Cobbe

 

[snb]

Ik zat te denken aan:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For Each cl In Sheets(1).Cells.SpecialCells(xlCellTypeAllFormatConditions)
    If cl.Interior.ColorIndex = 40 Then
      Cancel = True
      MsgBox "Vul " & cl.Offset(, -1) & " in"
      Exit Sub
    End If
  Next
End Sub

 

[bta]

Dankuwel!