Database

[Sary]

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

[djutoch]

Welke userform?   en welke Sheet? Sheet W kan ik niet vinden en je hebt 7 userforms.

[emielDS]

uw. resize (23) is te klein.

[djutoch]

Ik was iets te snel om te reageren. (excuses)

Ik heb je code eens beter bekeken, die was zo erken baar , die is afkomstig van een vroegere docent van mij.

Een paar opmerkingen.

@emielDS

Dit klopt niet, zijn sheet (met tabel) AM gaat tot kolom W of te wel kolom 23.

@Sary

Voor de rest, al de codes van staan vol fouten.

Trouwens in je vraag heb je de automatische nummering door elkaar aan het haspelen geweest ????

voor de rest:

Om een simpel voorbeeld te geven

In je code van VCA form refereer je naar "With Sheets("Vloeibare Chocolades - Analyses")"

Je hebt helemaal geen sheet "With Sheets("Vloeibare Chocolades - Analyses")"

Om op je initiële vraag te beantwoorden:

Probeer deze code eens voor je AM sheet met je AMfrm.

Private Sub Cmd_00_Click()
If T_19.Value = "Ja" Then
With Sheets("AM")
        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 23).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, T_21.Value, T_23.Value)
End With
End If
      If T_19.Value = "Nee" Then
With Sheets("AM")
        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 23).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, T_21.Value, T_23.Value)
End With
End If
reset
End Sub

:

 

 

 

 

 

 

 

8 oktober 2023 aangepast door djutoch

[emielDS]

Waarom zoveel code gebruiken als het met minder ook kan?

Database - bewerkbaar.xlsm

[Sary]

15 uren geleden, djutoch zei:

Ik was iets te snel om te reageren. (excuses)

Ik heb je code eens beter bekeken, die was zo erken baar , die is afkomstig van een vroegere docent van mij.

Een paar opmerkingen.

@emielDS

Dit klopt niet, zijn sheet (met tabel) AM gaat tot kolom W of te wel kolom 23.

@Sary

Voor de rest, al de codes van staan vol fouten.

Trouwens in je vraag heb je de automatische nummering door elkaar aan het haspelen geweest ????

voor de rest:

Om een simpel voorbeeld te geven

In je code van VCA form refereer je naar "With Sheets("Vloeibare Chocolades - Analyses")"

Je hebt helemaal geen sheet "With Sheets("Vloeibare Chocolades - Analyses")"

Om op je initiële vraag te beantwoorden:

Probeer deze code eens voor je AM sheet met je AMfrm.

Private Sub Cmd_00_Click()
If T_19.Value = "Ja" Then
With Sheets("AM")
        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 23).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, T_21.Value, T_23.Value)
End With
End If
      If T_19.Value = "Nee" Then
With Sheets("AM")
        iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
        .Cells(iRow, 1).Resize(, 23).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, T_21.Value, T_23.Value)
End With
End If
reset
End Sub

:

 

 

 

 

 

 

 

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.

[Sary]

Op 8/10/2023 om 22:08, emielDS zei:

Waarom zoveel code gebruiken als het met minder ook kan?

Database - bewerkbaar.xlsm 768.8 kB · 12 downloads

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

[Sary]

Zojuist, Sary zei:

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

 

Database aanpassing.xlsm

[emielDS]

Bedoel je dan zoiets?

Database aanpassing.xlsm

[Sary]

21 uren geleden, emielDS zei:

Bedoel je dan zoiets?

Database aanpassing.xlsm 523.53 kB · 3 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