Para Birimine Göre Alttoplam

Para Birimine Göre Alttoplam

Herkese merhaba.
Ekteki tablomda D sütununda koda göre, $ ve TL para birimine göre toplam almak istiyorum.
Yardımcı olur musunuz?

Yani D sütununu süzdüğümde; GRUP KODU 123456-11 olanın

USD si 42,70 $
TL si 14.00 TL diye istiyorum.

G22 hücresinde , 42,70 $
G23 hücresinde, 14,00 TL yi görmek istiyorum.

Teşekkür ederim

bülentgüner

Yanıt:

Çözüm için üç tane Kullanıcı Tanımlı Fonksiyon Yazılmıştır. Bunların yardımı ile üç çözüm verilmiştir.

  1. Hücre font rengi indeksini bulan, bu aynı zamanda istenilirse, desen renk indeksini de verir.

Function Renki(aln As Range, Optional sy As Boolean = False) As Integer

Application.Volatile True

If sy = True Then

    Renki = aln(1, 1).Font.ColorIndex

Else

    Renki = aln(1, 1).Interior.ColorIndex

End If

End Function

2  Para birimini bulan fonksiyon.

Function Para_Birimi(hcr As Range) As String

    Dim Veri As String, X As Byte

    Application.Volatile True

    Veri = Replace(Replace(hcr.Text, “,”, “”), “.”, “”)

    For X = 0 To 9

        Veri = Replace(Veri, X, “”)

    Next

    Para_Birimi = Veri   

End Function

  1. Hücre biçimini bulan fonksiyon.

Function bicim(hcr As Range) As String

   bicim = hcr.NumberFormat  

End Function

Kullanılan formüller:

=SUMPRODUCT((G2:G18=G20)*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

=SUMPRODUCT((G2:G18=G21)*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

=SUMPRODUCT((H2:H18=E23)*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

=SUMPRODUCT((H2:H18=E24)*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

=SUMPRODUCT((I2:I18=bicim(E26))*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

=SUMPRODUCT((I2:I18=bicim(E27))*(SUBTOTAL(103;OFFSET(C2;ROW(C2:C18)-MIN(ROW(C2:C18));0)))*F2:F18)

 

Dosya:

renkalttoplam

You may also like...

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Şu HTML etiketlerini ve özelliklerini kullanabilirsiniz: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>