Multidesk.be » Forums » Internet-gerelateerde software » Pop up scherm in excel

  • Pagina
  • 1 van 1
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door steelgate op donderdag 23 februari 2017 om 15:36:04.
steelgate's avatar
Multiviteit: 1571
What's up doc !!!
Ik ben bezig in excel met cijfers (met wat anders - haha) :P

Maar is er een mogelijkheid dat er een pop up scherm te voorschijn komt als vb. een bedrag hoger is een 500€ (dat je in dat scherm een tekst verschijnt)

Death is the greatest thing of all that's why we save it 4 last
^ Reactie #1 geschreven door Cdude op vrijdag 24 februari 2017 om 20:01:12.
Cdude's avatar
Multiviteit: 5410
Eat my shorts :)
Hier zou het mee moeten lukken, denk ik ?

https://www.exceltrainingvideos.com/how-to-create-notifications-or-reminders-automatically-in-excel/
Deze tekst werd het laatst bewerkt voor 9.29 % door Cdude op vrijdag 24 februari 2017 om 20:03:15.
"Two things are infinite: the universe and human stupidity; and I'm not sure about the universe."
"Friendship is like peeing in your pants : everybody can see it but only u can feel it's warmth"
^ Reactie #2 geschreven door steelgate op maandag 27 februari 2017 om 08:34:49.
steelgate's avatar
Multiviteit: 1571
What's up doc !!!
Thanks
Death is the greatest thing of all that's why we save it 4 last
^ Reactie #3 geschreven door Cdude op dinsdag 28 februari 2017 om 18:45:42.
Cdude's avatar
Multiviteit: 5410
Eat my shorts :)

Dixit


Laat je weten als het lukt en hoe ? _O_
"Two things are infinite: the universe and human stupidity; and I'm not sure about the universe."
"Friendship is like peeing in your pants : everybody can see it but only u can feel it's warmth"
^ Reactie #4 geschreven door steelgate op woensdag 1 maart 2017 om 13:11:42.
steelgate's avatar
Multiviteit: 1571
What's up doc !!!
Is het gelukt. Heb wel nog van iemand hulp gekregen, maar dit is alvast de code.

CODE
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Const Storten = 750
  3.     Select Case Target.Row
  4.         Case 7 To 37:      If Range("Q10").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  5.         Case 43 To 70:     If Range("Q46").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  6.         Case 77 To 109:    If Range("Q82").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  7.         Case 113 To 144:   If Range("Q118").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  8.         Case 149 To 181:   If Range("Q154").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  9.         Case 185 To 216:   If Range("Q190").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  10.         Case 221 To 253:   If Range("Q226").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  11.         Case 257 To 289:   If Range("Q262").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  12.         Case 293 To 324:   If Range("Q298").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  13.         Case 329 To 361:   If Range("Q334").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  14.         Case 365 To 396:   If Range("Q370").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  15.         Case 403 To 433:   If Range("Q406").Value >= Storten Then MsgBox "DRINGEND STORTEN", vbInformation + vbOKOnly
  16.     End Select
  17. End Sub
  18.  
  19.  
Deze tekst werd het laatst bewerkt voor 5.08 % door steelgate op woensdag 1 maart 2017 om 13:12:13.
Death is the greatest thing of all that's why we save it 4 last
^ Reactie #5 geschreven door Cdude op woensdag 1 maart 2017 om 16:52:31.
Cdude's avatar
Multiviteit: 5410
Eat my shorts :)
Gracias (maakt niet uit hoe, belangrijkst is dat het gelukt is ;))

Ik heb een vraagje : op wat slaan de "Qcijfer" 'en ?
Deze tekst werd het laatst bewerkt voor 30.57 % door Cdude op woensdag 1 maart 2017 om 16:55:44.
"Two things are infinite: the universe and human stupidity; and I'm not sure about the universe."
"Friendship is like peeing in your pants : everybody can see it but only u can feel it's warmth"
  • Pagina
  • 1 van 1

Snel-antwoordformulier
Toon uitgebreid antwoordformulier Bericht nalezen Bericht plaatsen