Makro ile Toplama ve saire

[Yüksel Varlı]

Merhabalar,
Aşağıdaki işlevi makro olarak yazamadım. Yardımlarınızı rica ediyorum.
Ancak

ActiveCell.FormulaR1C1 = "=CONCATENATE(""Atatürk İlköğretim Okulu öğretmenlerince,"","" "",R[-101]C[31],"" "",""yılı"","" "",VLOOKUP(R[-101]C[-4],R[81]C[6]:R[92]C[7],2,0),"" "",""ayında"","" "",SUM(R[-98]C[30]:R[-2]C[30]),"" "",""saat ekders okutulmuştur."" )"

yukarıdaki gibi değil. "ActiveCell.Formula" sistemiyle

=BİRLEŞTİR("Atatürk İlköğretim Okulu öğretmenlerince,";" ";AQ1;" ";"yılı";" ";DÜŞEYARA(H1;R183:S194;2;0);" ";"ayında";" ";TOPLA(AP4:AP100);" ";"saat ekders okutulmuştur." )

Selamlar

 

[Yüksel Varlı]

Kendin Pişir Kendin ye gibi oldu ama ...
Tam olarak hallolmasa da şöyle bir kod yazdım. Oldu :bravo:


Lazım olan olabilir diye yazıyorum.

ActiveCell.Formula = "=CONCATENATE(""Atatürk İlköğretim Kurumları öğretmenlerince, ""&AQ1&"" Yılı ""&I184 &"" Ayında ""&SUM(AR4:AR100)&"" Saat ekders Okutulmuştur."")"