Dit is de code van form 1...
Voor Form 2 zouden er resultaten achter deze moeten komen... (in dezelfde rij, beginnende bij kolom 78)
Private Sub orderIsiva_Click() 'save
lastrow = ActiveSheet.UsedRange.Rows.Count + 1
Worksheets(naam).Cells(lastrow, 2) = orderweek 'week
Worksheets(naam).Cells(lastrow, 3) = orderprioriteit 'prioriteit
Worksheets(naam).Cells(lastrow, 4) = orderactiviteit 'activiteit
Worksheets(naam).Cells(lastrow, 5) = orderlijn 'lijn
Worksheets(naam).Cells(lastrow, 6) = ordermo 'mo
Worksheets(naam).Cells(lastrow, 7) = orderklant 'klant
Worksheets(naam).Cells(lastrow, 8) = orderklantcode 'klantcode
Worksheets(naam).Cells(lastrow, 9) = ordereindbestemming 'eindbestemming
Worksheets(naam).Cells(lastrow, 10) = orderordernummer 'ordernummer
Worksheets(naam).Cells(lastrow, 11) = orderartikelcode 'artikelcode
Worksheets(naam).Cells(lastrow, 12) = orderartikel 'artikel
Worksheets(naam).Cells(lastrow, 13) = orderzakkenperdoos 'zakken per doos
Worksheets(naam).Cells(lastrow, 14) = orderLx
Worksheets(naam).Cells(lastrow, 15) = ordergewichtperzak 'gewicht per zak
Worksheets(naam).Cells(lastrow, 16) = ordergewichtseenheid 'gewichtseenheid
Worksheets(naam).Cells(lastrow, 17) = ordercode 'code
Worksheets(naam).Cells(lastrow, 18) = orderzakken 'zakken
Worksheets(naam).Cells(lastrow, 19) = orderkartons 'kartons
Worksheets(naam).Cells(lastrow, 20) = orderpaletten 'paletten
Worksheets(naam).Cells(lastrow, 21) = orderkg 'kg
Worksheets(naam).Cells(lastrow, 22) = orderafhaaldatum 'afhaaldatum
Worksheets(naam).Cells(lastrow, 23) = orderkcode 'K-code
Worksheets(naam).Cells(lastrow, 24) = orderopmerking 'opmerking
Worksheets(naam).Cells(lastrow, 25) = orderkgu 'output kg/u
Worksheets(naam).Cells(lastrow, 26) = orderkuis 'kuis
Worksheets(naam).Cells(lastrow, 27) = orderopstart 'opstart
Worksheets(naam).Cells(lastrow, 28) = orderdoorlooptijd 'doorlooptijd
Worksheets(naam).Cells(lastrow, 29) = orderdoorlooptijdtxt 'doorlooptijd txt
Worksheets(naam).Cells(lastrow, 30) = orderbulk 'bulk
Worksheets(naam).Cells(lastrow, 31) = orderfolie 'folie
Worksheets(naam).Cells(lastrow, 32) = orderdozen 'dozen
Worksheets(naam).Cells(lastrow, 33) = orderhf1soort ' HF1 soort
Worksheets(naam).Cells(lastrow, 34) = orderhf1zakken 'HF1 zakken
Worksheets(naam).Cells(lastrow, 35) = orderhf1kartons 'HF1 kartons
Worksheets(naam).Cells(lastrow, 36) = orderhf1paletten 'HF1 paletten
Worksheets(naam).Cells(lastrow, 37) = orderhf2soort ' HF2 soort
Worksheets(naam).Cells(lastrow, 38) = orderhf2zakken 'HF2 zakken
Worksheets(naam).Cells(lastrow, 39) = orderhf2kartons 'HF2 kartons
Worksheets(naam).Cells(lastrow, 40) = orderhf2paletten 'HF2 paletten
Worksheets(naam).Cells(lastrow, 41) = orderhf3soort ' HF3 soort
Worksheets(naam).Cells(lastrow, 42) = orderhf3zakken 'HF3 zakken
Worksheets(naam).Cells(lastrow, 43) = orderhf3kartons 'HF3 kartons
Worksheets(naam).Cells(lastrow, 44) = orderhf3paletten 'HF3 paletten
Worksheets(naam).Cells(lastrow, 45) = orderhf4soort ' HF4 soort
Worksheets(naam).Cells(lastrow, 46) = orderhf4zakken 'HF4 zakken
Worksheets(naam).Cells(lastrow, 47) = orderhf4kartons 'HF4 kartons
Worksheets(naam).Cells(lastrow, 48) = orderhf4paletten 'HF4 paletten
Worksheets(naam).Cells(lastrow, 49) = orderhf5soort ' HF5 soort
Worksheets(naam).Cells(lastrow, 50) = orderhf5zakken 'HF5 zakken
Worksheets(naam).Cells(lastrow, 51) = orderhf5kartons 'HF5 kartons
Worksheets(naam).Cells(lastrow, 52) = orderhf5paletten 'HF5 paletten
Worksheets(naam).Cells(lastrow, 53) = orderhf6soort ' HF6 soort
Worksheets(naam).Cells(lastrow, 54) = orderhf6zakken 'HF6 zakken
Worksheets(naam).Cells(lastrow, 55) = orderhf6kartons 'HF6 kartons
Worksheets(naam).Cells(lastrow, 56) = orderhf6paletten 'HF6 paletten
Worksheets(naam).Cells(lastrow, 57) = orderhf7soort ' HF7 soort
Worksheets(naam).Cells(lastrow, 58) = orderhf7zakken 'HF7 zakken
Worksheets(naam).Cells(lastrow, 59) = orderhf7kartons 'HF7 kartons
Worksheets(naam).Cells(lastrow, 60) = orderhf7paletten 'HF7 paletten
Worksheets(naam).Cells(lastrow, 61) = orderthtdag ' THT dag
Worksheets(naam).Cells(lastrow, 62) = orderthtmaand 'THT maand
Worksheets(naam).Cells(lastrow, 63) = orderthtjaar 'THT jaar
Worksheets(naam).Cells(lastrow, 64) = orderthtdatumtxt 'THT datumtxt
Worksheets(naam).Cells(lastrow, 65) = orderhoudbaarheid 'houdbaarheid
Worksheets(naam).Cells(lastrow, 66) = orderproductiedatumdag 'productiedatumdag
Worksheets(naam).Cells(lastrow, 67) = orderproductiedatummaand 'productiedatummaand
Worksheets(naam).Cells(lastrow, 68) = orderproductiedatumjaar 'productiedatumjaar
Worksheets(naam).Cells(lastrow, 69) = orderproductiedatumtxt 'productiedatumtxt
Worksheets(naam).Cells(lastrow, 70) = orderproductieweek 'productieweek
Worksheets(naam).Cells(lastrow, 71) = orderlotnummer 'lotnummer
Worksheets(naam).Cells(lastrow, 72) = orderverpakkingsbeschrijvingnummer 'V.B.-nummer
Worksheets(naam).Cells(lastrow, 73) = orderlotnummeraveve1 'lotnummer AveveL
Worksheets(naam).Cells(lastrow, 74) = orderlotnummeraveve2 'lotnummer Aveve dag +20
Worksheets(naam).Cells(lastrow, 75) = orderlotnummeraveve3 'lotnummer Aveve week +10
Worksheets(naam).Cells(lastrow, 76) = orderlotnummeraveve4 'lotnummer Aveve maand +5
Worksheets(naam).Cells(lastrow, 77) = orderlotnummeraveve5 'lotnummer Aveve jaar +35
Unload Me
formOrder.Show
End Sub
