Opgelost formule vraag

[kibus]

hierbij, met de gevraagde uitkomst

 

[peter59]

Ik heb nogmaals een poging gewaagd.
Kijk eens in de bijlage of mijn hersenkronkel een beetje in de gedachtengang van jou komt.
Als dat niet zo is geef dan in de bijlage aan hoe jij het voor ogen hebt.
Tevens ook hoe je eraan komt.

 

[AD1957]

Toch nog een poging, wel met VBA
Wijzig de aantallen in kolom G

 

[kibus]

dank Albert dit ziet er heel goed uit!, ik heb alleen in G2 aantal vrij gezet op 55 de test uitkomst had dan moeten zijn 20

kan ik in dit bestand ook meerdere regels onder toevoegen ? om verder te testen?
en of artikelnummers van A naar B wijzigen?

 

[kibus]

Dag Peter dank voor je reactie

zie bijlage, en kolom k,

 

[AD1957]

reactie op #24
Als de uitkomst 20 moet zijn dan begrijp ik er niets meer van.
Dan zul je toch eens goed in Jan-Jippeke taal moeten uitleggen waarom het 20 moet zijn en niet 30
De hoogste prijs binnen de aantallen (vanaf beneden geteld) gerelateerd aan "op plank" is volgens mij 30
Geef eens duidelijk aan hoe je aan die 20 komt en waarom niet 30.

artikelen toevoegen/wijzigen ? , gewoon proberen.

p.s. jouw topic is meer dan 300 keer bekeken en je krijgt maar weinig reacties.
Het blijft een warrig verhaal.

 

[kibus]

Dag albert,

het gaat niet om de hoogste of laatste prijs, het gaat om de toereikbaarheid
van onder naar boven opgeteld, en dan een cel naar rechts

cellen c11+ c9 + c6 + c5 maakt 55 aantal vrij A is 55 dus toereikend, vanaf C5 een na rechts kom je op 20 meer niet , (terug te geven getal) het gaat dus niet om de goedkoopste of duurste. daar kom ik later.

stel op D9 staat een prijs van 60 staan en aantal vrij A op 55 dan nog is de terug te geven getal 20,

bij wijziging aantal naar A 35
dan is c11 + c9 + c6 toereikend en vanaf c6 een cel naar rechts dan is de terug te geven getal 25

bij wijziging aantal naar A 55
dan is c11 + c9 + c6+ C5 toereikend en vanaf c5 een cel naar rechts dan is de terug te geven getal 20

 

[AD1957]

Dan probeer dit eens.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G:G")) Is Nothing And Target.Count = 1 Then

    i = Cells(Rows.Count, "B").End(xlUp).Row

    aantal = 0
    waarde = 0
    maxwaarde = 0
    For ii = i To 2 Step -1
        If Target.Offset(, -1) = Range("B" & ii) Then
                aantal = aantal + Range("B" & ii).Offset(, 1)
                waarde = Range("B" & ii).Offset(, 2)
                
'                If waarde > maxwaarde Then maxwaarde = waarde
                Target.Offset(, 2) = waarde
                If aantal >= Target Then Exit For
            
            
        End If
        
    Next

End If

End Sub

 

[kibus]

merci merci Albert

klopt helemaal!, kun je dit ook in formule zetten ipv VBA?

 

[AD1957]

Ik niet, geen idee of dat kan.

 

[snb]

Zie de bijlage

 

[kibus]

Merci,

in mijn echte lijst staan 3100 rijen met aantallen en verschillende prijs. qua artikels zijn dit er 250 oplopend, waarvan een gemiddeld artikel 20 tot 30 keer voorkomend in de rijen heeft u misschien ook een formule waarmee beperkte hulpkolommen worden gebruikt?

 

[snb]

Het lijkt erop dat je weinig met onze suggesties doet.
Wil je een offerte om het te laten doen ?

 

[kibus]

Juist heel veel dank voor de suggesties met de macro code ben ik zeer dank vol , ik zal deze vraag op opgelost zetten

Nogmaals dank