Makro til målsøgning/problemløser

Har du overvejet at lade makroen lave afrundingen efter målsøgningen?

Hej Jens48
Er ikke helt sikker på at jeg forstår denne løsning. Jeg kan sagtens lave en afrunding til sidst på totalen, men min første problemstilling er stadig at få målsøgningen til at komme forholdsvis tæt på den total som jeg ønsker.

Nu ved jeg ikke hvor mange steder i regnearket du har afrundinger, men jeg har haft et lignende problem i et ark med mange afrundinger. Det blev løst ved i begyndellsen af makroen at sætte en celle (S2) til 1 og så i alle celler med afrunding at bruge en formel à la:
=IF($S$2=1;$H18*O18/100;ROUND($H18*O18/100;2))
I slutningen af makroen (efter målsøgning) blev S2 så sat til 0 igen.

Hej Jens
Problemet er at jeg har 120 varenumre, som skal afrundes til hele paller og at summen skal give en bestemt produktionsmængde.
Varenummer 1 er måske 98 stk i den ene uge og i næste uge 105 stk (Rounding value på 7 stk)
Det er vigtigt for mig at summen af varenummer 1-120 giver tilnærmelsesvis 5.000 stk (+/- 20 stk), så derfor kan jeg ikke bare manipulere med resultatet til sidst, da jeg faktisk skal bruge resultaterne for alle 120 varenumre.

Jeg kan godt sende et eksempel i excel, hvis det skulle hjælpe.

Du skal være velkommen til at sende et eksempel, men da jeg har en stram plan jeg vil ikke love at kigge på den de første par dage. Du kan sende den til kober_soerensen(snabel-a)hotmail.com

Hej Jens
Jeg har sendt eksempel på mail, som du kan kigge på når du får tid.

Hej,
Har lidt problemer med min mail, så du får lige her en detaljeret beskrivelse af hvad jeg har gjort.
I det ark du sendte har jeg indsat nedenstående formel i celle D5
=IF($A$1;C5*D$1+3,5;CEILING(C5*D$1;7))
Den består af en ikke afrundet del og en afrundet del. Den ikke afrundede del bruges under målsøgning og den anden bagefter. Det bestemmes af A1, hvor jeg i begyndelsen af makroen indsætter 1, som igen slettes efter målsøgningen. D5 er kopieret til hele området D5:K23.
Makroen er ændret som følger:

Sub Goalseek()
'
' Goalseek Makro
'
Cells(1, 1) = 1
    Range("D26").Goalseek Goal:=Range("D27"), ChangingCell:=Range("D1")
    Range("E26").Goalseek Goal:=Range("E27"), ChangingCell:=Range("E1")
    Range("F26").Goalseek Goal:=Range("F27"), ChangingCell:=Range("F1")
    Range("G26").Goalseek Goal:=Range("G27"), ChangingCell:=Range("G1")
    Range("H26").Goalseek Goal:=Range("H27"), ChangingCell:=Range("H1")
    Range("I26").Goalseek Goal:=Range("I27"), ChangingCell:=Range("I1")
    Range("J26").Goalseek Goal:=Range("J27"), ChangingCell:=Range("J1")
    Range("K26").Goalseek Goal:=Range("K27"), ChangingCell:=Range("K1")
Cells(1, 1) = 0
End Sub

Hej Jens

Tusind tak for hjælpen. Egentlig simpelt nok, når man bare får ideen! Læg et svar, så får du dine velfortjente point.

Ja, det drillede også lidt da jeg selv havde problemet. Men godt at du kunne bruge løsningen