• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excelde parayı yazıya çevirmek

  • Konbuyu başlatan Konbuyu başlatan xcoll
  • Başlangıç tarihi Başlangıç tarihi
X

xcoll

Katılım
23 Nisan 2007
Mesajlar
282
Excel Vers. ve Dili
Microsoft Office Excel 2007
excelde yazdıklarımın toplamı olan tutarı yazıya çevirmek istiyorum..


toplamlar örnek b2 hücresınde b3 hücresınede yazı ıle yazılmasını ıstıyorum
 
Rakamı yazıya çevirme

Merhabalar,
Örnek dosya ektedir. Kodlar modulde yazılı ve b3 hücresinde formül var. TOPLAMLARI da b2 yazdığınızda istediğiniz işlem olmaktadır. Formülü istediğiniz hücreye alıp formül içindeki B2 yazan kısmı toplamın yazıldığı hücre adresini yazdığınızda işlemi oraya almış olursunuz.
 

Ekli dosyalar

Son düzenleme:
byfika' Alıntı:
Merhabalar,
Örnek dosya ektedir. Kodlar modulde yazılı ve b3 hücresinde formül var. TOPLAMLARI da b2 yazdığınızda istediğiniz işlem olmaktadır. Formülü istediğiniz hücreye alıp formül içindeki B2 yazan kısmı toplamın yazıldığı hücre adresini yazdığınızda işlemi oraya almış olursunuz.
Genişletmek için tıkla ...

çok çok tşk. ederim. bu formulu ben endı excelme nasıl uygulayabılırım ..

cunku buraya yazdığım ornek benım kullandığım excel var oraya uygulama sansım varmı.
 
xcoll' Alıntı:
çok çok tşk. ederim. bu formulu ben endı excelme nasıl uygulayabılırım ..

cunku buraya yazdığım ornek benım kullandığım excel var oraya uygulama sansım varmı.
Genişletmek için tıkla ...

Uygularsınız. Ama excelde GELİŞTİRİCİyi açıp, Visual Basic kısmında MODULE
açılacak ve gönderdiğim örnektede aynı işlem yapılarak ordaki kodu kopyalayıp sizin açtığınız modulun içerisine yapıştrmanız gerekli. Veya alttaki kodu kopyalayıp sizin açtığınız modulün içerisine yapıştırmanız gerekli. Bundan sonrası ilk gönderdiğim mesajda yazılı.Yani Formülü istediğiniz (Toplamın yazı ile değerini göreceğiniz) hücreye alıp formül içindeki B2 yazan kısma toplam sayısal değerin yazıldığı hücre adresini yazdığınızda işlemi oraya almış olursunuz.

KOD (**** işaretlerinin arasında kalan kısım kopyalanacak)
*******************
Function ParaCevir(Para, Optional PBirim = "Lira", Optional KBirim = "Kuruş")
Dim ParaStr As String
Dim Lira As String, Kurus As String
If Not IsNumeric(Para) Then
ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
Exit Function
End If
ParaStr = Format(Abs(Para), "0.00")
Lira = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)
ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(Lira) & " " & PBirim & " " & _
IIf(Val(Kurus) <> 0, Cevir(Kurus) & " " & KBirim & " ", "")
End Function


Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e
Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")
SayiStr = String(15 - Len(SayiStr), "0") + SayiStr
For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i
Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = Birler(c(1)) + "yüz"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i
If Sonuc = "" Then Sonuc = "Sıfır"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

********
http://www.excel.web.tr/f157/ofiice-2007de-butonlar-cin-geli-tirici-sekmesi-t93140.html

buradan geliştiriciyi açmayı görebilirsiniz. 3. resim de görüldüğü gibi GELİŞTİRİCİ yazısı çıktıktan sonra GELİŞTİRİCİyi tıklayın ve Giriş sekmesinin sol altında VISUAL BASIC'i tıklayın. Gelen bölümde INSERT tıklanıp sarkan menüden MODULE tıklanıp PROJECT kısmında yeni module açılacak Açılan modulün üzerinde hızlı çift tıklama veya modulün üstünde mouse sağ tıklanıp VIEW CODE tıklandığında sağ tarafta açılan kısma kodlar yapıştırılacak. Save işlemi yapıldıktan sonra geliştirici den çıkabilirsiniz. EXCEL sayfasını da FARKLI KAYDET yapıp MAKRO İÇEREBİLEN EXCEL ÇALIŞMA KİTABI olarak kaydetmeniz gerekli.
Eğer yapamazsanız dosyanızdaki bilgileri gönderdiğim excele alarak işlemi yapabilirsiniz.
İyi çalışmalar
 
Son düzenleme:
Merhabalar benimde bu konu hakkında bir sorunum var yardımcı olursanız çok sevinirim

rakamı sayıya çevirmede sıkıntı yok lakin çek yazdırmak istediğimde

&1000&
&bin&

şeklinde olmasını istiyorum nasıl yapabilirim

şimdiden teşekkürler
 
Çek nakit ayrımı

Merhabalar, Ekteki işlemleri uygulayın, hücre adreslerini kendinize göre ayarlayın,
İyi çalışmalar.
 

Ekli dosyalar

Son düzenleme:
Birşey daha var biraz önce paracevir çalışan sayfam şimdi hata veriyor nedeni ne olabilir
 

Ekli dosyalar

Son düzenleme:
byfika' Alıntı:
Ekteki dosyayı inceleyiniz. Dosyanıza uyarlayabilirsiniz. Hata varsa mutlaka hücre hatası yapmışsınızdır.
İyi Çalışmalar.

http://dosya.co/5hm5bwq81w0x/rakamı_yazıya_çevirme_ve_çek_nakit_ayırma.xlsm.html
Genişletmek için tıkla ...

Yardımınızdan dolayı çok teşekkür ederim elinize bilginize sağlık
kuruşları hesap ederken veriyi aldığı hücrede sayı
A1:0,14 olarak görünüyor ama veriyi aldıktan sonra sonuç
A1:0,1399999999999999999 gibi geliyor hücre bicimlenmede düzelmiyor
 
Merhaba ,

Bir de şu şekilde dener misiniz.


http://dosya.co/7dh06j659qgh/yazYTL.xla.html


bu linkini verdigim dosya bir eklenti dosyasidir. Excel e eklediginizde butun calisma kitaplarinizda kullanici tanimli fonksiyon olarak calisir.

dosyayi kullanici isminize gore yolunu duzeltip asagidaki konuma kaydedin

C:\Users\xxx\AppData\Roaming\Microsoft\AddIns

herhangi bir excel calisma kitabinizda dosya >secenekler >eklentiler menusunu takip edin.

acilan pencerede sol asagida git dugmesine tiklayin gozat dugmesine tiklayin burada yazYTL.xla adindaki eklenti dosyasini goreceksiniz secip eklentilerinize ekleyin.

artik hehangi bir excel dosyanizda =YaziylaTL(A1) formulunu yazdiginizda rakamlar yaziya cevrilecektir.

cek islemlerinde oldugu gibi onunu arkasini kapatmak icin baska formullerden yardim alabilirsiniz . ornek : =BİRLEŞTİR("#";YaziylaTL(A1);"#")
 
hoguz2' Alıntı:
Merhaba ,

Bir de şu şekilde dener misiniz.


http://dosya.co/7dh06j659qgh/yazYTL.xla.html


bu linkini verdigim dosya bir eklenti dosyasidir. Excel e eklediginizde butun calisma kitaplarinizda kullanici tanimli fonksiyon olarak calisir.

dosyayi kullanici isminize gore yolunu duzeltip asagidaki konuma kaydedin

C:\Users\xxx\AppData\Roaming\Microsoft\AddIns

herhangi bir excel calisma kitabinizda dosya >secenekler >eklentiler menusunu takip edin.

acilan pencerede sol asagida git dugmesine tiklayin gozat dugmesine tiklayin burada yazYTL.xla adindaki eklenti dosyasini goreceksiniz secip eklentilerinize ekleyin.

artik hehangi bir excel dosyanizda =YaziylaTL(A1) formulunu yazdiginizda rakamlar yaziya cevrilecektir.

cek islemlerinde oldugu gibi onunu arkasini kapatmak icin baska formullerden yardim alabilirsiniz . ornek : =BİRLEŞTİR("#";YaziylaTL(A1);"#")
Genişletmek için tıkla ...


Merhaba
söyle sorayım firmada ay sonları yazılan çeklerin çokluğu ve farklı banka çekleri kullanılmasından dolayı ben 1 sayfaya liste şeklinde
A1:firma adı
B1:vade tarihi
C1:çek tutarı
şeklinde tablo yaptım
daha sonra diğer sayfalara banka çeklerinin düzenine göre ayarlamalar yaptıktan sonra 1 sayfadan (düşeyara) kullanarak verileri çekiyorum
sıkıntı liste sayfasında 12,358,15 olarak gönüne sayı
çek sayfasına geçtiğinde tutar
12358 olarak görünüyor ben 12,358 olarak görmek istiyorum ayrıca kuruşlar
0,15 olarak görünüyor liste sayfasında çek sayfasına geçtiğinde
0,14999999999 yada 0,150000011111 gibi ifadeler geliyor
yardımlarınızdan dolayı şimdiden teşekkürler
dosya yükleme şirket pc yasaklandığından gönderemiyorum kusura bakmayın
 
hücre biçimlendir

Merhabalar,
parasal değer yazan hücreleri, yeniden biçimlendirir misiniz? Size gönderdiğim
dosyaya göre resimler kitapta mevcut. Tekrar kontrol edermisiniz?



http://dosya.co/139smywsp186/HÜCRE_BİÇİMLENDİRME.xlsx.html


Sayın ASLANM34 formun karakter saydırma kısmına sorduğunuz soruya orada cevap yazmıştım. Aynı cevabı aşağıda da yazdım.
=B1&" "&A1 yerine

=METNEÇEVİR(B1;"#.##0,00 ")&" "&A1 yazdığınızda rakamı atıyorum
B1 deki değer 1.225,32 ve A1 de İZMİR diyelim;

bu şekilde görülür : 1.225,32 İZMİR
 

Ekli dosyalar

Son düzenleme:
byfika' Alıntı:
Merhabalar,
parasal değer yazan hücreleri, yeniden biçimlendirir misiniz? Size gönderdiğim
dosyaya göre resimler kitapta mevcut. Tekrar kontrol edermisiniz?
Genişletmek için tıkla ...

Altın üye olmadığımdan dosya açamıyorum fakat birkaç kez kontrol ettim
sonuç aynı
 
Merhabalar Sayın ASLANM34 DOSYACO adresinden paylaştığınız excel eklenti dosyasını dosyatc gibi bir başka linkten paylaşabilir misiniz? dosyaco linklerini indiremiyorum. Teşekkür ederim.
 
Hepinizde ilginizden dolayı teşekkür ederim sorunu hoguz2 beyin vermiş olduğu formul ile çözdüm ben foruma dosya yükleyemiyorum şirket tarafından yasaklı o yüzden dosyayı paylaşamadım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst