Biçime Göre Toplama

[ismail-34]

Excel Web Ailesine Selamlar

Hücrenin Biçimine Göre Toplam almak istiyorum.E Sütununda'ki $ ları ayrı TL 'leri Ayrı Toplasın.B Sütununada Toplamlar yazılsın istiyorum.

Örneğim Ektedir ..
Saygılar Sevgiler

 

[Necdet]

Merhaba,

Kod :

Function ParaTopla(Secim As Range, Optional Tur As String = "TL")

    Dim Toplam As Double, _
        Hcr    As Range
    
    For Each Hcr In Secim
        If Tur = "$" And Hcr.NumberFormat = "#,##0.00 \$;-#,##0.00 \$" Then
            Toplam = Toplam + Hcr.Value
        ElseIf Tur = "TL" And Hcr.NumberFormat = "#,##0.00 TL" Then
            Toplam = Toplam + Hcr.Value
        End If
        
    Next Hcr
    
    ParaTopla = Toplam
    
End Function

Dosyanızdaki Kullanım $ İçin B2 :

=ParaTopla(E2:E6;"$")

TL için B3:

=ParaTopla(E2:E6;"TL")

 

[Necdet]

Merhaba,
Aşağıdaki kodları ise formül uygulanacak hücre formatına göre toplama işlemini yapar, bu bence daha mantıklı, her türlü biçime göre çalışır.

Function ParaToplam(Secim As Range)

    Dim Toplam As Double, _
        Hcr    As Range
    
    For Each Hcr In Secim
        If Hcr.NumberFormat = ActiveCell.NumberFormat Then Toplam = Toplam + Hcr.Value
    Next Hcr
    
    ParaToplam = Toplam
    
End Function

Kullanımı :

=ParaToplam(E2:E6)

fonksiyonun uygulanacağı hücre formatı $ ise Dolar olanları, TL formatı ise TL olan hücreleri toplar.

 

[ismail-34]

Merhaba,

Kod :

Function ParaTopla(Secim As Range, Optional Tur As String = "TL")

    Dim Toplam As Double, _
        Hcr    As Range

    For Each Hcr In Secim
        If Tur = "$" And Hcr.NumberFormat = "#,##0.00 \$;-#,##0.00 \$" Then
            Toplam = Toplam + Hcr.Value
        ElseIf Tur = "TL" And Hcr.NumberFormat = "#,##0.00 TL" Then
            Toplam = Toplam + Hcr.Value
        End If
    
    Next Hcr

    ParaTopla = Toplam

End Function

Dosyanızdaki Kullanım $ İçin B2 :

=ParaTopla(E2:E6;"$")

TL için B3:

=ParaTopla(E2:E6;"TL")

Değerli Necdet hocam b2 ve b3'e formülü ekledim ve sayfa 1' e kodu ekledim ama çalışmadı. excell 2013 var bende.. dosyam ekte bi göz geçirebilirmisiniz size zahmet.hani olmadı f sütununa tl ve $ da yazabilirim.f sütunundaki döviz kuruna görede bir çözüm olabilir.

 

[ismail-34]

Necdet hocanın çözümü uygulayamadım.sorun nedir acaba ?

 

[1Al2Ver]

Merhaba,

Sayın Necdet beyin çözümü uygulanmış dosya ek'tedir,

İlgili hücrelerdeki biçimlendirmeleri inceleyiniz.

Makro, Modül'de kayıtlıdır.

Kolay gelsin.

 

[Merhum İdris SERDAR]

.

Dosyanızda uygulanmış.

.

 

[ismail-34]

.

Dosyanızda uygulanmış.

.

Çok Teşekkürler Değerli İdris Hocam.

 

[ismail-34]

Merhaba,

Sayın Necdet beyin çözümü uygulanmış dosya ek'tedir,

İlgili hücrelerdeki biçimlendirmeleri inceleyiniz.

Makro, Modül'de kayıtlıdır.

Kolay gelsin.

Eyw Hocam.Modülde uygılamamışım demekki.

 

[Necdet]

Merhaba,

Verilen örnekler ilk verdiğim koda göre hazırlanmış, ekteki dosya ise son verdiğim koda göre düzenlendi.

 

[ismail-34]

Merhaba,

Verilen örnekler ilk verdiğim koda göre hazırlanmış, ekteki dosya ise son verdiğim koda göre düzenlendi.

evet Necdet hocam siz yokken yardımcı oldular sağolsunlar.kodu modüle yazmamışım.Tekrar Teşekkürler. Saygılar.