Sary

Ok, dikke merci voor jullie hulp. Hiermee kan ik verder. Dan mag dit afgesloten worden.

Mijn excuses iets te snel geweest😔 Het werkt zeer goed en ik ben hier zeer tevreden over. Kan ik toevallig enkel die button Userform Berekening op de voorgrond laten verschijnen zodanig dat de rest verborgen zit? Anders kan er door andere misschien in geknoeid worden...

Dag Bakerman, Ik ben terug uit verlof en heb dit onmiddellijk getest vandaag. Maar ik krijg hier een fout boodschap over Macros. Wat moet ik u doen om dit te testen? Alvast bedankt!

Dag Bakerman, thanks, maar ik zit momenteel in Kroatië op verlof. Van zodra ik thuis ben probeer ik het uit😉

Vind nergens iets terug, dit is het enige wat ik nog staan heb. Gisteravond nog zitten zoeken maar helaas… ik ga moeten kijken of ik het opnieuw in vba kan maken. In die excel file werkt het natuurlijk ook, maar ik heb dit liever in een soort dashboard/formulier

Ok, Dan moet ik eens zoeken waar die zit. Ik hou je op de hoogte. Alvast bedankt om te kijken..

Dag emielDS, bedoel je dan die excel visco/chart?

Beste experten, Ik heb eens een vraagje: Mijn berekenings-userform werkt niet meer op mijn nieuw computer. Ik krijg steeds een foutmelding (zie bijgevoegde afbeeldingen) ik heb wel de originele Excel file nog maar het is eigenlijk de bedoeling dat ik enkel berekeningen uitvoer via het UserForm1. Iemand die weet hoe ik dit kan oplossen?Dynvisc.xlsmDynvisc.xlsmDynvisc.xlsmDynvisc.xlsmDynvisc.xlsm

Bedankt voor de tip

Ja had toch gelijk, maar het was de spatie waar de fout zat. Alvast bedankt om mee te zoeken. Ik zat er dichtbij...

Dat had ikzelf ook allemaal al geprobeerd en veranderd. het moet ergens anders aan liggen

Ik heb hier eens een bestandje gedownload van in April en blijkt ook daar in te zitten. Als ik bij Tankstalen eindstalen iets wil ingeven en dan ingeven, krijg ik dezelfde fout Database met aanpassing spoelboter en rtp(1)Dot (1).xlsm

Daar had ik ook al naar zitten zoeken, ofwel kijk ik er over. Ik, ga nog eens controleren dan

iemand die me raad kan geven, ik krijg volgende foutcode: Het subscript valt buiten het bereik Waar moet ik een wijziging aanbrengen?

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