Farklı para birimi olan sütunda toplama işlemi

[nvdr1]

Vedat bey,
Selamlar verdiğiniz linki inceledim devamda ediyorum
fakat beceremedim ben örnek çalışmamı gönderiyorum
inceleyebilirmisiniz lütfen sayfa sonunda toplamlarını almak istiyorum
saygılar
Ekli dosyayı görüntüle bngl havaalanı.xls

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Farklı para birimlerinde fonksiyon hatalı sonuç üretebilir. Buna göre koda ekleme yapmak gerekecektir.

Kullanılan fonksiyon; (Boş bir modüle ekleyiniz.)

Option Explicit
 
Function PARA_TOPLA(Aralık As Range, Optional Ölçüt As String = "TL")
    Dim Hücre As Range
 
    Application.Volatile True
 
    For Each Hücre In Aralık
        If IsNumeric(Hücre.Value) Then
            If InStr(1, Hücre.NumberFormat, "$" & Ölçüt) > 0 Then
                PARA_TOPLA = PARA_TOPLA + Hücre.Value
            End If
        End If
    Next
End Function

Hücrede kullanım şekli;

=PARA_TOPLA(Hücre_Aralığı;Ölçüt)

=PARA_TOPLA(C2:C100;"TL")

 

[nvdr1]

teşekkür ederim
elinize emeğinize sağlık

 

[compass]

Merhaba,

Örnek dosyada birim maliyet ile miktarları çarpım yan sütuna geçirmişsiniz. Ben aynı işlemi yaptığımda yan sütüna para birimini taşımıyor. Taşıdığında ise tüm satırları en üstteki para birimi ile aynı yapıyor.

Siz en sağdaki sütunu manuel olarak mı girdiniz?

Teşekkürler,

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Evet formülle çarpma işlemi yapılmıştır. Fakat para birimleri elle uygulanmıştır.

 

[ozerdu]

örnek dosyada toplamlarda hata veriyor ben yapamadım yardımcı olurmusunuz

 

[deng5]

Teşekkürler Ellerinize Sağlık