-
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 xcoll
- Başlangıç tarihi
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
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.
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.
Son düzenleme:
ç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ı.
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
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
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
Yardımızdan dolayı teşekkür ederim bir konuda daha yardım etmeniz mümkün mü
rakamla yazılan yerin çevresinede
&1000& şeklinde yapmak istiyorum
şimdiden teşekkürler
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
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
Son düzenleme:
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
- Katılım
- 6 Ekim 2004
- Mesajlar
- 250
- Excel Vers. ve Dili
- MSOffice 2010 TR
- Altın Üyelik Bitiş Tarihi
- 19-11-2020
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);"#")
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);"#")
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
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
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
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
Son düzenleme:
Altın üye olmadığımdan dosya açamıyorum fakat birkaç kez kontrol ettim
sonuç aynı
- Katılım
- 12 Ağustos 2007
- Mesajlar
- 301
- Excel Vers. ve Dili
-
2003 türkçe
2016 türkçe
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.
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027
- Katılım
- 12 Ağustos 2007
- Mesajlar
- 301
- Excel Vers. ve Dili
-
2003 türkçe
2016 türkçe
Merhaba ilginize teşekkür ederim ancak verdiğiniz linkteki dosya hasarlı mesajı veriyor. Açılmıyor.
- Katılım
- 15 Ağustos 2009
- Mesajlar
- 493
- Excel Vers. ve Dili
- Excel Vers. ve Dili : Ofis 2007 / Tr
- Altın Üyelik Bitiş Tarihi
- 13.09.2027