Formüllerimi makroya terfi ettirmek istiyorum.

[s.savas]

Günaydın arkadaşlar.

İşyerinde kullandığım belgemdeki formüllerin işlevini makro ile yaptırmak istiyorum. Sizde takdir edersinizki sayfadaki formüller arttıkça belgenin boyutuda artmakta ve zamanla işlevsiz hale gelmektedir.

Teklif Dosyası isimli sekmede bulunan formüllerim aşağıdadır.

Bilgi ve tecrübelerini paylaşan herkese teşekkür ederim.



L3:L53

{=EĞER(J3="";"";TOPLA.ÇARPIM((J3<$J$3:$J$53)/EĞERSAY($J$3:$J$53;$J$3:$J$53&""))+1)}

M3:M53

{=EĞER(EHATALIYSA(BÜYÜK($L$3:$L$53;SATIR(J1)));"";BÜYÜK($L$3:$L$53;SATIR(J1)))}

N3:N53

{=EĞER(M3="";"";İNDİS($J$3:$J$53;BÜYÜK(EĞER($L$3:$L$53=M3;SATIR($L$3:$L$53)-SATIR($L$3)+1);EĞERSAY($M$3:M3;M3))))}

O3:O53

{=EĞER($M3="";"";İNDİS($B$1:$B$53;KÜÇÜK(EĞER($L$1:$L$53=M3;SATIR($L$1:$L$53)-SATIR($L$1)+1);EĞERSAY($M$1:M3;M3))))}

P353

=EĞER($M3="";"";DÜŞEYARA(O3;B$3:I$53;2;0))

Q3:Q53

=EĞER($M3="";"";DÜŞEYARA(O3;B$3:I$53;3;0))

R3:R53

=EĞER($M3="";"";DÜŞEYARA(O3;B$3:I$53;4;0))

S3:S53

=EĞER($M3="";"";DÜŞEYARA(O3;B$3:I$53;5;0))

 

[elvis]

fonksiyonları makroya çevirme

merhaba. bu sitede bir arkadaş bununla ilgili bir çalışması vardı. ekte gönderiyorum. inceleyip kendi dosyana uyarlar.

 

[s.savas]

Arkadaşım teşekkür ederim ilginize.
Makro kaydet yöntemi ile formüllerin makro karşılığını alabiliyorum, fakat benim istediğim vba ile kodlanması.