Goede avond allen,

Ik heb een bestand bij elkaar gesprokkeld, maar kom niet verder.
Het is een formulier om manuren in de bouw bij te houden, en uiteindelijk een xls bestand van te maken welke verwerkt kan worden in bijvoorbeeld BI.

Het probleem zit in de bouwdelen, ik wil graag bouwdelen kunnen toevoegen in het userform. Maar ook kunnen verwijderen in het formulier.
Toevoegen gaat prima, maar met verwijderen loop ik vast. ik krijg het niet voor elkaar om in de index van het userform de geselecteerde waarde uit de tabellen te verwijderen.

Verder zou ik graag willen, dat als er een ingevulde weekstaat wordt vastgelegd. Dat dat dan alleen een unieke mag zijn. En daar bedoel ik mee dat de medewerker naam en weeknummer niet al mag bestaan in die combinatie.
Als die week nog niet bestaat, dan wil ik dat in het blad Vastleggen de nieuwe week boven de vorige komt te staan zodat ik een nlange lijst krijg met unieke naam/weeknummers combinaties.

Ik heb geprobeerd om met een AI chat de codes aan te passen, maar hij snapt het niet (of ik dat kan nat ook).

excuus voor het lange verhaal.

Het wachtwoord is: Indy2!

Ik ga me verder niet bemoeien met deze vraag omdat de opzet van je werkbladen mij persoonlijk niet echt werkbaar lijkt maar om de controle op

de unieke combinatie uit te voeren kan je onderstaande code gebruiken.

evalstr zal een nummer weergeven als de combinatie reeds bestaat, anders geeft evalstr een foutcode weer.

Met IfError controleer je de waarde van evalstr en handelt naargelang.

Ik heb een extra knop "Test" op je formulier gezet om dit uit te testen.

Vraag simpelweg een bestaande combinatie op of wijzig naar een onbestaande combinatie en druk op Test.

Private Sub CommandButton2_Click()
    With Blad19
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        evalstr = Evaluate("Match(" & Chr(34) & u_0.Value & Chr(34) & "&CHAR(5)&" & Chr(34) & U_2.Value & _
                Chr(34) & "," & .Range("A1:A" & lRow).Address(, , , True) & "&CHAR(5)&" & .Range("C1:C" & lRow).Address(, , , True) & ",0)")
    End With
    If Not IsError(evalstr) Then
        MsgBox "De opgevraagde gegvens staan op rij " & evalstr & "."
    Else
        MsgBox "De opgevraagde gegevens zijn nog niet geregistreerd."
    End If
End Sub

Wat ik met mijn code wou aantonen is enkel hoe je zoekt naar bepaalde combinaties in een tabel.

Je moet deze code toevoegen aan je Opslaan code om de controle uit te voeren alvorens je gegevens gaat wegschrijven naar je tabel.

Idd. niet zoals ik ze toegevoegd heb aan jouw formulier, dit was enkel als voorbeeld om aan te tonen hoe de code werkt. 

    With Blad19
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
        evalstr = Evaluate("Match(" & Chr(34) & u_0.Value & Chr(34) & "&CHAR(5)&" & Chr(34) & U_2.Value & _
                Chr(34) & "," & .Range("A1:A" & lRow).Address(, , , True) & "&CHAR(5)&" & .Range("C1:C" & lRow).Address(, , , True) & ",0)")
    End With
    If Not IsError(evalstr) Then
        MsgBox "Deze combinatie staat reeds op rij " & evalstr & "."
        Exit Sub
    Else
        'De rest van je Opslaan code
    End If
Vervang nu de regel onder 'Else' door je code die je nu hebt om een combinatie op te slaan en klaar is kees.

Ik heb het formulier verder aangepast met de hulp van Warme Bakkertje zijn aanvulling  .

Als ik op Opgeslagen weekstaat van bijvoorbeeld Tonnie week 3 klik, krijg ik een melding.

Weekstaat aanpassen ja/nee
Ja zou de weekstaat uit blad vasthouden moeten laden.

Weekstaat verwijderen ja/nee
Ja zou de weekstaat uit blad vasthouden moeten verwijderen.

Die vind ik moeilijk om te maken, elke hint of hulp is welkom.


Wachtwoord: Indy2!

Goedemorgen Warme bakkertje,

Ziet er top uit!
Maar ik heb ook niet stil gezeten en ben toch tot een goed resultaat gekomen. Mooi om te zien wat de verschillen zijn in de macro's.

Wat die van mij nu doet:
- Weekstaten aan te klikken in de listbox, en dan verwijderen of aanpassen.
- Aanpassen kan en wordt meteen overschreven, mits de naam wordt aangepast dan krijg je de melding opslaan als nieuwe medewerker.
- Elke gele cel telt de waardes op en in het totaal kun je zien hoeveel je voor die week hebt ingevuld.
- Knop toegevoegd om de gele cellen te wissen.
- De knop weekstaten versturen aanklikken geeft als resultaat dat de weekstaten wordt opgeslagen, klaar om in te lezen.
- De knop weekstaten versturen heeft een beveiliging, weekstaten kunnen tot maximaal maandag 12:00 de volgende week nog aangepast worden.
- Als de eerste weekstaat klaar wordt gezet met de knop verstuur, dan wordt er een map aangemaakt op de plaats waar de tool zich bevind.
- Elke nieuwe of aangepaste weekstaat met volgende weeknummer zal in die map worden opgeslagen.
- In het formulier bouwdelen aanpassen, zit een listbox om die opgeslagen weekstaten te bekijken. Als je die ophaald wordt die weekstaat in een nieuw beveiligd blad geopend.
- Verder nog wat fout afhandelingen.

Het enige waar ik een beetje mee zit is die
Private Sub U_30_Change()
optellen
End Subin elke gele cel, dat vind ik een beetje too much. Maar ik zou niet weten hoe ik dat anders kan doen.

Verder zie ik dat jij die listboxen mooi aanroept, ik doe dat heel omslachtig. Om de listbox weer te verversen open en sluit ik het formulier weer, dat is niet zo fraai.... Jij doet dat weer op een subtiele manier.

In ieder geval bedankt voor je bijdrage, dat waardeer ik enorm.

Het enige waar ik een beetje mee zit is die

Code: [Selecteer]

Private Sub U_30_Change()
optellen
End Subin elke gele cel, dat vind ik een beetje too much. Maar ik zou niet weten hoe ik dat anders kan doen.

tonnie,

misschien, zoals RedHead in dit gelijkaardig topic voorstelt het OnExit() event gebruiken ipv het OnChange().

Bekijk het misschien eens, mogelijk kan je er gebruik van maken.

SoftAid              

Dit is natuurlijk helemaal top Rudi.

Een class event is voor mij even te hoog gegrepen, ik ga proberen uit te pluizen hoe dat werkt.
Maar dat is precies wat ik bedoelde, thanks 

Ik heb nog een hoop te leren, maar al met al ben ik best tevreden met wat ik nu kan. Wellicht heeft een ander ook iets aan het bestand.

Bedankt voor de hulp SoftAid en Warme bakkertje.