• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Wie kan mij helpen met Macro's of iets anderS?

Status
Niet open voor verdere reacties.
Dennis zoek eens verder , tussen rij 5 en rij 6 ontbreekt ook wat, wil je de tabel helemaal doorlopen?
 
probleempje voor oplosser (solver) ?
 
voortbordurend op post62,
er moet een reden bestaan om geen euro te nemen maar een mp ,of een blok.
als er geen voorkeur bestaat dan maak ik een subje die alleen euro's gebruikt.
 
Uhmm de reden is meer als het op 1 mp past moet het daadwerkelijk op 1 mp.
Als het op een euro past moet het op een euro, niet 2 x een mp.
Als het op 1 euro past kan het nl ook op 2 mp's, dat is niet goed.
zo min mogelijk verpakking

vb Boodschappenlijst : 36 cans en 4 vaten van 65 kg.

3 vaten en 12 cans = 1 euro.
24 cans = 1 euro
1 vat = 1 mp
Totaal 2 euro en 1 mp = 3 verpakkingen


4 vaten en 12 cans op 1 Blok
24 cans op 1 euro
totaal 1 x blok en 1 x Euro = 2 verpakkingen

4 vaten en 8 cans = 1 euro
24 cans = 1 euro
4 cans = 1 mp
Totaal = 3 verpakkingen

1 vat en 20 cans = 1 euro
3 vaten 12 cans = 1 euro
4 cans = 1 mp
Totaal = 3 verpakkingen

Dus zo min mogelijk verpakkingen bepaald of het op een Blok, Euro of MP wordt gezet.
 
er zijn deze 2 oplossingen voor de boodschappen:
1 euro,euro,blok
2 euro,euro,euro

welke moet er dan gekozen worden?

en ook deze:
1 euro,mp,blok
2 euro,blok,blok ?
 
Laatst bewerkt:
vertel eens hoe jij stap voor stap tot een oplossing komt. dan probeer ik dat stappen plan door de code uit te laten voeren.
 
Laatst bewerkt:
met oplosser doe je het zo (voorlopig nog handmatig)
Sylvester, ik kijk uit naar jouw oplossing, de vorige keer had je me ook al verrast met de oplossing en de snelheid van je macro.

In de groene cellen bovenin de gewenste aantallen invullen.
De oplosser laten lopen
eventueel filteren op de aantallen in G6 om de nullen niet te tonen.
 

Bijlagen

Code: 
If Dict.Exists("CAN+, VAT+") Then Aantal = Dict("CAN+, VAT+") Else Aantal = Dict("CAN+") And Aantal = Dict("VAT+")
               If Dict.Exists("CAN+") And Aantal >= 12 <= 16 And Dict.Exists("VAT+") And Aantal <= 2 Then a(1) = 1

Ik probeer dit d.m.v. van deze code, dit Werkt niet,

Dit is de boodschappenlijst;
2 x VAT 65 kg
16 x CAN 25 kg

Dit past op 1 euro.

Verder in de code heb ik;
Code: 
'Test -GOED- >64+ kg. 6 per pallet.
                If Dict.Exists("VAT+") Then
                Aantal = Dict("VAT+")                       
                i = Int((Aantal + 3) / 6)                  
                a(0) = a(0) + i                             
                Aantal = Application.Max(0, Aantal - i * 6) 
                If Aantal > 0 Then a(1) = a(1) + 1         
                End If

Dit telt die er ook bij.

" Als de eerste waarde Waar is dan hoeft het niet meer naar de andere te kijken.
 
ik zat te wachten op sylvester, normaal is hij een kei in het oplossen van dit soort vraagstukken buiten solver, dus zit hij te broeden op een ei of er scheelt iets anders.
Voor gehele getallen is solver soms niet goed en zou ik je meenemen voor een plan B "GAMS".

Wat je zonet voorstelde, begrijp ik niet goed, dat zal niet goed werken.

PS. dit pallettiseren, is dat voor sporadisch of voor continue gebruik ?
 
Laatst bewerkt:
met formules (ook een udfje naar kan ook met gewone excel formules) kom je al een heel eind . nu de nog de puntjes op de i (zie gele cellen)
 

Bijlagen

Dennis, als de tabel met vullingen per pallet e.d. er niet bij zit gaat het niets worden.
dus of je zorgt dat de tabel ook in je bestand staat of je moet ook het bestand openen waar die tabel in staat.
kies maar.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan