Eenvoudige knop met berekening

[vijverbegeman]

Hallo,

Hoe kan ik met de knop "actuele voorraad -100" op tabblad "info" alle waarden in kolom D (actuele voorraad) op tabblad "voorraadlijst" verminderen met 100? De waarden mogen met 1 klik op de knop worden overschreven zonder behoud van de originele waarden.

Bedankt voor je reactie!

Pascal

 

[HSV]

Werkt het hiermee?

Private Sub upd_act_vrrd_Click()
Dim cl as Variant
For Each cl In Sheets("voorraadlijst").[d2:d100]
If cl.Value > 0 Then cl.Value = cl.Value - 100
Next
End Sub

 

[popipipo]

Sub min100()
    Application.Goto Reference:="R1000C78"
    ActiveCell.FormulaR1C1 = "100" '
    Selection.Copy
    Range("D2:d14").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlSubtract
    Range("bz1000").Select
    Selection.ClearContents
    Range("A1").Select
End Sub

Via 'macro opnemen' gemaakt en zal daarom nog wel wat vereenvoudigd kunnen worden door onze VBA specialisten



Een VBA specialist was me net voor

 

[HSV]

Een VBA specialist was me net voor

Bedankt voor je compliment Willem.
Bij lange na niet, maar ik doe m’n best.

 

[Warme bakkertje]

Heb je een grote lijst artikels is onderstaande misschien ook interessant

Sub tst()
sq = Sheets("Voorraadlijst").Range("D2:D" & Sheets("Voorraadlijst").Cells(Rows.Count, 4).End(xlUp).Row)
    For i = 1 To UBound(sq)
        If sq(i, 1) > 0 Then sq(i, 1) = sq(i, 1) - 100
    Next
[Voorraadlijst!D2].Resize(UBound(sq)) = sq
End Sub

 

[vijverbegeman]

ok

Mooie voorbeelden, hartelijk bedankt!