Dwingen tot invullen van CEL

[coen17stam]

Hey, Ik wil graag zodra er in een dropdown menu iets gekozen wordt een POPUP komt als er niets in een andere cel ingevoerd is. (zie bijlage)

Als in C3 iets gekozen wordt en er staat nog geen getal in B3 dan moet dit eerst.

Hopelijk kan iemand mij helpen.

 

[HSV]

Zet deze eens in de bladmodule van toepassing.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C3" And Target > 0 And Cells(3, 2) = "" Then
   MsgBox "POPUP"
   Application.Undo
 End If
End Sub

Of onderstaande, anders kun je de boel weer omzeilen door cel B3 weer leeg te maken.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  Select Case Target.Address(0, 0)
     Case "C3"
       If Cells(3, 2) = "" Then
         MsgBox "POPUP"
         Application.Undo
       End If
     Case "B3"
        If Target.Value = "" And Target.Offset(, 1) > 0 Then
           Target.Offset(, 1).ClearContents
        End If
   End Select
  Application.EnableEvents = True
End Sub

 

[coen17stam]

Super Harry! helemaal niet bekend met VSB hoe kan ik dit toepassen op elke regel? dus ook op C4 B4, C5 B5 enz.

 

[HSV]

Zoiets Coen?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  Select Case Target.Column
     Case 3
       If Target.Offset(, -1) = "" Then
         MsgBox "POPUP"
         Application.Undo
       End If
     Case 2
        If Target.Value = "" Then Target.Offset(, 1).ClearContents
   End Select
  Application.EnableEvents = True
End Sub

 

[coen17stam]

TOP! dit gaat mij pet te boven maar het werkt helemaal naar wens!

 

[HSV]

Graag gedaan.
Ik heb het nog iets ingekort (overbodige luxe).

Ps. het is trouwens Vba.

 

[coen17stam]

Hi Harry,

Ik heb wat aan de lijst toegevoegd in de dropdown menu maar nu werk het niet meer heb jij enig idee hoe dat kan? deze formule staat er nu in

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 3
If Target.Offset(, -1) = "" Then
MsgBox "POPUP"
Application.Undo
End If
Case 2
If Target.Value = "" Then Target.Offset(, 1).ClearContents
End Select
Application.EnableEvents = True
End Sub

 

[HSV]

Hallo Coen,

Laat het bestand eens zien waarin er wat niet werkt.
Vermeld ook even wat er niet werkt bij welke handeling.

 

[coen17stam]

Hi Harry,

Ik ben inmiddels achter wat het veroorzaakt, blijkbaar werkt het niet als er een ander excelsheet open staat welke geen macro's bevat. Waarom het dan niet werkt weet ik niet.

Mvg, Coen

 

[HSV]

Dat kan het nooit zijn Coen als de code in de bladmodule van toepassing is gezet.
Deze code gaat pas in werking als er in dat betreffende blad wat veranderd, anders niet.

 

[coen17stam]

Hm wat gek dan.

Ik heb ook nog een ander vraagje, ik wil dat zodra er XD gekozen wordt de cellen in dezelfde regel onder kolom (TC IN en TC OUT) geblokkeerd worden (niets kan invoeren) en donker wordt (zodat je ziet dat deze geblokkeerd worden)

Verder werkt alles naar behoren.

 

[coen17stam]

Hi Harry,

Srry als je al bezig bent, het hoeft niet meer de kolommen zijn niet meer nodig. Srry en bedankt voor je snelle reactie steeds!