Döviz toplamları makrosu

[gonca25]

Ekte döviz makrosunun Euro, Usd, Pound, NOK, CHF kapsayacak şekilde çoğaltmaya çalıştım ama number format hatalı olduğu için çalışmıyor

yardımcı olabilirmisiniz?

Kolay gelsin

 

[Ferhat Pazarçevirdi]

Merhabalar,

Eğer sayıları hep bu şekilde biçimlendirerek kullanacaksanız, aşağıdaki KTF (Kullanıcı Tanımlı fonksiyon) işinizi görecektir.

Public Function Döviz(aralik As Range, dovizturu As String)
Dim hcr As Range
Dim döv
For Each hcr In aralik
    Select Case dovizturu
       Case "YTL":
           If hcr.NumberFormat = "#,##0.00 ""YTL""" Then: döv = döv + hcr.Value
       Case "USD"
           If hcr.NumberFormat = "[$$-409]#,##0.00" Then: döv = döv + hcr.Value
       Case "EUR"
           If hcr.NumberFormat = "[$€-2] #,##0.00" Then: döv = döv + hcr.Value
     End Select
Next
Döviz = döv
End Function

Kullanımı :

Belirlediğiniz aralıkta, YTL cinsinden rakamları toplamak için istediğiniz herhangi bir hücreye

=Döviz(B2:B11;"YTL")

yazın.

USD cinsinden toplam almak için

=Döviz(B2:B11;"USD")

EURO cinsinden toplam almak için ise

=Döviz(B2:B11;"EUR")

şeklinde formülüze edin.

 

[gonca25]

Döviz Formülü

Benim istediğim diğer dövizler için ne yazacağım POUND, CHF, JPY ve NOK için gerekli format nedir

 

[Ferhat Pazarçevirdi]

Bu durum, sizin sayıları nasıl şekillendirdiğinize göre değişir.

Örnek bir yöntem aşağıda verilmiştir. Koda eklenen kısımlar kırmızı ile gösterilmiştir. Case ile başlayan blokları istediğiniz gibi değştirebilir ve farklı türdeki dövizler için çoğaltabilirsiniz.

Public Function Döviz(aralik As Range, dovizturu As String)
Dim hcr As Range
Dim döv
For Each hcr In aralik
    Select Case dovizturu
       Case "YTL":
           If hcr.NumberFormat = "#,##0.00 ""YTL""" Then: döv = döv + hcr.Value
       Case "USD"
           If hcr.NumberFormat = "[$$-409]#,##0.00" Then: döv = döv + hcr.Value
       Case "EUR"
           If hcr.NumberFormat = "[$€-2] #,##0.00" Then: döv = döv + hcr.Value
[COLOR=red]       Case "POUND"
           If hcr.NumberFormat = "[$£-809]#,##0.00" Then: döv = döv + hcr.Value
       Case "CHF"
           If hcr.NumberFormat = "#,##0.00 [$CHF]" Then: döv = döv + hcr.Value
       Case "JPY"
           If hcr.NumberFormat = "#,##0.00 [$JPY]" Then: döv = döv + hcr.Value
       Case "NOK"
           If hcr.NumberFormat = "#,##0.00 [$NOK]" Then: döv = döv + hcr.Value
[/COLOR]     End Select
Next
Döviz = döv
End Function