Formüllü makroya cevirme

[ANTALYA 01]

Merhabalar

Ekteki Çalışmada ARAÇ_1 Sayfasında E ve J sütunlarındaki Formülle Toplanan Verileri Formülsüz Toplayacak Makroya İhtiyacım var.
Örnek Çalışmada E sütununda =TOPLA(C33) Formülü sonucu veriyor yada =TOPLA(H4:I4) Fakat Bu Formülle Yapılan Sonucu Formülsüz yapmasını istiyorum yani TOPLA Butonuna bastığımda E ve J sütunu Toplam Sonucu versin İlgili Toplam Sütununda Formülü değil toplanan Değeri görmek istiyorum.

 

[parsley2]

WorksheetFunction.Sum(Sayfa1.Range("h4:ı4")) kodu sanırım işini görür

 

[ANTALYA 01]

F

Merhabalar

Örnek Çalışmada Uygulayabilirmisiniz

 

[Ayhan Ercan]

Merhaba ANTALYA 01

Ek Dosyayı İnceleyiniz...

Sub topla()
    For i = 3 To 120
        Cells(i, 5).Value = WorksheetFunction.Sum(Range("c" & i & ":d" & i))
        Cells(i, 10).Value = WorksheetFunction.Sum(Range("h" & i & ":i" & i))
    Next
End Sub

 

[ANTALYA 01]

t

Merhabalar

Tam istediğim gibi Teşekkür ederim

 

[Ayhan Ercan]

Merhabalar

Tam istediğim gibi Teşekkür ederim

Rica ederim.
İyi Çalışmalar.. k::