VBA

[Sary]

Beste,

 

 

volgende code lukt mij niet om automatisch in te vullen na ingaven van het materiaalnummer.

 

Ik heb deze toegepast bij AMfrm - EMfrm - TSESfrm en hier lukt dit.

 

juist voor GSFfrm (ontvangen grondstoffen ) lukt het mij  niet:

 

Private Sub T_02_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    T_02_Populate

End Sub

Sub T_02_Populate()

    arrIn = [mn_tbl].Value

    ReDim arrOut(1 To UBound(arrIn), 1 To 2)

    For i = 1 To UBound(arrIn)

        If arrIn(i, 1) Like T_03.Text & "*" Then

            j = j + 1

            arrOut(j, 1) = arrIn(i, 1)

            arrOut(j, 2) = arrIn(i, 2)

        End If

    Next

        T_02.List = arrOut

End Sub

 

 

Ploegoverdracht 09012021.xlsm

19 januari 2021 aangepast door Sary

[Sary]

@dotchiejack,

 

 

Als je nog eens moest tijd hebben?

We zijn gestart met deze te gebruiken, deze waar ik de aanpassing al kunnen doen heb en gelukt is zijn in orde, enkel deze van grondstoffen lukt me niet:-(

 

 

Mvg

[bakerman]

Je stuurt een bestand zonder data.

 

Hoe kunnen wij weten waarop te zoeken als de mn_tbl waarnaar je verwijst leeg is ?

[Sary]

Dag Bakerman,

 

 

Sorry verkeerd bestand gestuurd.

Was hier ondertussen nog bezig bij tankstalen nog tank en lijn er bij te zetten, maar krijg steeds foutcode. Ik doe nochtans mijn best maar weet niet waar mijn fout zit.

 

 

Alvast bedankt!

Ploegoverdracht 09012021.xlsm

[bakerman]

Als ik het dan goed begrijp zal volgende voldoen.

 

Alhoewel ik de bedoeling niet vat aangezien Materiaalnummer al gevuld wordt met deze lijst bij het openen v/h formulier.

Ploegoverdracht 09012021.xlsm

[Sary]

1 uur terug, bakerman zei:

Als ik het dan goed begrijp zal volgende voldoen.

 

Alhoewel ik de bedoeling niet vat aangezien Materiaalnummer al gevuld wordt met deze lijst bij het openen v/h formulier.

Ploegoverdracht 09012021.xlsm 113 kB · 0 downloads

Klopt, dit is wat wilde ik bereiken. 

Het probleem was dat ik over de 200 materiaalnummers heb die dan gekoppeld zijn aan de soort. Aangezien ik niet kan scrollen en enkel op het pijltje naar beneden kan duwen duurt dit te lang om te zoeken.

 

Heb je toevallig mijn volgend bericht opgemerkt?

 

 

Alvast super bedankt!

 

Mvg,

 

[bakerman]

Private Sub UserForm_Initialize()
T_00.Value = WorksheetFunction.Max([TSESNrs]) + 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_12.List = [tnk_tbl].Value
T_18.List = [ln_tbl].Value
Cmd_01.Enabled = False
Cmd_03.Enabled = False
With LB_00
        .List = [TSESdata_tbl].Value
        .ColumnCount = [TSESdata_tbl].CurrentRegion.Columns.Count
        .ColumnWidths = "0;70;80;70;70;110;60;60;40;40;40;60;40;30;80;30;0"
For i = 0 To .ListCount - 1
    .List(i, 1) = Format(.List(i, 1), "dd/mm/yyyy")
Next i
End With
End Sub

 

Als het over bovenstaande gaat verwijs je bij T_12 en T_18 naar niet-bestaande tabellen en dat genereert foutmeldingen bij het openen van Tankstalen form.

[Sary]

47 minuten geleden, bakerman zei:

Private Sub UserForm_Initialize()
T_00.Value = WorksheetFunction.Max([TSESNrs]) + 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_12.List = [tnk_tbl].Value
T_18.List = [ln_tbl].Value
Cmd_01.Enabled = False
Cmd_03.Enabled = False
With LB_00
        .List = [TSESdata_tbl].Value
        .ColumnCount = [TSESdata_tbl].CurrentRegion.Columns.Count
        .ColumnWidths = "0;70;80;70;70;110;60;60;40;40;40;60;40;30;80;30;0"
For i = 0 To .ListCount - 1
    .List(i, 1) = Format(.List(i, 1), "dd/mm/yyyy")
Next i
End With
End Sub

 

Als het over bovenstaande gaat verwijs je bij T_12 en T_18 naar niet-bestaande tabellen en dat genereert foutmeldingen bij het openen van Tankstalen form.

Hoe bedoel je? Ik heb in mijn data ( Tankstalen- Eindstalen ) nochtans in kolom R Tank en S lijn staan. Bij lijsten heb ik in kolom O Tank en kolom P Lijn Staan..

[bakerman]

Maar op je Blad Lijsten had je 1 grote tabel gemaakt van de 3 kolommen Team, Tank en Lijn.

Ploegoverdracht 09012021.xlsm

[Sary]

Dag Bakerman,

 

 

 

Inderdaad, ik heb jouw aanpassing bestudeerd en nu begrijp ik wat je bedoelde. 

Alvast bedankt voor de hulp.

 

 

Mvg,