Meerdere cellen verplicht invullen

[LauravT]

Hallo,..

Bij bijgevoegd bestandje is het de bedoeling dat de cellen waarin de werkuren staan altijd gevuld moeten zijn!
Dus de cellen in bereik D10 tot en met BJ37 moeten verplicht gevuld worden!

Weet iemand hoe je dit het beste kan aanpakken!?
Ik weet dat ik dit via VBA kan oplossen,.. maar kom er zelf helaas niet uit!

Alvast bedankt!

Groetjes,..

Bekijk bijlage 157437

 

[Cobbe]

Zou deze code u vooruit helpen?

Sub alle_cellen_vullen()
For kolom = 4 To 64 Step 2
 If Cells(8, kolom) = "" Then Exit Sub
 For rij = 10 To 37
    If rij = 21 Then rij = 36
     If Cells(rij, kolom) = "" And Cells(rij, kolom).Interior.ColorIndex <> 3 Then
        Cells(rij, kolom).Select
            MsgBox ("Niet ingevuld!")
     End If
 Next
Next
End Sub

 

[Niels28]

Of bedoel je dit?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D10:DJ39")) Is Nothing Then
If Target.Value = "" Then MsgBox "Cel mag niet leeg zijn!"
End If
End Sub

Niels

 

[Cobbe]

Zo eenvoudig is het nu ook weer niet.

Het gaat hier over niet aansluitende kolommen en rijen.

 

[LauravT]

Thanks,.. so far!

Cobbe,.. als ik de code van jou overneem geeft hij geen melding,.. zeer waarschijnlijk dat ik iets fout doe hoor,.. haha!

Niels,.. jouw code werkt wel,.. helaas kan je dan nog wel gewoon verder gaan en afsluiten en opslaan als je de melding gewoon wegklikt!
En dat is eigenlijk nou net de bedoeling niet,.. men mag het bestand niet opslaan als het niet gevuld is!

Alvast bedankt!

Groetjes,..

 

[Niels28]

zo zou je kunnen verplichten iets in te vullen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D10:DJ39")) Is Nothing Then
If Target.Value = "" Then
MsgBox "Cel mag niet leeg zijn!"
Do Until x = 1
ans = InputBox("Vul een waarde voor de cel in.")
If ans <> "" Then
x = 1
Target.Value = ans
End If
Loop
End If
End If
End Sub

Niels

 

[LauravT]

Marbelous!

Echt superbedankt! Dit was precies wat ik nodig heb,.. kan ik (hopelijk) weer wat verder!