Soru Formülün döngüye alınarak makroya çevrilmesi

[s.savas]

Merhaba arkadaşlar.
Banka Listesi şablonundaki veriler değişken olduğu için G ve H sütunlarının son dolu satırında bulunan formülleri döngüye alarak b.[T5].Formula = "=IF(D5="""","""",ROUND(Q5+R5+S5,3))" tarzında makroya çevrilmesini rica ediyorum.
G=TOPLA(G6:G11)
H=TOPLA(H6:H11)

 

[Ömer BARAN]

Merhaba.
Banka Listesi isimli sayfadaki toplamların alınması işlemini, aşağıdaki kod'da;
-- FORMÜL uygulayarak işlem yapmak için mavi renklendirdiğim satırı kopyalayıp, G ve H sütunu için sütun adlarını değiştirerek,
-- DEĞER olarak işlem sonuçlarını yazmak için yeşil renklendirdiğim satırı kopyalayıp, G ve H sütunu için sütun adlarını değiştirerek,
sonuç alabilirsiniz.

Sub BANKA_LISTESI_TOPLAMA()
    Set banka = Sheets("Banka Listesi")
    bankason = WorksheetFunction.Max(banka.[B:B]) + 5
    If bankason = 5 Then Exit Sub
banka.Cells(bankason + 1, "C") = "GENEL TOPLAM"

banka.Cells(bankason + 1, "F").Formula = "=SUM(F6:F" & bankason & ")"
banka.Cells(bankason + 1, "F") = WorksheetFunction.Sum(banka.Range("F6:F" & bankason))

End Sub