a1 < 3 dan pop-up

[esorone]

Hoi,

Ik zou heel graag een pop-up in excel willen hebben die omhoog komt als een bepaalde cel een bepaalde waarde krijgt.

Bijv. A1 <3 dan automatisch een pop-up met de tekst: A1 is kleiner dan 2.

Is dat mogelijk?

Wederom bedankt!

 

[Withaar]

Dat kun je doen met Validatie als het om invoer gaat.

Ga op de cel staat die je wilt controleren.
Ga naar Data, Validatie.

Kies bij Toestaan Geheel Getal.
Kies bij Gegeven groter dan
Kies bij Minimun 2

Onder het tabje foutmelding kun je nog wat extra instellingen doen.

Of bedoel je als resultaat van een formule, ook dat kan, standaard krijgt de gebruiker een waarschuwing die hij of zij echter kan accepteren.
Dit lijkt echter niet altijd goed te gaan, ben er nog niet helemaal uit hoe je dat kunt instellen.

 

[esorone]

Hoi,

Bedankt voor je reactie:

Ik bedoel eigenlijk: als cel A1<3 is, dan moet er een pop-up verschijnen. Deze makro moet dus de heletijd cel A1 in de gaten houden en als de waarde kleinder dan 3 wordt moet hij een pop-up geven.

Hoop dat ik me zelf iets duidelijk heb gemaakt.

 

[Withaar]

Als je het resultaat van een formules wilt controleren gebruik je Calculate;

Private Sub Worksheet_Calculate()
If Cells(1, 1).Value < 3 Then
MsgBox ("Waarde is te klein!")
End If
End Sub

Als via een macro invoer in een bepaalde cel wil controleren gebruik je Change;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If Target.Value < 3 Then
MsgBox ("Waarde is te klein!")
End If
End If
End Sub

 

[esorone]

Hoi,

Heel erg bedankt.

Trouwens A1 was een voorbeeld.
De daadwerkelijk data staat in F44.
Betekend dat ik dan de 1, 1 in 6, 44 moet veranderen?

Want hij werkt namelijk niet :-(

Ik gebruik de functie calculate.

 

[Withaar]

Tja, hier gaat excel wat mij betreft in een rare kronkel.

Als je Cells gebruikt moet je eerst de waarde van de rij en dan die van de kolom opgeven.

If Cells(44, 6).Value < 3 Then

Zou voor jou moeten werken.

 

[esorone]

JoepdieDOE..

Dit werkt inderdaad.

Dank je wel!

 

[Withaar]

Ik kreeg een prive vraag van GAJ, die ik hier even oppak.

Vraag:

U heeft 12-6 Esorone geantwoord op 12-6 inzake een vraag mbt automatische pop-up. Dit is voor mij ook erg handig alleen kan ik dit niet toevoegen omdat ik totaal geen ervaring heb met macro's en visual basic. Kunt u me vertellen hoe ik dit dusdanig onder de knie krijg zodat ik uw antwoord zelf ook kan gebruiken?

Bij
Private Sub Worksheet_Calculate()
If Cells(1, 1).Value < 3 Then
MsgBox ("Waarde is te klein!")
End If
End Sub

Staat de 1,1 voor de coordinatie in excel, bij 'cells' is dat overigens eerst de rij en dat de kolom coordinaat.
Vervolgens geef je aan wat je wilt controleren.

Bij
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If Target.Value < 3 Then
MsgBox ("Waarde is te klein!")
End If
End If
End Sub

Staat $A$1 voor de excel coordinaten...

De 'pop-up' waar je het over hebt komt als reactie op de uitkomst en wordt gemaakt door de code; MsgBox ("Waarde is te klein!")

Om de macro code te zien van/op een excel blad moet je op ALT+F11 drukken.
Voor meer info over VBA kan je hier een kijken.

Tja, ik weet niet wat ik er meer over uitleggen kan.