Sary

Amai idd, dat wist ik niet. Nu werkt het bij mij ook. vriendelijk bedankt voor je hulp Emiel

Dag Emile, Bij mij slaat hij 3-4-5 over, bij jou niet in je vb bestand Database met aanpassing spoelboter en rtp(1)Dot (1).xlsm

Vraagje: wat klopt er niet aan deze code waardoor hij in mijn sheet de 2e lijn overslaat? Ik heb al geprobeerd om achter Row de +1 weg te doen maar er veranderd niets. Private Sub Cmd_00_Click() Dim geg As Variant Dim lastRow As Long geg = Array(T_0.Value, CDate(T_1.Value), T_2.Value, T_3.Value, T_4.Value, T_5.Value, T_6.Value, T_7.Value, T_8.Value, T_9.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _ T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_22.Value, T_23.Value, T_24.Value, RTP.Value) If T_19 = "Ja" Then With Sheets("Vloeibare beladingen") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If lastRow < 1 Then lastRow = 1 .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg End With End If With Sheets("Afgewerkte mengers") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If lastRow < 1 Then lastRow = 1 .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg LB_00.List = [AFMdata_tbl].Value End With reset End Sub Dit ook geprobeerd: vba Private Sub Cmd_00_Click() Dim geg As Variant Dim lastRow As Long ' Vul de geg-array met de waarden van de tekstvakken en andere controles geg = Array(T_0.Value, CDate(T_1.Value), T_2.Value, T_3.Value, T_4.Value, T_5.Value, T_6.Value, T_7.Value, T_8.Value, T_9.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _ T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_22.Value, T_23.Value, T_24.Value, RTP.Value) ' Controleer of T_19 gelijk is aan "Ja" voor het werkblad "Vloeibare beladingen" If T_19.Value = "Ja" Then With Sheets("Vloeibare beladingen") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg End With End If ' Voeg gegevens toe aan het werkblad "Afgewerkte mengers" With Sheets("Afgewerkte mengers") lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg LB_00.List = [AFMdata_tbl].Value End With ' Reset de formulierbesturingselementen reset End Sub Database met aanpassing spoelboter en rtp(1)Dot.xlsm

Beste experten, Vinden jullie het ok dat ik dit eens op een ander forum vraag? (PiepCompSupport ) ik heb alles geprobeerd met de info die ik gekregen heb maar het lukt mij niet. ik heb wel in mijn multipage fram RTP verwerkt nog een tekstvak bijgezet om ook daar de soort te laten verschijnen. Dit gewoon ter info Mvg, Sary

Gewoon raar dat het bij EmielDS wel lukt. Bij mij voegt hij niets toe in mijn sheet

Kon het me toch niet laten om te proberen maar ook dat geeft fouten aan. Helaas pindakaas😞

Ok, ik bekijk het morgen. Alvast bedankt voor de info

Dag emielDS, Wat afgewerkte mengers betreft, hier krijg ik nog steeds niets te zien bij soort als ik het materiaalnummer ingeef. Bij de andere, tankstalen,vloeibare,grondstoffen enz krijg ik steeds volgend scherm als ik bij materiaalnummer klik.. Foutcode.docx

Ook niet, soort blijft leeg..

Als ik dat doe haalt hij niets uit mijn lijsten, alles lijkt leeg dan.

Dag emielDS, ik heb dit hier direct gecontroleerd als ik thuis kwam. Het bestand is idd opgeslagen als xlsm. Maar heb nogmaals het laatste gepost bestand gedownload om zeker te zijn en bij mij werkt het niet. Ook de andere CommandButtons Tankstalen/vloeibare enz kan ik niet openen. Database aanpassing (1) (5).xlsm

Oesje, dan zou het daar kunnen aan liggen.. ik ga het vanavond direct bekijken.

ps: Ook de andere CommandButtons Tankstalen/vloeibare enz kan ik niet meer openen 😳

Dag emielDS, als jet materiaalnummer ingeeft, komt bij mij soort niet tevoorschijn, vroeger was het pijltje naar onder en dan verscheen het. Enter heb ik ook geprobeerd.. Bij jou lukt dit wel als ik in het blad ga kijken. Wat deo ik verkeerd? Alvast bedankt!

Dag emielDS, Dit is perfect waarvoor dank! ik wist wel wat ik wou, maar wist niet hoe dit uit te werken. Gelukkig met de hulp van jou heb ik wat ik wil😊 Het is door er al een 2 jaar mee te werken, dat we soms merken: zouden we dat er nog kunnen bij zetten.. ik ben zeer blij dat ik van begin tot nu hier terecht kan voor hulp, waarvoor 🙏

Database aanpassing.xlsm 716.38 kB · 9 downloads

Dag emielDS, Super! Dit is idd wat ik bedoelde. Mag ik nog eens iets vragen? Ik vraag me af, als ik spoelboter ja antwoord, kan ik daar dan een berichtbalkje laten verschijnen waar ik dan het aantal Kg in geef en hij deze dan ook in mijn sheet zet bij afgewerkte mengers en Vloeibare chocolade? Ik heb er ondertussen nog iets bijgezet: RTP verwerkt Ja/Nee, maar bij deze zou ik een aantal soorten moeten kunnen ingeven die hij dan ook in mijn sheet zet. Maar weet niet zo goed hoe dit op te bouwen. omdat het hier kan gaan over een aantal soorten waarvan ik dan de kilo's telkens moet noteren.. Ik wil je alvast bedanken voor de hulp! Database aanpassing.xlsm

Database aanpassing.xlsm

Dag emielDS, sorry dat ik nu maar antwoordt, was in verlof voor een week. Ik heb de benamingen er terug bij gezet want ja... ik maak het mezelf ingewikkeld op deze manier, en al zeker voor jullie. Ik heb het bekeken en ziet er goed uit, juist nog 1 probleem: Als ik op vloeibare belading ja druk zou hij deze ook in mijn sheet vloeibare beladingen moeten aanvullen maar dat doet hij nu niet meer..

Deze is gemaakt door Dotchiejack weliswaar zonder fouten. We werken in de originele database van hem. Maar deze gebruik ik om te kunnen bewerken. Daarom heb ik de benamingen weggedaan en juist de begin letters laten staan. Dit om zo weinig info op het net te plaatsen. we werken hier nu toch al iets meer dan twee jaar mee en zijn hier erg tevreden over.

Beste, iemand die me even wil bij staan? Ik zit namelijk met volgende vraag: Ik heb T_23.List = Split("Ja Nee") erbij gezet maar als ik dan bij T_19 Nee kies zet hij deze niet in mijn sheet W met als anDatabase - bewerkbaar.xlsmtwoord Nee. Private Sub UserForm_Initialize() T_00.Value = WorksheetFunction.Max([AMNrs]) + 1 T_01.Value = Format(Date, "dd/mm/yyyy") T_02.List = [lab_tbl].Value T_03_Populate T_13.List = Split("OK NOK") T_14.List = [met_tbl].Value T_15.List = Split("OK NOK") T_16.List = [mng_tbl].Value T_17.List = [tam_tbl].Value T_19.List = Split("Ja Nee") T_21.List = [klnt_tbl].Value T_23.List = Split("Ja Nee") Cmd_01.Enabled = False Cmd_03.Enabled = False With LB_00 .List = [AFMdata_tbl].Value .ColumnCount = [AFMdata_tbl].CurrentRegion.Columns.Count .ColumnWidths = "0;60;45;45;55;130;35;35;35;35;35;35;35;35;20;20;60;50;35;45;500;150;0" For i = 0 To .ListCount - 1 .List(i, 1) = Format(.List(i, 1), "dd/mm/yyyy") Next i End With End Sub Database - bewerkbaar.xlsm

Iemand die weet hoe het komt dat mijn mappen in OneDrive leeg zijn?

Mag afgesloten worden