Vba çoketopla

[yilmazberkan]

Merhaba üstadlar,
ek' te yapmış olduğum ve kullandığım çoketopla formullu dosya mevcuttur.
dosyayı farklı kişilerde kullandığı için yanlışlıkla formülün üzerinde oynama yapıp bozabiliyor.
bende bu sebep ile vba tarafında örnek dosyada olduğu gibi işlem yapmak istiyorum.
yardımcı olabilecek varmı?
şimdiden çok teşekkürler.

 

[Asri]

Aşağıdaki kodu rapor sayfasının kod bölümüne ekleyiniz.
Rapor sayfası her aktif olduğunda, formüllü hücreler silinse bile formüller yeniden eklenecektir.

Private Sub Worksheet_Activate()
 sonsutun = Cells(4, Columns.Count).End(xlToLeft).Column
 For i = 3 To sonsutun - 1
    Cells(4, i).FormulaR1C1 = "=SUMIFS(Veri!C24,Veri!C27,""<>""&R5C2,Veri!C7,"">=""&R1C,Veri!C7,""<=""&R2C)"
    Cells(5, i).FormulaR1C1 = "=SUMIFS(Veri!C24,Veri!C27,R5C2,Veri!C7,"">=""&R1C,Veri!C7,""<=""&R2C)"
 Next i
End Sub