Tek Sütünda 3 Farklı Para Birimini toplama

Katılım
9 Ekim 2021
Mesajlar
325
Excel Vers. ve Dili
excell 2013
Değerli Excel web ailesine selamlar.

Benim sorum projemde tek sütunda farklı para birimleri ile çalışılması ile ilgili.sağ tarafa para birimi sütunu açıp kolayca halledebilirdim ama proje biraz karışık olduğundan sadece para birimini hücre özelliklerinden ayarlıyorum.dolayısıyla sağ tarafa para birimi sütunu açamıyorum.

Sorum E sütunundakı $, euro, ve tl para birimlerini algılayıp e1 sütununa toplamlarını yazması ile ilgili olacak. kısaca e1 deki özet sonucu istiyorum.

örnek ektedir.

herkese saygılar sevgiler.
 

Ekli dosyalar

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi bir kullanıcı tanımlı fonksiyon yazarak yapılabilir.

Kod:
Function paraya_gore_topla(alan As Range)

For Each hucre In alan

if hucre="" then goto 10

If Left(hucre.Text, 1) = "$" Then
usd = usd + Replace(hucre.Text, "$", "") * 1
ElseIf Left(hucre.Text, 1) = "€" Then
eur = eur + Replace(hucre.Text, "€", "") * 1
Else
tl = tl + Replace(hucre.Text, "?", "") * 1
End If

paraya_gore_topla = "TL=" & tl & " USD=" & usd & " EUR=" & eur

10 Next

End Function
244920
 
Son düzenleme:
Katılım
9 Ekim 2021
Mesajlar
325
Excel Vers. ve Dili
excell 2013
Aşağıdaki gibi bir kullanıcı tanımlı fonksiyon yazarak yapılabilir.

Kod:
Function paraya_gore_topla(alan As Range)

For Each hucre In alan

If Left(hucre.Text, 1) = "$" Then
usd = usd + Replace(hucre.Text, "$", "") * 1
ElseIf Left(hucre.Text, 1) = "€" Then
eur = eur + Replace(hucre.Text, "€", "") * 1
Else
tl = tl + Replace(hucre.Text, "?", "") * 1
End If

paraya_gore_topla = "TL=" & tl & " USD=" & usd & " EUR=" & eur

Next

End Function
Ekli dosyayı görüntüle 244920
Değerli Levent Hocam Çok güzel çalışıyorda, boşlukları yok sayan bir versiyonu varmı acaba ben e2:e100 girince hata veriyorda.onuda halledersek harika olcak valla.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
İlk mesajımdaki fonksiyonda düzeltme yaptım tekrar deneyin.
 
Katılım
9 Ekim 2021
Mesajlar
325
Excel Vers. ve Dili
excell 2013
İlk mesajımdaki fonksiyonda düzeltme yaptım tekrar deneyin.
Teşekkürler Levent hocam Saat gibi çalışıyor.Çok Teşekkür ederim.

Dar Alanda döviz birimlerinin hesaplanma sistemi diyelim bunun adına :)

Sağlıcakla, Her şey gönlünüzce olsun hocam.
 
Üst