Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Wat is de uitgangssitutatie, wat wil je bereiken en waarom, en wat heb je al gedaan waarover je niet tevreden bent ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 26 Then
Application.EnableEvents = False
If Cells(Target.Row, 19) - Target.Value > 0 Then
Cells(Target.Row, 19) = Cells(Target.Row, 19) - Target.Value
Target.Interior.Color = vbRed
End If
Application.EnableEvents = True
End If
End Sub
Hij werkt nog niet, want in row 25 geeft de besteller een getal op en dat zou van de telling in row 19 af moeten en het resultaat van de som in row 26 neer moeten zetten. kortom de teller van de pallet zet in S2 de telling neer de expeditie bestelt in Y2 een aantal pallets in Z2 zou het resultaat moeten komen en dan zoals ik in de code lees moet hij een aantal cellen vbRed weergeven. ik snap het wel een beetje hoe jij het doet maar kan zelf de vinger er niet achter krijgen ;-)In combinatie met je layout snap ik het nog niet helemaal, maar zet dit eens achter Blad1:
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Column = 26 Then Application.EnableEvents = False If Cells(Target.Row, 19) - Target.Value > 0 Then Cells(Target.Row, 19) = Cells(Target.Row, 19) - Target.Value Target.Interior.Color = vbRed End If Application.EnableEvents = True End If End Sub
Het enige wat de code doet is de waarde van een cel van de waarde in een andere cel in dezelfde regel aftrekken en dat doet 'ie goed. Als het niet de bedoeling is leg je niet goed uit wat je nu precies wilt.
Heb even gekeken, wat er moet gebeuren: de teller in het magazijn vult smorgens in S2 in een bepaald getal, de planner expeditie geeft in Y2 op dat hij bijv 2 pallets eraf gaat halen die dag, dan moet hij in vba Y2 van S2 aftrekken en in het rood neerzetten wat er gepland is voorbeeld er staan 4 pallets door de teller geteld en de expeditie wil er 2 hebben die vult dat in en dan moet er staan dat er 2 pallets in het rood staan en het getal moet goed zijn (2 )ik ga morgenochtend nog even kijken, vroeg op en laat je weten of het gelukt is,
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.