Aantal tussen een reeks plaatsen

[Jack Nouws]

Hallo

Ik heb ongeveer 60 tabbladen met verschillende plantnamen
En ik heb een leverbon zoals in de bijlage
Als ik nu een levering binnen krijg wil ik deze graag registreren zoals ik nu
gedaan heb met een leverbon. Tevens wil ik de aantallen toevoegen bij de orders die ik al heb.
Nu wil ik dat er eerst op de "plantnaam" gezocht wordt naar het juiste tabblad
Dan wil ik dat er op "Naam" gezocht wordt om de rij te bepalen.
Daarna wil ik dat het aantal in de "D" Kolom geplaatst wordt zodanig
dat bij de volgende levering het aantal er automatisch bij opgeteld wordt.
Wie kan me hierbij helpen?

Met vr gr
Jack

 

[Jack Nouws]

Hallo ben ik hier al mee op de goede weg???

Sub CmdLeveringOpslaan()
Dim MyRange             As Variant
Dim c, i                    As Range
Dim legeregel           As Integer

ActiveSheet.Unprotect
Application.ScreenUpdating = False

For Each c In Sheets("Inkoopbon").Range("E23:E45")
    If c <> "" Then

        Workbooks("Voorraad").Sheets(c.Value).Unprotect
        
    For Each i In Range("D14")
        If i <> "" Then
        
            rij = Workbooks("Voorraad").Sheets(c.Value).Range(i.Value)
        
        Workbooks("Voorraad").Sheets(c.Value).Range("D" & rij) = Sheets("Inkoopaflbon").Range("D14")
        Workbooks("Voorraad").Sheets(c.Value).Protect
    End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Roncancio]

Er is wel een macro te maken om de juiste werkblad en leverancier te vinden maar persoonlijk lijkt het mij bedrijfstechnisch niet wenselijk dat je de gegevens bij elkaar optelt.

Bedrijf X levert op 1 januari 5000 producten Y.
Bedrijf X levert op 1 februari 2000 producten Y.
Dat zou je dan bij elkaar op willen tellen?
Je hebt dan 7000 producten maar je hebt geen overzicht meer wanneer het geleverd is.
Of zie ik het verkeerd? (dat zal niet de 1e keer zijn).

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Je hebt dan 7000 producten maar je hebt geen overzicht meer wanneer het geleverd is.Of zie ik het verkeerd? (dat zal niet de 1e keer zijn).

Naar mijn mening zie je dat verkeerd. Bij ons op het bedrijf wordt er meestal een order geplaatst (bv: 7000 abies alba). En als we toe zijn om die planten te verwerken dan roepen we deze planten in kleinere partijen af. Voor mij zou het handig zijn dat er toch een overzicht is van: Order aantal en Lever aantal om te zien of het order aantal al bereikt is.
Je kunt op het eerste tabblad ook zien dat order aantal en lever aantal met opzet naast elkaar gezet zijn. Oja en de leverdatum is niet belangrijk!

Met vr gr
Jack

 

[Roncancio]

Oké dan.

Sub wegschrijven()
Dim lRij As Long
Dim lsRij As Long
    lRij = 12
    While Worksheets("Leverbon").Range("B" & lRij).Value <> ""
        With Worksheets(Worksheets("Leverbon").Range("B" & lRij).Value)
            .Unprotect
            lsRij = .Range("G:G").Find(Worksheets("Leverbon").Range("C6").Value, LookIn:=xlValues, lookat:=xlWhole).Row
            .Range("D" & lsRij).Value = .Range("D" & lsRij).Value + Worksheets("Leverbon").Range("C" & lRij).Value
            lRij = lRij + 1
            .Protect
        End With
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Beste Roncancio

Geldt deze code voor 1 rij of voor meerdere rijen, want het komt nl vaak voor dat er meerdere partijen geleverd worden

Met vr gr
Jack

 

[Jack Nouws]

Geldt deze code voor 1 rij of voor meerdere rijen, want het komt nl vaak voor dat er meerdere partijen geleverd worden

Beste Roncancio

Laat maar ik heb het al uitgeprobeerd en het werkt perfect:thumb:

Met vr gr
Jack