Makro ile tutarı taksit sayısına göre bölme işlemi

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Sarı ile boyalı hücrelerde formül var, taksit sayısı kadar olan satırda işlemi gerçekleştiriyor.

Tablodaki verileri daha sonra başka bir sayfaya makro ile taşıtıyorum. Taksit sayısından sonraki satırlarda tutar olmamasına rahmen içersinde formül verileri olduğu diğer sayfaya sayısal değeri olmayan veri olarak aktarıyor.

Makro ile şöyle bir işlem yaptıra bilirmiyiz;
Sarı ile boyalı hücrelerdeki formüllü makro ile yapıp, taksit sayısı girdiğim kadar satıra uygulatmalı.

=EĞER(H8>$S$4;"";EĞER(H8=$S$4;TAMSAYI($S$2-TOPLA($L$7:L7));AŞAĞIYUVARLA(($S$2/($S$4-1))/50;0)*50))
=EĞER(H8<>$S$4;"";($S$2-TOPLA($L$8:L8))*100)

Yardım ve fikirlerinizi bekliyorum.

 

[uzmanamele]

merhaba
formül makroya çevrilebilir, formül taksit sayısı kadar makroyla kopyalanabilir. bunlar alternatifler.
başka bir alternatif şu olabilir.
kopyalayın başka sayfaya aktaracağınız satır sayısı taksit sayısı kadar olacaksa bu veriler zaten elinizde var.
şöyleki:
for i=8 to [s4].value-1
sadece bu alanı aktarsanız olur.

 

[Emir Hüseyin Çoban]

İlginiz için teşekkürler Sayın Uzmanamele,

Alternatifleri çoğaltmak mümkün, keşke konuyu açmadan önce formülü biraz daha inceleseydim.

=EĞER(H8>$S$4;[COLOR="Red"]"0"[/COLOR];EĞER(H8=$S$4;TAMSAYI($S$2-TOPLA($L$7:L7));AŞAĞIYUVARLA(($S$2/($S$4-1))/50;0)*50))
=EĞER(H8<>$S$4;[COLOR="Red"]"00"[/COLOR];($S$2-TOPLA($L$8:L8))*100)

şeklinde formülleri düzenleyince sorunum çözüldü.