• 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.

Aanpassingen bestaande zaaglijst

Status
Niet open voor verdere reacties.
Ben even weggeweest en reageer dus wat laat.

Ik denk dat ik het nu een beetje snap.
Je heb 5 strippen nodig en de 2 staat voor 2 stippen voor 4 x 900 en 2 x 530
Een beetje verwarrend misschien of het licht aan de hoge leeftijd van mij?

Nu nog de vraag: Hoe maak ik het sorteerkeuze menu leeg?
Er staan maten in die ik niet heb ingevoerd.
 

Bijlagen

  • Kopie van Zaaglijst.xlsb
    80,4 KB · Weergaven: 56
Ik snap dat het misschien verwarrend kan zijn, maar ik heb het model zo aangepast, dat het voor ons fijne tool is.
(Namelijk het zagen van glaslatten, waarbij er gebruik wordt gemaakt van multibar (meerdere lengtes tegelijk zagen))
Dit hoeft natuurlijk niet voor iedereen de meest logische oplossing te zijn.

Wat bedoel je precies met sorteerkeuze menu? Ik ben bang dat ik je niet helemaal begrijp.
 
Mike,

Sorry ik had het verkeerde plaatje bigevoegd.
Als je het bijgevoegde plaatje bekijkt, staan er maten in die niet in de lijst staan.
Ik heb alleen de 900 en 530 ingevuld, na het eerst leeggemaakt te hebben.
 

Bijlagen

  • Verdeling.jpg
    Verdeling.jpg
    70,6 KB · Weergaven: 89
Laatst bewerkt:
Ik vind in de bijlage alleen een Excelbestand, geen plaatje.
In het Excelbestand vind ik enkel de maten 900 en 530.

Zou je misschien in het bestand kunnen aangeven wat je precies bedoeld, of er een screenshot van kunnen maken?
 
Ik snap wat je bedoeld nu! Ik heb even gekeken, maar ik ben bang dat ik het zelf ook niet helemaal snap.
Het is wel (tijdelijk) op te lossen door de gegevensbron aan te passen en dan weer terug te zetten.
Echter, wanneer je dan weer opnieuw gaat berekenen en het vervolgens weer wist, doet zich hetzelfde weer voor!?
 
Zelf vind ik het ook vreemd.
Misschien als sylvester-ponte kijkt dat hij het weet.

Afwachten maar.

Bedankt voor de reacties, fijn weekend.
 
Zet in de opties van de draaitabel in de tab gegevens bij 'Aantal items per veld dat behouden moet blijven' geen. Vervolgens de draaitabel verversen.
 
geef in dit bestand eens aan wat er fout gaat?

ps mike, moet dat blad "optimalisatie" er misschien uit?

en ik zie dat de zaagbreedte in B1 niet wordt aan gepast als je op 45 graden drukt.

misschien kan iemand vertellen waarom het zaag verlies bij 45 graden in eens 15 wordt.
ik ken een systeem waarbij het verlies juist terug loopt naar 2 mm
 

Bijlagen

  • Zaaglijst nieuw (test 1.xlsb
    78,7 KB · Weergaven: 50
Laatst bewerkt:
Rekenkundig, veruit het moeilijkste, zal het wel goed gaan.:thumb:

Is dit niet voldoende voor het grondig wissen van de gegevens?
Code:
Sub Wissen()
  If MsgBox("Resultaten van deze berekening wissen?", vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then
    Range("B15:F" & Application.Max(16, Cells(Rows.Count, 2).End(xlUp).Row)).ClearContents
      With Sheets("Optimalisatie").PivotTables(1).PivotCache
        .MissingItemsLimit = 0
        .Refresh
      End With
  End If
End Sub
 
sylvester-ponte ,

Bedankt voor de nieuwe zaaglijst, deze is minder verwarrend maar het probleem bleef.
Zie het plaatje in #24

VenA,

Met het stukje code om alles te wissen werkt uitstekend.
Hier is ook het probleem mee opgelost van het plaatje.

Beide hartelijk bedankt.
 
Sorry voor de late reply! De notificaties zijn blijkbaar even aan mij voorbij gegaan:confused:

Ik zie dat de inderdaad dat de zaagbreedte en kopstaartverlies niet worden aangepast.
Hier is een simpele verklaring voor, namelijk dat in de userform de verwijzingen niet goed staan.
Heel stom dat mij dit nu pas opvalt (wij gebruiken altijd dezelfde instellingen).

Wat betreft het probleem 45/90 graden, dit gebeurde omdat het keuzerondje gekoppeld was aan cel A1.

Ik heb de fouten verwerkt en aangepast in het bijgevoegde document, als het goed is werkt alles nu naar behoren!

Het verlies van 15 mm is enkel een keuze van de gebruiker. Wij gebruiken 15 mm omdat je bij 45 graden vaak een stuk overlengte zaagt.

ps Jouw berekening doet verder niet met de minimum herbruikbare lengte, of heb ik dat verkeerd? Anders haal ik deze even uit de userform.

geef in dit bestand eens aan wat er fout gaat?

ps mike, moet dat blad "optimalisatie" er misschien uit?

en ik zie dat de zaagbreedte in B1 niet wordt aan gepast als je op 45 graden drukt.

misschien kan iemand vertellen waarom het zaag verlies bij 45 graden in eens 15 wordt.
ik ken een systeem waarbij het verlies juist terug loopt naar 2 mm
 

Bijlagen

  • Zaaglijst Laatste Versie.xlsb
    79,1 KB · Weergaven: 40
Bedankt voor de update van het programma.
Ik weet niet of je het ook gemerkt heb, als je b.v.b. 2 x4 stuks van div. Lengte nodig heb.
Dan loopt de macro vast, ik weet niet waar en wat er aan gepast moet worden.
Zodat dit niet gebeurd.
 
Is dit enkel bij de laatste versie zo, of ook al bij de voorgaande?
Zou je eens een voorbeeld kunnen posten waar dit gebeurd?
 
Ik heb net uw laatste versie gedownload en getest.
Nu loopt hij niet vast op 2 x 4 stuks div. lengte.

Deze ga ik dus gebruiken. :thumb: hartelijk bedankt.
 
Hetgeen waar EA over sprak is bij mij nu ook voorgekomen.
Om een bepaalde reden valt bij de controle het subscript buiten het bereik omdat er minimaal 9 "Gewenste lengtes" ingevuld moeten zijn.

Onderstaand een voorbeeld waar het mis gaat:
Bekijk bijlage Zaaglijst met fout.xlsb

Nu staan er 8 "Gewenste lengtes" in, wanneer ik het uitbreid naar 9 of meer lengtes, dan gaat het goed.
Ik kan alleen zelf niet uitvogelen waar ik dit bereik aan kan passen.
 
De variabele 'HoofdTabel' krijgt niet juiste dimensie als er minder dan 8 'gewenste lengtes' ingevoerd zijn. (is een kwestie van debuggen);)

Code:
ReDim HoofdTabel(List.Count + 3, Application.Max(9, Lengten.Count))

Aangezien alle parameters op hetzelfde blad staan als waar de knop staat kan je de procedure ook zo aanroepen ipv Sub test
Code:
Sub VenA()
  Zagen Columns(2).SpecialCells(2, 1), [C5], [B1], [A1], [D15]
End Sub
 

Bijlagen

  • Zaaglijst met fout.xlsb
    78,9 KB · Weergaven: 36
VenA,

Deze versie werkt goed op een ding na.
Als je bij instellingen de standaardlengte verander van 6000 naar 2700 (bouwmarkt afwerk lat lengte),
dan gaat het fout bij 4 x 900 en 4 x 530

Bij een standaardlengte van 6000 en 4 x 900 en 4 x 530 gaat het wel goed.

Is dit ook op te lossen?

Alvast hartelijk bedankt.
 

Bijlagen

  • Instelling.jpg
    Instelling.jpg
    26,6 KB · Weergaven: 54
  • Code.jpg
    Code.jpg
    71,6 KB · Weergaven: 60
Laatst bewerkt:
Code:
Sub VenA()
  Zagen Columns(2).SpecialCells(2, 1), [C5], [B1], [A1], [D15]
End Sub

Mooie optimalisatie, was mij totaal niet opgevallen. Heb het er in aangepast:thumb:

@EA
Verander je in de code "9" in "10", dan werkt het voor de lengten 6000 en 2700, nu weet ik alleen niet hoe dynamisch die "T" is en wat er gebeurd als je die "10" wat hoger inzet.
Niet dat die "10" steeds aangepast moet worden wanneer je een andere lengte neemt.
Code:
ReDim HoofdTabel(List.Count + 3, Application.Max(9, Lengten.Count))

@VenA
Wanneer ik nu de sub Wissen() gebruik, krijg ik ook een foutmelding.
Bekijk bijlage Zaaglijst onderbreking wissen.xlsb
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan