Formulier VBA

[Sary]

Beste,

 

 

Ik heb er nog 3x combobox T_19-T_20-T_21 bij gezet.

T19 moet hij halen uit mijn lijst N2. T20 moet ik een waarde kunnen invullen en T21 moet ik JA/Nee kunnen ingeven.

Hoe zet ik deze erbij?

 

 

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.List = [mn_tbl].Value
T_13.List = Split("OK NOK")
T_14.List = [met_tbl].Value
T_15.List = Split("OK NOK")
T_16.List = [mng_tbl].Value
 

[emielDS]

plaats een voorbeeldbestand aub

[Sary]

Dag emielDS,

 

bij deze..

PLoegoverdracht.xlsm

[Sary]

Ps: Team stond er niet bij

PLoegoverdracht.xlsm

[Sary]

1 uur geleden, dotchiejack zei:

Zo?

 

1 uur geleden, dotchiejack zei:

 

PLoegoverdracht-1.xlsm 118 kB · 9 downloads

 

[Sary]

Dag Dotchiejack.

 

 

Amai, je maakt men dag goed! Dit moet het inderdaad zijn. Wat ik juist opmerk is dat het toevoegen van extra boter niet opgeslagen wordt in mijn database.

Voor de rest is alles goed.

 

1000X bedankt om me toch nog te willen ondersteunen

 

 

 

Mvg

2 januari 2021 aangepast door Sary

[Sary]

Bestaat er ook nog een code als je vloeibare belading aan vinkt in afgewerkte mengers , dat deze dan wordt opgeslagen in sheet vloeibare belading?

 

[Sary]

Op 2/1/2021 om 19:07, dotchiejack zei:

Is geen enkel probleem, maar in je voorbeeld is er geen sheet vloeibare belading, graag eerst een voorbeeldje bezorgen.

 

Waarom niet, wij hadden ons klein misverstand toch al weken geleden bijgelegd.

 

 

 

Ik heb wat ik moet hebben dankzij jou.

 

Wat ik juist bedoelde is: Als je bij afgewerkte mengers vloeibare belading: Ja/Nee aan vinkt, dat hij deze niet naar de database van de afgewerkte mengers zet, maar direct in deze van vloeibare chocolades-Analyses. 

 

[bakerman]

In Afgewerkte Mengers userform vervang de Private Sub Cmd_00_Click() door onderstaande.

Private Sub Cmd_00_Click()
If T_19 = "Ja" Then
    Set ws = Sheets("Vloeibare Chocolades - Analyses")
    T_00.Value = Application.Max([VCANrs]) + 1
Else
    Set ws = Sheets("Afgewerkte mengers")
End If
With ws
    iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    .Cells(iRow, 1).Resize(, 21).Value = Array(T_00.Value, CDate(T_01.Value), T_02.Value, T_03.Value, T_04.Value, _
    T_05.Value, T_06.Value, T_07.Value, T_08.Value, T_09.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)
End With
reset
End Sub

 

[bakerman]

@dotchiejack En met jouw oplossing krijg je foutmeldingen in de laatste 4 kolommen.