Excel: vba knop wijzigt 2 cellen op basis van ActiveCell selectie

[JonathanF]

Goede namiddag iedereen

Ik ben nieuw op dit forum en heb al enkele oplossingen gevonden maar ik vind voorlopig geen oplossing voor het volgende:
Ik heb 2 tabbladen: een masterdata tabblad met een artikellijst en een turflijst tabblad die een gelinkt tabblad is met gefilterde masterdata.
Op de turflijst heb ik een eenvoudige "+1" vba knop met volgende code:

Private Sub CommandButton1_Click()

ActiveCell.Value = ActiveCell.Value + 1

End Sub

Bedoeling van deze knop:
In tabblad turflijst: de gebruiker klikt op een cel (in de kolom "turf") naast een bepaald artikel. Daarna klikt deze op de +1 vba knop om de waarden met 1 te verhogen. Daarbovenop moet de voorraad van dit artikel in het masterdata tabblad verminderd worden met 1.

Welke code voor de vba knop heb ik nodig, zodat de voorraad van hetzelfde artikel in de masterdata gelijk verminderd op basis van de selectie in het turf tabblad naast dit artikel.

vlookup kan gebruikt worden, daar ze dezelfde artikel beschrijving en nummer hebben.

Alvast bedankt voor jullie hulp!

 

[SjonR]

welke code hangt volledig af van je bestand. Plaats eens een gelijkend voorbeeldbestand als je wilt.

 

[JonathanF]

Bekijk bijlage bmedi-inventory-Testomgeving.xlsm
Bedankt voor het snelle antwoord, in de bijlage het bestand

 

[SjonR]

zoiets?

Private Sub CommandButton2_Click()
ActiveCell.Value = ActiveCell.Value + 1
With Sheets("Masterdata").Columns(3).Find(Cells(ActiveCell.Row, 3), , , xlWhole)
    .Offset(, 4).Value = .Offset(, 4).Value + 1
End With
End Sub

 

[JonathanF]

Perfect! Onze groep is u dankbaar

 

[HSV]

Je hoeft niet te zoeken met ".Find" als beide bladen identiek zijn.
Er zit trouwens geen ingebouwde foutafhandeling in de code.

Private Sub CommandButton2_Click()
ActiveCell.Value = ActiveCell.Value + 1
With Sheets("Masterdata")
  .cells(activecell.row,7)= .cells(activecell.row,7).value-1
End With
End Sub

Ps. Het is wel foutgevoelig zo als je doet, stel dat je een verkeerde cel hebt geselecteerd; bv. een cel in kolom C.
Dat kan niet goed gaan.

 

[JonathanF]

Ik was op zoek naar een soort van beveiliging op alle cellen behalve deze in de turf kolom, maar voorlopig zonder succes. Het is de bedoeling dat de verpleegsters met hun account enkel 1 turf tabblad kunnen aanpassen a.d.h.v. een tablet. Indien je hiervoor een beveiliging kan zetten in de vba code, dan hoor ik het graag

 

[snb]

Je bedoelt 'met een tablet'.

 

[OctaFish]

Aan de hand, of met: een tablet gaat je niet helpen, tenzij het om een Windows 10 tablet gaat. Andere 'tabletten' (iOS, Android) ondersteunen geen VBA dus je macro's doen het daar niet op. Het helpt voor de antwoorden als je dat er bij vertelt .

 

[JonathanF]

Dit is jammer genoeg minder leuk nieuws. ik zal hen dan voorstellen om met een laptop aan de slag te gaan.
Het resultaat:
Bekijk bijlage bmedi-inventory-Testomgeving.xlsm :thumb:
Bestaat er een vba oplossingen om het verkeerd klikken te voorkomen? Dus enkel de cellen van kolom D (Turf) aanpasbaar maken. Alvast bedankt.

 

[HSV]

Private Sub CommandButton2_Click()
[COLOR=#ff0000]if activecell.column = 4 and activecell.row > 1 then[/COLOR]
ActiveCell.Value = ActiveCell.Value + 1
With Sheets("Masterdata")
  .cells(activecell.row,7)= .cells(activecell.row,7).value-1
End With
[COLOR=#ff0000]end if[/COLOR]
End Sub

 

[JonathanF]

Super, bedankt!