Validatie bij verplichte cellen

[LauravT]

Hallo,..

Ik ben gisteren al enorm geholpen met het verplichten van cellen,.. alleen als via deze verplichting de cel wordt gevuld wordt de gegevensvalidatie genegeerd,.. dit is uiteraard niet de bedoeling!!!
Zie bijgevoegd bestandje,..

Zou iemand mij kunnen vertellen hoe ik ervoor kan zorgen dat de gegevensvalidatie altijd wordt toegepast,.. dus bij wijziging van een cel!?

Alvast bedankt!

Groetjes,..

Bekijk bijlage 157521

 

[Niels28]

zo????

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
If Cells(45, Target.Column) < 0.7 And Target < Target.offset(0, 1) Then
MsgBox "waarde is te laag, vul een nieuwe waarde in."
x = 0
End If
End If
Loop
End If
End If
End Sub

Niels

 

[LauravT]

Ohh,.. echt super!
Geniaal,.. hartstikke bedankt!

 

[LauravT]

Zou het nou ook nog mogelijk zijn om met een wachtwoord oid de validatie te kunnen omzeilen!?

 

[Niels28]

userform toegevoegd ipv inputbox.

Bekijk bijlage Map12(2).xls

Niels

 

[Niels28]

zat nog een foutje in,
Je kon op het kruisje druken om af te sluiten, nu niet meer.

Bekijk bijlage Map12(3).xls

Niels

 

[LauravT]

Thanks,.. Maar waar kan ik het op te geven wachtwoord nu terugvinden?!

 

[LauravT]

Is het btw ook mogelijk om een annuleer-knop in te bouwen,.. voor het geval dat ze de wijziging willen annuleren!?

 

[Niels28]

Het wachtwoord is te vinden in de code achter het userform, het wachtwoord is nu Wachtwoord.
De annuleerknop begrijp ik niet, het userform wordt gestart als de cel leeg is, als je dan kunt annuleren is de celwaarde dus leeg.

Niels

 

[LauravT]

Oke,.. nee dan is annuleren geen optie,.. !
Maar,.. ik probeer het nu met wachtwoord "wachtwoord" maar hij doet vervolgens niets als ik op de knop druk,.. :s!?

 

[Niels28]

Het is met een hoofdletter, je kun dit in de macro vervangen door elk woord dat je zelf wilt.
Je moet wel een waarde in de eerste textbox zetten. Je kunt ook met paswoord geen lege cel invullen (dan loopt de macro fout)
is dit wel de bedoeling?

Niels

 

[LauravT]

Heb ik ook geprobeerd,.. werkt niet,.. !
Ik kan het wachtwoord ook niet terugvinden!? (voel me momenteel uberdom)

Dat ze niet leeg mogen zijn is geen probleem,.. oogt alleen minder mooi,.. !

 

[Niels28]

Alt F11
R.muisknop op userform1 => programmacode weergeven.


Kun je er meteen de aangepaste versie neer zetten zodat hij niet foutloopt als je niks in de eerste textbox hebt ingevult.
wachtwoord staat hier in de 4de regel

Private Sub CommandButton1_Click()
Dim x
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "Wachtwoord" Then
ActiveCell.Value = TextBox1.Value
x = 1
End If
Do Until x = 1
If TextBox1.Value = "" Then Exit Sub
x = 1
ActiveCell.Value = TextBox1.Value
If Cells(45, ActiveCell.Column) < 0.7 And ActiveCell < ActiveCell.Offset(0, 1) Then
MsgBox "waarde is te laag, vul een nieuwe waarde in."
TextBox1.SetFocus
x = 0
End If
Loop
UserForm1.Tag = 1
Unload Me
End Sub

Niels

 

[LauravT]

Ohh,.. die had ik niet gevonden,.. haha,.. thanks!

Maar helaas doet de knop nog niets bij mij,.. of ik het nou met of zonder wachtwoord probeer!

 

[Niels28]

Verwijder met delete een 8 uit een kolom waarvan cel 45 op <70% staat.
Vul dan als nieuwe waarde bv 2 in, druk dan op de knop.
Dan krijg je een melding dat deze waarde te laag is.
Vul nu het paswoord in (heb ik evenaangepast naar 123) en druk dan op de knop.

Bekijk bijlage Map12(4).xls

Niels

 

[LauravT]

GEWELDIG!
Nu doet ie inderdaad precies wat ik wil!

Dank je wel!