Formülü Koda Çevirmek

[yavuz829]

Merhaba Arkadaşlar aşağıdaki ETOPLA formülünü Kod olarak nasıl yazılır.

=ETOPLA($A$3:$A$150;K3;$D$3:$D$150)

 

[EmrExcel16]

Merhaba,

ETOPLA FORMÜLÜNÜN MAKROSU

Çok işlevsel olduğunu düşündüğüm ama bir türlü yazılışını bulamadığım etopla formülüne karşılık gelen kodu bilen bir arkadaş varsa yardımlarını bekliyorum.

www.excel.web.tr

 

[Korhan Ayhan]

Alternatif olarak formülü blok olarak hücre aralığına uygulayabilirsiniz.

Hücre aralığını kendinize göre revize edebilirsiniz.

Option Explicit

Sub ETOPLA()
    Range("Z3:Z" & Rows.Count).ClearContents
    
    With Range("Z3:Z150")
        .Formula = "=SUMIF($A$3:$A$150,K3,$D$3:$D$150)"
        .Value = .Value
    End With
End Sub

 

[yavuz829]

Alternatif olarak formülü blok olarak hücre aralığına uygulayabilirsiniz.

Hücre aralığını kendinize göre revize edebilirsiniz.

Option Explicit

Sub ETOPLA()
    Range("Z3:Z" & Rows.Count).ClearContents
  
    With Range("Z3:Z150")
        .Formula = "=SUMIF($A$3:$A$150,K3,$D$3:$D$150)"
        .Value = .Value
    End With
End Sub

Hocam otomatik olarak etoplam alması için kodu aşağıdaki şekilde ekledim. Çalışmadı.

Hocam ETOPLAMA yı L3 hücresinde gösterecek ve ayni kod L4, L5, L6, L7 aşağıdaki kodlara göre bu hücrelerde de ETOPMLAM görünecek.

=ETOPLA($A$3:$A$150;K4;$D$3:$D$150)
=ETOPLA($A$3:$A$150;K5;$D$3:$D$150)
=ETOPLA($A$3:$A$150;K6;$D$3:$D$150)
=ETOPLA($A$3:$A$150;K7;$D$3:$D$150)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Z3:Z" & Rows.Count).ClearContents
   
    With Range("Z3:Z150")
        .Formula = "=SUMIF($A$3:$A$150,K3,$D$3:$D$150)"
        .Value = .Value
    End With
End Sub

 

[yyhy]

Sayın yavuz829 konuyu anlamak ve öğrenmek için örnek yapmak istedim ama veri olmayınca yapamadım. Örnek dosya ekleyebilir misiniz?

 

[yavuz829]

Sayın yavuz829 konuyu anlamak ve öğrenmek için örnek yapmak istedim ama veri olmayınca yapamadım. Örnek dosya ekleyebilir misiniz?

Hocam altın üyeliğimin süresi bittiği için dosya yükleyemiyorum.

 

[yyhy]

dosya yükleme sitelerine yükleyip link verebilirsiniz zahmet olmaz ise

 

[Korhan Ayhan]

Ben Z sütununa formülü yazdırmıştım. Siz L sütuna göre uyarlamalısınız.

Sonuç alamıyorsanız örnek dosya paylaşınız.

 

[yavuz829]

dosya yükleme sitelerine yükleyip link verebilirsiniz zahmet olmaz ise

 

[yavuz829]

Ben Z sütununa formülü yazdırmıştım. Siz L sütuna göre uyarlamalısınız.

Sonuç alamıyorsanız örnek dosya paylaşınız.

Çok teşekkürler Hocam ellerinize sağlık.

Hocam ETOPLAMA yaptığı zaman +1 olarak gösteriyor.
Örneğin: 50, 55,100 etopladığı zaman 205 göstereceğine 206 olarak gösteriyor.

 

[Korhan Ayhan]

Ben hatırlatmamı tekrar yapayım.

Sonuç alamıyorsanız örnek dosya paylaşınız.

 

[yavuz829]

Ben hatırlatmamı tekrar yapayım.

Sonuç alamıyorsanız örnek dosya paylaşınız.

Hocam ben kodu yanlış eklemişim. Şimdi düzeldi çok, çok teşekkürler Hocam ellerinize sağlık.

 

[Korhan Ayhan]

Ben hatırlatmamı tekrar yapayım.

Sonuç alamıyorsanız örnek dosya paylaşınız.