OptionButton ile ETopla işlemi

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar herkese Hayırlı Ramazanlar.
Userform üzerinde bulunan butonlarla ( OptionButton ) Ödenek Sayfasında bulunan K sütunundaki veriler baz alınarak, H, I ve J kolonlarında bulunan rakamları ETOPLA ile toplamak istiyorum. Yani OptionButton11 seçilince H kolonundaki verileri toplayarak TextBox52'ye yazsın, Bunun gibi=ETOPLA(K2:K121;"03.02";H2:H87)
I kolonunu verileri toplayarak TextBox53, j kolonunu verileri toplayarak TextBox54, yazmasını istiyorum.

Örneğin 03.02 tıklanınca
TextBox52 = 202.798,27
TextBox53 = 177,476,40
TextBox54 =26.320,87
Olacak, bu işlem her bütton için ayrı ayrı toplayacak. teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Formunuzun kod bölümüne uygulayınız.

Public Sub K_Topla(Kriter As String)
    Dim S1 As Worksheet, WF As WorksheetFunction
   
    Set S1 = Sheets("ÖDENEK")
    Set WF = WorksheetFunction
   
    TextBox52 = FormatCurrency(WF.SumIf(S1.Range("K:K"), Kriter, S1.Range("H:H")))
    TextBox53 = FormatCurrency(WF.SumIf(S1.Range("K:K"), Kriter, S1.Range("I:I")))
    TextBox54 = FormatCurrency(WF.SumIf(S1.Range("K:K"), Kriter, S1.Range("J:J")))

    Set S1 = Nothing
    Set WF = Nothing
End Sub

Private Sub OptionButton11_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

Private Sub OptionButton12_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

Private Sub OptionButton13_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

Private Sub OptionButton14_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

Private Sub OptionButton15_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

Private Sub OptionButton16_Click()
    Call K_Topla(Me.ActiveControl.Object.Caption)
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın hocam çok hoş olmuş ellerine sağlık teşekkür ediyorum. Ramazan olunca sorum unutuldu diye düşünmüştüm. Tekrar teşekkürler. Hayırlı ramazanlar dua ile kalın.

 

[Korhan Ayhan]

Sonradan aklıma geldi. Makro isimlerinde excelin yerleşik isimlerini kullanmak bazen sıkıntı çıkarabiliyor. Bu sebeple "Topla" olarak tanımladığım makro adını "K_Topla" olarak revize ettim. Dilerseniz kodun son halini kullanınız.

 

[Hacı Bayram ÖZKAN]

Sayın Hocam sıkıntı çıkmamıştı ama yinede sizin dediğiniz gibi değiştirdim tekrar teşekkür ederim saygılarımla. Allaha emanet olun