formüller

[öğrtm]

iyi günler çalışmamda butona klik yaptığımda bir tablo oluşmakta içerisinde öğrencilere ait not hesaplaması yapmaktayım.aşağıdaki kodda benim çalışmamın formüllerini oluşturmaktaydı.fakat hücre adreslerini değişkene bağladığım için (sütunları) artık bu formül işimi görmüyor.mesela aşağıdaki formül sayac değişkeni "6" olduğunda işimi görüyordu.ama şimdi sayac değişkenim 6,7,8,10 veya2,3 vs olabiliyor.acaba bu formülü nasıl revize edebilirim.arkadaşlar yardımlarınızı bekliyorum.(örnek dosyada userform1 in hazırla butonuna bastığımda olaylar gerçekleşiyor)

Cells(4, sayac + 4).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-6]:RC[-1])"
Selection.AutoFill Destination:=Range("J4:J" & Sheets(ad).Range("c1048576").End(3).Row), Type:=xlFillDefault
Range("K4").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1]C[-7]:R[-1]C[-2])*5"
Range("K4").Select
Selection.AutoFill Destination:=Range("K4:K" & Sheets(ad).Range("c1048576").End(3).Row), Type:=xlFillDefault
Range("K4:K" & Sheets(ad).Range("c1048576").End(3).Row).Select
Range("K5:K" & Sheets(ad).Range("c1048576").End(3).Row).Select
Selection.ClearContents
Range("K5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("K5").Select
Selection.AutoFill Destination:=Range("K5:K" & Sheets(ad).Range("c1048576").End(3).Row), Type:=xlFillDefault
Range("L4").Select
ActiveCell.FormulaR1C1 = "=(RC[-2]/RC[-1])*100"
Range("L4").Select
Selection.AutoFill Destination:=Range("L4:L" & Sheets(ad).Range("c1048576").End(3).Row), Type:=xlFillDefault

 

[öğrtm]

arkadaşlar butona klik yaptığımda sayfada yeni oluşuyor.yani çalışmam mevcut bir sayfa üzerinde değil.

 

[öğrtm]

arkadaşlar yukarıda ki soruma olumlu yada olumsuz bir cevap alamadım kendim birşeyler deniyorum ama benim yine adres yazma problemim var.aşağıdaki formülde I4 adresindeki I kolonunu formüle sayac+3 değişkeni olarak nasıl oturtabilirim acaba?iyi çalışmalar
Cells(4, sayac + 4).Select
ActiveCell.Formula = "=SUM(d4:ı4)"