Bijhouden wijzigingen op voorraadbeheer form van SjonR & Cobbe

[HyperXnl]

Goedemiddag Forum gebruikers,

Na een tijdje op dit forum rond gezocht te hebben nog een voorraadbeheer dingetje kwam ik het form tegen van SjonR en Cobbe.
Nu is deze bijna perfect voor wat ik zoek.

Echter zou ik nog 1 dingetje erin willen hebben . een apart blad waar de voorraad wijzigingen worden bijgehouden.
Dus op het moment dat ik een mutatie doe op de voorraad zou ik graag willen zien:

- Wat er gemuteerd wordt
- De hoeveelheid
- Wie de wijziging doet
en de reden van mutatie (bijvoorbeeld verkoop, verlies etc)

Zou mooi zijn als die gegevens ook in het form toegepast kunnen worden.

In de bijlage het bestand van beide.

Thanks alvast.

Grtz Michael


Bekijk bijlage Voorraadbeheer userform.xlsm

 

[gast0660]

Hoi,
Als je een gelijkend vbtje post van uw bestand (met wat Jan en Katrien gegevens) en wat uitleg wat je wilt bereiken dan maak ik wel een voorzet.

 

[HyperXnl]

Hi gast0660,

Zie bijgaand.

Als je op voorraadbeheer druk komt een popup.
Hierin zou ik onder pas de voorraad aan nog de invoer willen hebben reden

Vervolgens zou ik de lg tab het volgende dan willen zien per regel:
- Wat er gemuteerd wordt
- De hoeveelheid
- Wie de wijziging doet
en de reden van mutatie (bijvoorbeeld verkoop, verlies etc)

Zie ook voorbeeld in de bijlage.

Sorry maar ben niet echt thuis in VBA vandaar dat ik een bestaande oplossing heb gezocht op dit forum.

 

[gast0660]

Hoi hyper,
Goed gezocht, ik had niet verwacht een van mijn voorzetjes als vb te zien verschijnen :d
Ik ben ook niet thuis in VBA, thuis is waar mijn stella staat (of mijn duvel)
Maar goed, ik zal morgen eens kijken om e & a in vorm te gieten.

 

[HyperXnl]

Ik ben inmiddels zelf ook wat verder en heb hem aardig werkend.
Echter krijg ik de gemuteerd aantallen niet in het mutatie blad.

'Code door Dotchie geschreven
Private Sub CommandButton1_Click()
Dim Lijst As Integer

If ListBox1.ListIndex = -1 Then
MsgBox "Maak uw keuze in de lijst", vbExclamation
Exit Sub
End If
If TextBox4.Value = "" Then
        MsgBox "Aantal ingeven aub.", vbExclamation
        TextBox4.SetFocus
        Exit Sub
    End If
Lijst = ListBox1.ListIndex + 3
Cells(Lijst, 3) = (Val(TextBox3.Value) + Val(TextBox4.Value))
Cells(Lijst, 6) = CDate(TextBox5.Value)
MsgBox "Ingave is aangepast"
ListBox1.List = Sheets("Voorraad").Range("A3:E" & [A65536].End(3).Row).Value

Dim data(0 To 4)
    data(0) = Now                                            'Datum
    data(1) = [TextBox2].Value                               'Art nummer
    data(2) = [TextBox1].Value                               'Art omschrijving
    data(3) = [TextBox4].Value                               'Mutatie aantal
    data(4) = [TextBox22].Value                              'Referentie
    Sheets("Mutaties").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, UBound(data) + 1).Value = data
    
End Sub

Kan iemand mij een schopje vooruit geven

(ps de code is nu nog enkel toegepast op de bijboekknop, groene pijl)

 

[HyperXnl]

En inmiddels opgelost, de code klopte wel alleen de volgorde niet.

'Code door Dotchie geschreven
Private Sub CommandButton1_Click()
Dim Lijst As Integer

Dim data(0 To 4)
    data(0) = Now                                            'Datum
    data(1) = [TextBox2].Value                               'Art nummer
    data(2) = [TextBox1].Value                               'Art omschrijving
    data(3) = [TextBox4].Value                               'Mutatie aantal
    data(4) = [TextBox22].Value                              'Referentie
    Sheets("Mutaties").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, UBound(data) + 1).Value = data
    

If ListBox1.ListIndex = -1 Then
MsgBox "Maak uw keuze in de lijst", vbExclamation
Exit Sub
End If
If TextBox4.Value = "" Then
        MsgBox "Aantal ingeven aub.", vbExclamation
        TextBox4.SetFocus
        Exit Sub
    End If
Lijst = ListBox1.ListIndex + 3
Cells(Lijst, 3) = (Val(TextBox3.Value) + Val(TextBox4.Value))
Cells(Lijst, 6) = CDate(TextBox5.Value)
MsgBox "Ingave is aangepast"
ListBox1.List = Sheets("Voorraad").Range("A3:E" & [A65536].End(3).Row).Value

End Sub