• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

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

Status
Niet open voor verdere reacties.
L

loek010

Gebruiker
Lid geworden
1 jul 2016
Berichten
364
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
 

Bijlagen

  • More app vba code.xlsm
    17 KB · Weergaven: 28
Code: 
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
 
VenA

Super bedankt voor het meedenken code werkt prima :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan