Als tekst More app in kolom S dan op zelfde regel formule plaatsen

[loek010]

Beste Hulpverleners

Graag uw hulp bij het maken van vba code om een formule te plaatsen
als in kolom S op een regel de tekst More app staat dat dan de formule,

.FormulaR1C1 = "=IF(RC[-3]=""More app"",0.01,0)"

op de zelfde regel in kolom V wordt geplaatst
ik dacht iets met Selectionchange maar kom er niet hoe ik dat
voormekaar moet krijgen

heb nu een formule met een ALS formule maar wil dit dus door vba
code laten plaatsen.

Zie voorbeeldje

 

[VenA]

Sub VenA()
  For Each cl In Columns(19).SpecialCells(2)
    If cl.Value = "More app" Then cl.Offset(, 3).FormulaR1C1 = "=IF(RC[-3]=""More app"",0.01,0)"
  Next cl
End Sub

 

[loek010]

VenA

Super bedankt voor het meedenken code werkt prima :thumb: