Waarschuwing bij een te lage invoer

[jv345]

Hallo,

In de onderstaande macro is het de bedoeling dat er een waarschuwing wordt gegeven indien er in kolom 10 een bedrag ingevoerd wordt lager dan 100.
Ergens zit een fout want het werkt niet.
Wat moet ik verder aanpassen indien ik deze controle ook op de kolommen 11 t/m 20 wil?
Wie helpt mij verder?


Sub Controle()
End Sub

Sub ActiveWorksheet_Change(ByVal target As Range)
If target.Column = 10 Then
If target.Value > 100 Then
Set Getal = .Find(target.Value)
If Not Getal Is Nothing Then
MsgBox "Dit getal is te laag!", vbCritical, "Niet toegestaan"
Range(target.Address) = ""
End If
End If
End If
End Sub

 

[Gert Bouwmeeste]

Is dit alle code of een deel er van? Ik mis bv al de declaratie van "Getal"

 

[bandito bob]

Waarom niet gewoon met valideren/voorwaardelijke opmaak ipv een macro?

 

[jv345]

Paul,

Je hebt gelijk dat dit ook met voorwaardelijke opmaak kan. Ik vind echter de box bij foute invoer niet zo mooi en dit betekent 10x voorwaardelijke opmaak definieren.
Vandaar mijn poging om dit via een macro te doen.
Voorwaardelijke opmaak blijft uiteraard wel een alternatief.

 

[jv345]

gert,

Dit is de hele code.
Moet ik dan iets doen met "Getal"?

 

[leofact]

met valideren kun je er voor zorgen dat er een boodschap komt wanneer er een getal lager dan 100 wordt ingevoerd.
Dat kun je op allee kolommen toepassen die je maar wil.
Eventueel is het ook mogelijk om een boodschap bij invoer te geven

Gewoon al de gewenste kolommen seleceteren
Menu Data > valideren
bv. geheel getal > Kleiner dan 100
En bij invoer en foutmelding je boodschap zetten.
mvg leo

 

[jv345]

Oke, bedankt voor jullie reacties.
Oplossing gevonden.