Beste forum leden,
Ik zit met een vraagje, ik ben een beetje aan het stoeien met VB maar kom niet ver genoeg. Ik heb een document die wij gebruiken voor inspecties van cv ketels echter gebeurd het vaak dat collega's een regeltje over het hoofd zien en vergeten in te vullen. Het document komt dan uiteindelijk bij ons op de zaak waar wij constateren dat het niet compleet is ingevuld. De desbetreffende monteur moet dan of het rapport aanvullen of zelfs weer naar de klant met de nodige kosten. Ik wil graag formules inbouwen dat alle cellen die ingevuld moeten worden ook echt ingevuld moeten zijn. Bijvoorbeeld dat ze bij het openen van het document allemaal rood zijn en zodra je wat ingevuld heb dat hij dan gewoon grijs kleurt bijvoorbeeld. Ik had nu onderstaande formule er in staan maar die is maar voor 1 cel en als je eerst niks invult en later wel dan blijft de foutmelding in cel E8 staan. Kan iemand mij misschien verder helpen met deze kwestie?
Alsvast heel erg bedankt voor jullie moeite
Private Sub Worksheet_Change(ByVal target As Range)
'de volgende regel zorgt ervoor dat de code alleen wordt uitgevoerd
'wanneer de cel die veranderd werd A1 is.
If target.Address = "$E$14" Then
'Wanneer A1 leeg is, dan moet er een melding komen dat je
'er iets in moet zetten
If Range("E14").Value = "" Then
'Dit is de melding
MsgBox ("U mag dit veld niet leeg laten")
'Wellicht wil je de cel ook nog een default waarde meegeven
Range("E8").Value = "Rapport is niet compleet ingevuld!"
End If
End If
End Sub