Melding weergeven als voorraad als voorraad onder bepaalde waarde komt

Status
Niet open voor verdere reacties.

Mike151

Nieuwe gebruiker
Lid geworden
30 okt 2016
Berichten
1
Help!Bekijk bijlage voorraadbewegingen.xlsx

In Excel heb ik een systeem gemaakt dat automatisch berekent hoeveel producten er nog in voorraad zijn.
De bedoeling is nu dat er via een macro een berichtvenster verschijnt wanneer de voorraad 2 stuks bereikt. Het volgende moet dan weergegeven worden:" Er zijn twee of minder producten van dit artikel aanwezig in de voorraad. Wilt u dit product bekijken?"

Indien Ja: gaat men naar het respectievelijke product.
Indien Nee: dan sluit het venster.

Het komt erop neer dat als de cellen K3:K57 van het blad "Voorraadbewegingen" <= 2 zijn, dat het venster tevoorschijn komt.

Ik heb een poging gedaan om een macro te schrijven en ben het volgende bekomen:

Sub Voorraadwaarschuwing()
For k = 3 To 57
Next
If Sheets("Voorraadbewegingen").Cells(k, 1) <= 2 Then
MsgBox "Er zijn twee of minder producten van dit artikel aanwezig in de voorraad. Wilt u dit product bekijken?", vbYesNo, "Voorraadwaarschuwing"

If response = vbYes Then

If response = vbNo Then

End If

End Sub


Ik beheers de VBA taal niet dus ik doe beroep op jullie kennis.
Ik heb problemen met de celverwijzing naar excel en met de If functies.

Ik weet niet of het zou gebeuren maar het is ook niet de bedoeling dat de melding elke keer opnieuw verschijnt voor hetzelfde product als er ergens anders in de voorraad een wijziging gebeurt.

Dank bij voorbaat!
 
Probeer het eerst eens zo:
Code:
Sub Voorraadwaarschuwing()
    Dim i As Integer
    Dim Vraag As String
    
    Vraag = "Er zijn twee of minder producten van dit artikel aanwezig in de voorraad." & vbCrLf & _
            "Wilt u dit product bekijken?"

    For i = 3 To 57
        If Sheets("Voorraadbewegingen").Cells(i, "K") <= 2 Then
            If MsgBox(Vraag, vbYesNo, "Voorraadwaarschuwing") = vbYes Then
                [COLOR="#008000"]' Hier wat je dan wilt doen[/COLOR]
            End If
        End If
    Next
End Sub

In je voorbeeld document heet het blad trouwens niet Voorraadbewegingen maar Voorraadbewegingen (2).
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan