Cellen veranderen van waarde via macro

[Jwitte]

Beste allen,

zie bijgevoegd bestand.

Ik heb een tabel. In de tabel zijn waarden opgenomen (in het bestand is fictief).
Wat ik wil bereiken, is dat ik cellen selecteer, klik op de knop, en dat de waarde van de geselecteerde cellen veranderen naar: Verkoop. In principe is dit al geschreven in het voorbeeld bestand. Wat ik daarnaast wil is het volgende:

Als ik cellen in kolom 3 heb geselcteerd, en ik druk op de Button, dat de rechts aansluitende cellen (aansluitend op de cellen die ik geselcteerd heb) veranderen naar waarde "Gedaan".

Dus als ik C2-C4 selecteer, en ik druk op de knop, wordt de waarde in C2-C4 = Verkoop en D2-D4 = Gedaan.

Hoe kan ik dit bewerkstelligen?
BTW: deze code moet ook werken als er filters op de tabel zit. Het draait in dat geval dus alleen om de geselcteerde EN zichtbare cellen.

 

[Timshel]

Plak de code in een module en koppel de knop eraan.

Sub tsh()
    Dim Cl As Range
    
    For Each Cl In Selection
        If Cl.Column = 3 Then Cl.Resize(, 2) = Array("Verkoop", "Gedaan")
    Next
End Sub

 

[roeljongman]

Met deze code zou je een eind moeten komen

Sub VerkoopGedaan()
If Selection.Column = 3 Then
    Selection.SpecialCells(xlCellTypeVisible).FormulaR1C1 = "Verkoop"
    Selection.SpecialCells(xlCellTypeVisible).Offset(, 1).FormulaR1C1 = "Gedaan"
End If
End Sub

 

[Jwitte]

Beste beiden,

dank voor jullie input!
Uiteindelijk doet de code van Roel exact wat ik bedoelde.
De code van tim veranderde ook de gefilterde regels.

Mijn dank is groot!