Hücre biçim koşuluna göre para çevirici

[akcayonline]

Merhaba arkadaşlar,

aynı sütunda hem EUR hem TL hem de Dolar olarak biçimlendirilmiş sayılar var (Sadece hücre biçimlendirmesi ile birbirinden ayrılmış), bunların hepsini toplam alırken EUR a çevirip toplam almak istiyorum ama eğer hücre biçimi TL ise şöyle yap veya eğer hücre biçimi EUR ise şöyle yap diyemiyorum.

Formüle o hücrenin biçimlendirmede yer alan para biriminin ne olduğunu nasıl algılatabilirim ? Eğer onu algılatabilirsem formülle katsayı ile çarptırıp istediğim değere çevirebilirim diye düşünüyorum.

Yardımcı olabilirseniz çok sevinirim, şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Biçimleri görebilmek için örnek bir dosya ekler misiniz.

 

[akcayonline]

teşekkürler, doayayı ekliyorum

 

[Ömer]

Module kopyalayın.

Function bicim_hesapla(hucre As Range)
  
    Dim topla As Double, a As Range

    Application.Volatile True
    
    For Each a In hucre
        If a.NumberFormat = "#,##0.00 [$USD]" Then
            topla = topla + (a.Value * Cells(a.Row, "E") / Cells(a.Row, "D"))
        ElseIf a.NumberFormat = "#,##0.00 [$EUR]" Then
            topla = topla + a.Value
        ElseIf a.NumberFormat = "#,##0.00 $" Then
            topla = topla + (a.Value / Cells(a.Row, "D"))
        End If
    Next a
    
    bicim_hesapla = topla
    
End Function

Daha sonra S2 hücresine aşağıdaki formülü yazıp alt satırlara kopyalayın.

=bicim_hesapla(I2:R2)

.

 

[akcayonline]

Teşekkür ederim Ömer Bey, problemsiz çalıştı.

Kolay gelsin.