formulde değişken aralık tanımlama

[hoguz2]

arkadaslar merhaba. makro ile yazdirdigim bir formul var formul su sekilde

ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(--(Sayfa2!R2C1:R4999C1=""YURTİÇİ""),--(Sayfa2!R2C3:R4999C3=R[-1]C[-1]),--(Sayfa2!R2C2:R4999C2<=Sayfa1!R1C11)*(Sayfa2!R2C4:R4999C4))"


yapmak istedigimse şu : bag deger dolu say formulu ile bir hucreye tablonun hangi satira kadar dolu oldugunu kontrol ettirtip formule her seferinde 4999 satiri degilde dolu olan satir araligi kadar satiri okutmak.

boylece programimin hizlanmasini sağlamak nasil yapa bilirim yardiminizi rica ediyorum.


saygılarimla

 

[emrexcel123]

end

arkadaşım formül yerine şunu kullan >>
son = [a65536].End(3).Row
burada a sütundur istediğin sütunu girebilirsin
End = son (yukarıdan doğru)
Row = satır
ii akşamlar...

 

[hoguz2]

ustad kusura bakma ben bunu anlayamadim. acemi oldugum icin nasil yapacagimi biraz detayli anlatabilr misin. makro ile yazdirdigim formulun 4999 satir degilde tablodaki dolu satirlar kadar alani taramasini istiyorum.

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki &#351;ekilde denermisiniz.

Sub FORMÜL()
    SON = Sheets("sayfa2").[A65536].End(3).Row
    ActiveCell.Formula = "=SUMPRODUCT(--(Sayfa2!$A$2:$A$" & SON & "=""YURT&#304;&#199;&#304;""),--(Sayfa2!$C$2:$C$" & SON & "=B3),--(Sayfa2!$B$2:$B$" & SON & "<=$K$1)*(Sayfa2!$D$2:$D$" & SON & "))"
End Sub