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

[ismail-34]

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.

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kullanıcı tanımlı fonksiyon yazarak yapılabilir.

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

 

[ismail-34]

Aşağıdaki gibi bir kullanıcı tanımlı fonksiyon yazarak yapılabilir.

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]

İlk mesajımdaki fonksiyonda düzeltme yaptım tekrar deneyin.

 

[ismail-34]

İ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.