Waarde komt onder ingestelde waarde...

[CygneVoler]

Ik ben opzoek naar het volgende :
In kolom "B" staat een minimale voorraadwaarde van een artikel. b.v. 4. (per artikel verschillend)
Wanneer de waarde onder de ingestelde voorraadwaarde komt in kolom "B", moet er een melding komen. (b.v. het minimum is bereikt)

Is dit mogelijk?

Alvast bedankt, CooS

 

[SjonR]

Ja, dat is mogelijk.

 

[CygneVoler]

Dankje SjonR

Heb je suggeties.

 

[SjonR]

ja, maar daar zou een voorbeeldbestand bij helpen.

Hoe worden deze waarden afgeboekt bijvoorbeeld?

 

[CygneVoler]

ik ga ff kijken of ik een voorbeeld in elkaar kan knutselen...
Had alleen gehoopt dat het zonder voorbeeld zou lukken

 

[CygneVoler]

Hier het voorbeeldje.
Hoop dat het duidelijk is

Op het Tabblad ARTIKELEN is het kolom L
en in de userform staat deze onder 'veilige voorraad'

 

[edmoor]

Zo?

Private Sub Cmd_correctie_Click()
    If (T4.Text - T8.Text) < T9.Text Then
        MsgBox "Voorraad wordt te laag", vbCritical
        Exit Sub
    End If

 

[CygneVoler]

bij geeft ie op elk getal dat boven de ingestelde waarde ligt "voorraad wordt te laag"

 

[edmoor]

Je kan daar eenvoudige de berekening aanpassen als deze anders moet zijn.
De essentie lijkt me duidelijlk.

De berekening is nu:
Als (huidige voorraad - af te boeken voorraad) kleiner dan minimum voorraad, geeft dan een melding en verlaat de Sub.

 

[CygneVoler]

Edmoor de essentie is helemaal duidelijk, je uitleg ook. Maar het werkt niet.

Private Sub Cmd_correctie_Click()
With Sheets("Artikelen") 
.Cells(aanpasregel, "x") = T8.Value
End With
If (T4.Text - T8.Text) < T9.Text Then
        MsgBox "Voorraad wordt te laag", vbCritical
        Exit Sub
    End If
MsgBox "Correctie is doorgevoerd."
Unload Me
End Sub

 

[edmoor]

Je past nu eerst het werkblad aan en doet daarna pas de controle.
Dat is niet wat in het voorbeeld staat dat ik in #7 plaatste.

 

[CygneVoler]

Als ik #7 bovenaan plaats, zoals je voorbeeld, doet ie het ook niet. Hoe graag ik dat zou willen.

Private Sub Cmd_correctie_Click()
    If (T4.Text - T8.Text) < T9.Text Then
        MsgBox "Voorraad wordt te laag", vbCritical
        Exit Sub
    End If
With Sheets("Artikelen") 
.Cells(aanpasregel, "x") = T8.Value
End With

MsgBox "Correctie is doorgevoerd."
Unload Me
End Sub

 

[edmoor]

Leg dan uit wat je precies wilt.
Noem een voorbeeld uit je document.

Zoals deze:
Huidige voorraad: 5
Minimum voorraad: 4

Als je dan in voorraad afboeken 2 ingeeft en dan op Corrigeren klikt volgt de melding omdat de voorraad op 3, dus onder 4 komt en anders wordt er gewoon afgeboekt.

 

[CygneVoler]

Wat je zegt klopt helemaal.
Maar zet nu de voorraad in het tabblad eens op 20.
Open dan de USERFORM eens en boek er dan 5 in "voorraad afboeken" af ?
Welke melding krijg je dan?
Deze melding moet komen wanneer de voorraad niet hoger is dan 4, maar lager.

m.a.w. mijn minumum voorraad voor dit artikel mag niet lager zijn dan 4.

 

[edmoor]

Heb je het nu over "Huidige voorraad" of "Technische voorraad"?
Plaats gewoon eens zo'n plaatje als ik deed, dat maakt veel duidelijk.
Dat bedoel ik met een voorbeeld.

 

[CygneVoler]

Huidige voorraad is de voorraad die aanwezig is.
Bestelde voorraad + de huidige voorraad is de technische voorraad.

In dit voorbeeld plaatje is dus niet besteld, omdat de bestelde voorraad op nul (0) staat.

We corrigeren dus de voorraad wanneer er uit de huidige voorraad afgenomen wordt.

 

[edmoor]

Technische voorraad (22) - Voorraad afboeken (22) is kleiner dan 4, dus is de melding terecht.
Of ik snap niet wat he bedoelt.

Maar als de berekening anders moet zijn dan pas je die toch gewoon aan?

 

[CygneVoler]

laat de technische maar even voor wat het is.
Als ik 22 dozen mondkapjes heb staan in de huidige voorraad. Fysiek aanwezig.
En ik haal daar 4 dozen af. Dan heb ik 18 dozen als nieuwe huidige voorraad.
Maar wannneer ik 20 dozen van mijn voorraad af haal, heb ik nog 2 dozen op voorraad. En ja, dan klopt de melding, want die komt onder de veilige voorraad van 4
Dus moet er nieuwe voorraad besteld worden.
Dat is wat ik bedoel met de melding.

Het gaat er dus niet om of ik er 4 van de voorraad afhaal, maar als de fysike voorraad lager wordt dan 4.

 

[edmoor]

Dat zeg ik. je wilt de berekening dus anders.
Dan pas je die toch aan in de code?

 

[CygneVoler]

Bedankt voor het meedenken Edmoor.