In VBA code Cel veranderen van kleur wanneer leeg

[Roughneck]

Ik heb deze werkende code:

If Range("C4").Value = "" Then
       a = MsgBox("Vul een aansluitnummer in de blauwe cel", vbOKOnly)
       Exit Sub
    End If

Nu zou ik graag zien dat de macro vóórdat de messagebox verschijnt, die cel lichtblauw kleurt, zodat ik kan aangeven dat die cel beslist ingevuld moet zijn.

Wie helpt?

 

[ExcelAmateur]

Roughneck,
Zo iets?

De kleur is misschien niet hele maal juist.

If Range("C4").Value = "" Then
    Range("C4").Interior.Color = vbBlue
       a = MsgBox("Vul een aansluitnummer in de blauwe cel", vbOKOnly)
    Exit Sub
End If

 

[HSV]

If Range("C4").Value = "" Then
Range("C4").Interior.ColorIndex = 37
      MsgBox "Vul een aansluitnummer in de blauwe cel"
    End If

of:

With Range("C4")
    If .Value = "" Then
     .Interior.ColorIndex = 37
   MsgBox "Vul een aansluitnummer in de blauwe cel"
  End If
 End With

 

[popipipo]

Nu zou ik graag zien dat de macro vóórdat de messagebox verschijnt, die cel lichtblauw kleurt, zodat ik kan aangeven dat die cel beslist ingevuld moet zijn.

Je kunt dit ook met voorwaardelijke opmaak doen
Is de cel leeg dan een blauwe kleur is de cel gevuld dan niet gekleurd.

 

[Roughneck]

Het is voor elkaar, hoor. Dank jullie wel.