Formule in een cel plaatsen

[gpiket7]

Weet iemand hoe ik via VBA de volgende formule in een cel kan plaatsen:

=ALS(E11="Alle Vestigingen"|Gebruikers!$F$2|VERT.ZOEKEN(E11|Gebruikers!$A$2:$B$60|2|0))/Gebruikers!$G$9

E11 is de rij waarin hij aan het zoeken is, hij moet dan de formule plaatsen in kolom AA11
in de volgende rij moet dus E11 verandert zijn in E12 en moet de formule komen in AA12

Maar hij mag de formule in kolom AA alleen plaatsen als er in kolom E iets is ingevult.
Met uitzondering van rij 6, 28 en 50 en alles verder dan 100 hier mag de formule niet in komen

edit: Vraag staat ook in het excel forum, maar wist niet hoe ik deze naar hier kon verplaatsen.

 

[snb]

Kun je svp in het Nederlands net zo zorgvuldig zijn als in de formules van Excel ? (veranderd, ingevuld ; voltooide deelwoorden van woorden met voorlaatste letter k,f,s,c,h,p (geplakt, gepast, gebluft, getruct,gebracht, gestopt eindigen op t, alle andere op d.)

Over naar een andere taal, VBA

cells(1,1)=replace("=IF(E11=#Alle vestigingen#,Gebruikers!$F$2,vlookup(E11,Gebruikers!$A$2:$B$60,2,0))/Gebruikers!$G$9","#",chr(34))

 

[gpiket7]

ik zal er beter op gaan letten, maar waar kan ik dit nu plaatsen?
Heb het in een knop gezet dan doet hij niks en ook als ik het los is de werkblad zet niet...

 

[Hoornvan]

gpiket7,

Als ik de code achter het blad zet of in een Module, het werkt bij mij.

Hier het bestandje.

 

[gpiket7]

De formule werkt idd, maar hij zet hem nu in kolom A Cel 1 en alleen de formule van rij 11.
Hij moet kijken of in kolom E iets is ingevult, en als dat is moet hij in kolom U de formule plaatsen achter de juiste rij.

Met uitzondering van rij 6, 28 en 50 en alles verder dan 100 hier mag de formule niet in komen

 

[Hoornvan]

Ik denk dat dit hier aan ligt.

[B]cells(1,1[/B])=replace("=IF([B]E11[/B]=#

 

[gpiket7]

Oke, en waarin zou ik dat dan moeten veranderen?

 

[Hoornvan]

gpiket7,

snb heeft de code gemaakt naar wat je vroeg.
Kijk maar bij je eerste post, daar praat je over E11 en niet over de kolom E.
Zoek eens bij de help van Excel naar For Each.

 

[gpiket7]

Dit is wat ik vroeg:

E11 is de rij waarin hij aan het zoeken is, hij moet dan de formule plaatsen in kolom AA11
in de volgende rij moet dus E11 verandert zijn in E12 en moet de formule komen in AA12

Dus is niet helemaal gedaan naar hoe ik het vroeg, maar zal is kijken

 

[Hoornvan]

E11 is de rij waarin hij aan het zoeken is, hij moet dan de formule plaatsen in kolom AA11
in de volgende rij moet dus E11 verandert zijn in E12 en moet de formule komen in AA12

E11 is een cel en geen rij.

 

[gpiket7]

Dat snap ik, ik geef ook aan in de volgende rij moet E11 vervangen zijn door E12
Dus AA11 is

=ALS(E11="Alle Vestigingen"|Gebruikers!$F$2|VERT.ZOEKEN(E11|Gebruikers!$A$2:$B$60|2|0))/Gebruikers!$G$9

AA12 wordt dan

=ALS(E12="Alle Vestigingen"|Gebruikers!$F$2|VERT.ZOEKEN(E12|Gebruikers!$A$2:$B$60|2|0))/Gebruikers!$G$9

En alleen als de kolom E is ingevult, dus volgens mij wel gewoon goed aangegeven...

 

[Hoornvan]

Waarom wil het dan met vba doen?
Zet je formule in cel AA11 en trek hem zover naar beneden als nodig is en klaar.

 

[gpiket7]

Omdat de gegevens worden gekopieerd vanaf een andere werkblad, waar deze formule niet op staat.

 

[gpiket7]

Heeft niemand een idee hoe dit gedaan kan worden via VBA?