Waarschuwing als en niets is ingevuld.

[Logistiek]

goedendag,

ik kom er niet uit, maar ben opzoek naar een mededeling / waarschuwing als er in kolom A geen X is ingevuld en dus de macro niet kan worden voltooit.
wie heeft een idee?


Sub keuze_kleuren_groen()

' beveiliging er afhalen
ActiveSheet.Unprotect

With Sheets("blad 2")
For Each CL In .Range("A3:A50")

If CL = "x" Then
.Range("C" & CL.Row & ":Z" & CL.Row).Interior.ColorIndex = 10
End If
Next CL

'beveiliging weer aan zetten
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End With

End Sub

 

[sylvester-ponte]

laat een vlaggetje meelopen in de loop .
iedere keer als er een "x" is, gaat het vlaggetje op waar.
na de loop kijk je of het vlaggetje op waar staat.
zo niet geef een waarschuwing met msgbox

 

[Logistiek]

Kan je ook aangeven hoe dit er dan uit zou komen te zien in de code

 

[edmoor]

Zoiets aan het begin van je macro:

If WorksheetFunction.CountIf(Range("A3:A50"), "X") < 47 Then
    MsgBox "Niet alle cellen zijn gevuld", vbCritical
    Exit Sub
End If

 

[VenA]

Waarom gebruik je geen voorwaardelijke opmaak?

 

[Logistiek]

super bedankt dit werkt

zal hem gelijk weer sluiten

 

[edmoor]

Kijk ook naar #5.
Dat is simpel en geen code voor nodig.