Toplama Makrosunu Ekleme

[sirkülasyon]

Option Explicit
Private Sub CommandButton1_Click()
Dim Ay As Byte, İlk_Gün As Date, Son_Gün As Date, Tarih As Date, Satır As Byte
Range("E5:AA5").ClearContents
'Range("D5:Z23").ClearContents
'Range("AA5:AA24").ClearContents
Satır = 5
Select Case Range("B2")
Case Is = "Ocak": Ay = 1
Case Is = "Şubat": Ay = 2
Case Is = "Mart": Ay = 3
Case Is = "Nisan": Ay = 4
Case Is = "Mayıs": Ay = 5
Case Is = "Haziran": Ay = 6
Case Is = "Temmuz": Ay = 7
Case Is = "Ağustos": Ay = 8
Case Is = "Eylül": Ay = 9
Case Is = "Ekim": Ay = 10
Case Is = "Kasım": Ay = 11
Case Is = "Aralık": Ay = 12
End Select
İlk_Gün = DateSerial(Range("B1"), Ay, 1)
Son_Gün = DateSerial(Range("B1"), Ay + 1, 0)
Cells(2, 41) = İlk_Gün
Cells(2, 42) = Son_Gün
For Tarih = İlk_Gün To Son_Gün
If Weekday(Tarih, vbMonday) < 6 Then
Cells(4, Satır) = Tarih
Satır = Satır + 1
End If
Next
MsgBox "Tablo Seçim yaptığınız aya veri girişi için temizlenmiştir.", vbInformation
End Sub

Yukarıdaki makro koduna
D5 hücresine E5:AA5 hücrelerinde yazan rakamların toplamını aldırabilmek için hangi kodu eklemeliyim. Yardımcı olabilir misiniz?

 

[Haluk]

Aşağıdaki satır işinizi görür sanırım.

[D5] = WorksheetFunction.Sum([E5:AA5])

.

 

[sirkülasyon]

Haluk Abi
Teşekkür ederim. Sağolasın.

Mümkünse buton ile tarih atandıktan sonra
D5= E5:AA5 hücrelerine veri girildikçe toplama yapmasını sağlayabilir miyiz?

Eğer zamanınızı alacaksa verdiğiniz kod ile devam ederim.

 

[Haluk]

Söz konusu toplama formülünü sayfada D5 hücresine yazsanız, işinizi görmez mi?

.

 

[sirkülasyon]

Haluk Abi
Buton ile önce tarihler geliyor (birinci işlem)
Hücrelere veri girişi yapıyorum butona ikinci kez basıyorum ki toplama yapsın (İkinci işlem)
Her veri girişinde butona tekrar basıyorum

Buton ile tarih atadıktan sonra tekrar, tekrar butona basmak yerine veri girişi yapıldıkça toplama yapsın istedim.

Vallahi billahi ilk mesajımda böyle olacağını düşünemedim. Yoksa ikinci bir emek çıksın istemezdim. Hakkını Helal et Haluk abi

 

[Haluk]

Estağfurlah arkadaşım, sadece merak ettiğim için soruyorum.

Siz sayfadaki D5 hücresine;

=topla(e5:aa5)

formülünü yazsanız, zaten o hücrelere veri girişi yapıldıkça D5 hücresindeki toplam otomatik olarak güncellenecektir.

Böyle bir şey işinizi görmüyor mu?

.

 

[sirkülasyon]

Teşekkür ettim Haluk abi

 

[Haluk]

Rica ederim arkadaşım.

.