Popup via macro bij invullen cel.

[Pedrohermanez]

Ik maak een bestel lijst voor items die per 10 gaan. 1 bestellen is 10 ontvangen en 10 bestellen is dus 100 ontvangen.
Dit gaat regelmatig mis en heb daarom wat gezocht op oplossingen.
Ik vond dat je via Macro's pop upjes kunt creeren en wil daarom een iets hebben die bij het invullen van de cel automatisch aangeeft. 'let op bestellingen gaan per 10' (of iets dergelijks)

Ik ben helemaal nieuw in de wereld van de Macro's en heb jullie hulp nodig in deze voor mij zeer nieuwe en ingewikkelde materie!

Mochten jullie verdere vragen hebben hoor ik dat graag!

Alvast bedankt!

 

[Warme bakkertje]

Waarom macro's en popup's ? Je kan toch simpelweg een opmerking invoegen in de bewuste cellen.

 

[Joske2000]

Plak onderstaande code achter je blad "bestellijst"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1:A100"), Range(Target.Address)) _
           Is Nothing Then
        MsgBox "let op bestellingen gaan per 10"
    End If
End Sub

Joske

 

[arrie23]

Of maak gebruik van de optie gegevensvalidatie

 

[Pedrohermanez]

Check het is gelukt. Bedankt allemaal!

P.

 

[Warme bakkertje]

Of eentje die vanzelf terug verdwijnt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Columns(1), Target) Is Nothing Then
       CreateObject("WScript.Shell").Popup "Let op: Bestellingen gaan per 10", 1, "Waarschuwing", 64
    End If
End Sub