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!
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!