Auteur Topic: Cel waarde en dan Message box (gelezen 7612 keer)

Math Reinders · « **Gepost op:** 27 februari 2018, 23:27:52 »

Hallo,
is het mogelijk als in een kolom, en in een cel van die kolom de waarde van bv 100 krijgt, dat er dan een message-box komt met een melding .
Gr. Math

RedHead · « **Reactie #1 Gepost op:** 28 februari 2018, 07:35:37 »

Dat ligt eraan hoe die waarde in die cel komt. Op basis van een formule kan het niet. Bij invoer kan je gebruik maken van de alert van celvalidatie.
Via vba kan het ook wel, maar daar ben ik geen voorstander van omdat je daarmee met een kanon op een mug loopt te schieten.

Ex-lid · « **Reactie #2 Gepost op:** 28 februari 2018, 08:35:16 »

VBA code:

Code: [Selecteer]

Private Sub Worksheet_Change(ByVal Target As Range)
Set oRange = Range("A:A")
If Intersect(Target, oRange) Is Nothing Then Exit Sub
If Target.Value = 100 Then
MsgBox "De cel " & Target.Address & " heeft de waarde 100 bereikt.", vbInformation, "OPGEPAST"
End If
End Sub

@ RedHead, ik vind muggen vervelende beesten, ieder middel om die uit te roeien is goed.

Math Reinders · « **Reactie #3 Gepost op:** 28 februari 2018, 08:46:34 »

Hallo RedHead,

de waarde wordt handmatig ingevoerd en als de waarde van deze cel en de waarde uit een cel in 3 kolommen verder (formule) samen groter als 100,00 is, dat dan een pop_up verschijnt.
Groetjes

Math Reinders · « **Reactie #4 Gepost op:** 28 februari 2018, 08:48:00 »

Hallo DochieJack,

waar zet ik die code in. Van VBA heb ik niet veel kaas van gegeten.

GR. Math

Ex-lid · « **Reactie #5 Gepost op:** 28 februari 2018, 09:08:57 »

Citaat

waar zet ik die code in. Van VBA heb ik niet veel kaas van gegeten.

Open de VBA editor met Alt +F11
kies het blad waar de melding moet komen.
Daar de code in plakken.
Set oRange = Range("A:A") deze aanpassen naar de juiste kolom.
If Target.Value = 100 Then deze aanpassen naar de juiste waarde of tekst
VB:If Target.Value = "OK"

SoftAid · « **Reactie #6 Gepost op:** 28 februari 2018, 10:41:10 »

Hallo Math,

Citaat van: Math Reinders op 28 februari 2018, 08:46:34

de waarde wordt handmatig ingevoerd en als de waarde van deze cel en de waarde uit een cel in 3 kolommen verder (formule) samen groter als 100,00 is, dat dan een pop_up verschijnt.

Dat is wel een andere vraag dan je oorspronkelijke...
die macro dient er op aangepast te worden.
Met " de waarde uit een cel in 3 kolommen verder " bedoel je een cel op dezelfde rij ??
Gaat het enkel om "1 cel in kolom x, rij Y" + "1 cel in kolom x+3, rij Y" ? Geen willekeurige cellen van dat moment?
Als het 2 vaste cellen zijn, geef dan even de Range van die cellen door.
"Hoe juister de vraag, hoe juister het antwoord..."

My 2 cents...

SoftAid

RedHead · « **Reactie #7 Gepost op:** 28 februari 2018, 11:28:51 »

Kijk, in dat geval is er geen letter VBA nodig en kan je het afhandelen met de ingebouwde functionaliteiten....

Vul in cel B4 maar 'ns een waarde in hoger dan 75. Je krijgt in de voorbeeldsituatie dan je error vanuit de celvalidatie. In de cellen F4 en G4 kan je ook een waarde invullen waardoor de formule van cel E4 de optelling maakt.

@Dotchie, trek je kanonnen maar weer terug. Ha ha ha...

SoftAid · « **Reactie #8 Gepost op:** 28 februari 2018, 11:53:34 »

Hallo RedHead,

ik lees wel nergens in de vraag van TS dat indien de SOM van de twee cellen groter is dan 100, deze moet geweigerd worden.
Ze moet enkel een melding tot gevolg hebben. Met de Voorwaardelijke Opmaak zoals je ze nu toepast kan er GEEN getal ingevuld worden waardoor de SOM groter wordt dan 99. Dat lijkt me dan ook weer niet opportuun ... ?

Dat is dan al 4 cent

SoftAid

pitufo · « **Reactie #9 Gepost op:** 28 februari 2018, 12:14:42 »

Mag ik ook meedoen ?
Wat bijvoorbeeld gedacht van een "afgezwakte" gegevensvalidatie ?
Als je bij het tabje "Foutmelding" onder "Stijl" niet kiest voor "Stop" maar voor "Waarschuwing" of "Info" kan je er alle kanten mee uit.
Groeten,
pitufo

RedHead · « **Reactie #10 Gepost op:** 28 februari 2018, 12:18:41 »

Citaat van: SoftAid op 28 februari 2018, 11:53:34

deze moet geweigerd worden

Ha ha ha.. Zie de nieuwe bijlage... het "stop" aangepast naar "warning". Nu mag je wél door...

[EDIT] @pitufo, dan zitten we weer goed op 1 lijn!

Math Reinders · « **Reactie #11 Gepost op:** 28 februari 2018, 16:31:00 »

Heren, bedankt.

alleen de VBA loopt niet, zegt altijd "er wordt een end sub verwacht"
gr. Math

SoftAid · « **Reactie #12 Gepost op:** 28 februari 2018, 17:18:50 »

Hallo Math,

in het bestand van RedHead worden geen macro's gebruikt.

Als je het over je eigen bestand hebt, controleer dan de code.
Dan staat er waarschijnlijk meer dan één Sub xxxxxx () of er staat onderaan de code geen End Sub

Een macro begint steeds met één Sub xxxxx (xxxxx)
en eindigt met één End Sub

Er mag ook geen code zonder Sub() of zonder End Sub staan onder je macro.

SoftAid

Ex-lid · « **Reactie #13 Gepost op:** 28 februari 2018, 17:28:28 »

@ SoftAid, ik denk dat uw hondje met de end sub weg is

SoftAid · « **Reactie #14 Gepost op:** 28 februari 2018, 18:44:17 »

Dotchie,

je kan gelijk hebben....

SoftAid

Sub ()

End Sub

Help!

Menu

Hulp bij posten

Zoeken

Recente topics