Formüllerin görevini makro ile yaptırmak istiyorum.

[s.savas]

Merhaba arkadaşlar.
İşyerinde kullandığım belge daha çok formül ağırlıklı. Sekme sayısı arttıkça dolayısıyla formüller de artıyor ve dosyam inanılmaz şekilde büyüyor.
Bunun için formüllerin yaptığı görevi makrolar ile yapmak istiyorum.
Örnek olarak ekte sunduğum belgelerden Örnek-1 Formüllü belgenin boyutu 419 Kb, Örnek-2 Formülsüz belgenin boyutu ise sadece 147 Kb. Aradaki fark 272 Kb
Formüllerin ilişkili olduğu diğer sekmelerin isimlerinin ve hedef adreslerinin sabit olup makroya çevrilmesini istediğim formüller aşağıdadır.
(Formüller için değerli uzmanım Ali beye tekrar teşekkür ediyorum.)
Mukayese Cetveli isimli sekmenin;
A4:A150

=EĞER(Menü!$G$12="Mal Alımı";Malzeme_Listesi!A3;İlaç_Listesi!A3)

B4:B150

=EĞER(Menü!$G$12="Mal Alımı";Malzeme_Listesi!B3;İlaç_Listesi!B3)

C4:C150

=EĞER(Menü!$G$12="Mal Alımı";Malzeme_Listesi!C3;İlaç_Listesi!C3)

D4150

=EĞER(Menü!$G$12="Mal Alımı";Malzeme_Listesi!E3;İlaç_Listesi!E3)

AJ4:AJ150

=EĞER(EHATALIYSA(KÜÇÜK(E4:AH4;1));"0";KÜÇÜK(E4:AH4;1))

AK4:AK150

=EĞERSAY(E4:AH4;AJ4)

AL4:AL150

{=EĞER(SÜTUNSAY($AL$4:AL4)<=$AK4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AJ4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AL$4:AL4)));"Teklif Yok")}

AM4:AM150

{=EĞER(SÜTUNSAY($AL$4:AM4)<=$AK4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AJ4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AL$4:AM4)));" Teklif Yok ")}

AN4:AN150

{=EĞER(SÜTUNSAY($AL$4:AN4)<=$AK4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AJ4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AL$4:AN4)));" Teklif Yok ")}

AO4:AO150

{=EĞER(SÜTUNSAY($AL$4:AO4)<=$AK4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AJ4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AL$4:AO4)));" Teklif Yok ")}

AP4:AP150

=EĞER(EHATALIYSA(KÜÇÜK(E4:AH4;EĞERSAY(E4:AH4;KÜÇÜK(E4:AH4;1))+1));"0";KÜÇÜK(E4:AH4;EĞERSAY(E4:AH4;KÜÇÜK(E4:AH4;1))+1))

AQ4:AQ150

=EĞERSAY(E4:AH4;AP4)

AR4:AR150

{=EĞER(SÜTUNSAY($AR$4:AR4)<=$AQ4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AP4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AR$4:AR4)));"Teklif Yok")}

AS4:AS150

{=EĞER(SÜTUNSAY($AR$4:AS4)<=$AQ4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AP4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AR$4:AS4)));" Teklif Yok ")}

AT4:AT150

{=EĞER(SÜTUNSAY($AR$4:AT4)<=$AQ4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AP4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AR$4:AT4)));" Teklif Yok ")}

AU4:AU150

{=EĞER(SÜTUNSAY($AR$4:AU4)<=$AQ4;İNDİS($E$3:$AH$3;KÜÇÜK(EĞER($E4:$AH4=$AP4;SÜTUN($E4:$AH4)-SÜTUN($E4)+1);SÜTUNSAY($AR$4:AU4)));" Teklif Yok ")}

AV4:AV150

=MAK(E4:AH4)