Voorraadbeheer

[Hermanus21]

Hallo,

Ik ben bezig met een voorraadstysteem op te zeten voor het bedrijf waar ik werk.

Ik heb de volgende formule: beginvoorraad = Beginvoorraad + productie - verkoop

Hiervoor heb ik de volgende oplossing bedacht:

Private Sub CommandButton1_Click()
    Range("D2").Select
    verkocht = [CELL("contents")]
    Range("C2").Select
    Productie = [CELL("contents")]
    Range("B2").Select
    Voorraad = [CELL("contents")]
    Voorraad = Voorraad + Productie - verkocht
    ActiveCell.FormulaR1C1Local = Voorraad
    Range("D2:D47").Select
    Selection.ClearContents
    Range("C2:C47").Select
    Selection.ClearContents
End Sub

Alleen mijn probleem is dat ik het wel voor elkaar krijg alleen voor maar 1 product. Mijn vraag is of het mogelijk is dat de voorraad van alle 46 producten veranderd met 1 druk op de knop.

Alvast bedankt.

 

[huijb]

Verplaatst naar VBA.

 

[snb]

Suggestie:

Volg een cursus Ecxel
Koop een boek over VBA en Excel, lees bijdragen in Excelforums over VBA en begin daarna pas eens wat op te zetten. Kortom: begin bij het begin.