Rakamı yazıya cevirme

[cidago]

arkadaşlar 2003 excelde kullanıdğım formül excel 2007 de çalışmıyor. formülü uyguluyorum olmuyor. yardımcı olurmusunuz. toplam tutarı "YALNIZ: .... "şeklinde yazı olarak yazmak istiyorum.

http://www.upload.gen.tr/d.php/s11/nlk6qoxh/Kitap1.xlsx.html

http://www.upload.gen.tr/d.php/s11/nlk6qoxh/Kitap1.xlsx.html

 

[ReBiwAr]

dosyadan hiç bir şey anlamadım....

 

[İhsan Tank]

merhaba
dosyanıza uzmanamele hocamın hazırladığı KTF ile düzelttim eki inceleyiniz ( uzmanamele Hocama Teşekkür Ederim )
Ktf koduna Ulaşmak için Vba'daki module bakınız.

 

[cidago]

sağol emeğin için çılgın .ancak toplam tutarda 200001 var ancak A19 hücresinde bu paranın yazı olarak yer almasını istiyorum. ayrıca önceki 2003 sürümünde sağ tarafta bir YAZDIR iconu vardı. ona tıklayınca belgedeki fiş no yazan yerdeki numaralar otomatik olarak ilerliyordu.şimdi 2007 de yazdır ikonu aktif değil basılmıyor. eğer bunlar olmazsa windows 7 yüklü pc deki excel 2007 yerine excel 2003 ü nasıl yüklerim. 2003 kullanmak istesem nasıl olacak?

 

[İhsan Tank]

a19 hücresinde parayı yazıya çevrilmiş şekilde yazıyor
öncelikle 2003 değil 2007 olarak kullanın çünkü çok yakın bir zaman da2003 sürümü artık olmayacak.
diğerine söyleyeceğim ise iki sayfanızı ekleyin düzeltelim o yazdır iconu 2007'ye aktaralım

 

[cidago]

çok sağol çılgın emeklerin ve ilgin için.
dosyayı ekte veriyorum.
excel 2003 te yaptıklarım şunlar:
- sağ taraftaki YAZDIR ikonuna tıkladğımda fiş no otomatik ilerliyordu.( 155/10 şeklindeki fişno da 155 tüm iade işlemleri için geçerli bir numara. 10 ise her ayrı işlemin numarası.)
- Tc kimlik no yazıldığında, öğrencinin adı soyadı ve oda blok numaraları otomatik geliyordu ( en sağdaki öğrenci listesi ile entegreli)
-toplam tutar yazı olarak yer alıyordu
-birde üstteki iade fişine ne yazılırsa alltakinede aynısı yazılıyordu.

bu işlemler excel 2007 de olmuyor. sırf bu dosya yüzünden şuan işlem yapamıyorum. yardımcı olursan çok sevinirim ...

 

[İhsan Tank]

rica ederim
yalnız dosyalarını göremiyorum
2007 dosyanı rar'lı gönderirseniz

 

[cidago]

çılgın dosyayı ekledim.

 

[İhsan Tank]

merhaba
eki inceler misiniz
bu şekilde mi olacaktı

 

[cidago]

öğrenci listesi ile entegre olmuş ancak YURT NUMARASI'nın hemen sağına Cblok 212 nolu oda yazılacak. ayrı bir yurt numarası yok.
yazdıra tıkladığımda yazdırmıyor
rakam halen yazıya dönüşmüyor
birde tc kimlik no ile bilgilerin gelmesi depozito ve yurtücreti sayfalarında geçerli olacak.

sizide yoruyorum ama bir şekilde yapmak zorundayım...

ayrıca Peygamber efendimizin sözünü imza oalrak almanız çok güzel.
İlim öğrenmek her Müslüman için farzdır. İlim öğrenen kişiye, denizdeki balıklara kadar her şey istiğfar eder.

 

[İhsan Tank]

öğrenci listesi ile entegre olmuş ancak YURT NUMARASI'nın hemen sağına Cblok 212 nolu oda yazılacak. ayrı bir yurt numarası yok.
yazdıra tıkladığımda yazdırmıyor
rakam halen yazıya dönüşmüyor
birde tc kimlik no ile bilgilerin gelmesi depozito ve yurtücreti sayfalarında geçerli olacak.

sizide yoruyorum ama bir şekilde yapmak zorundayım...

ayrıca Peygamber efendimizin sözünü imza oalrak almanız çok güzel.
İlim öğrenmek her Müslüman için farzdır. İlim öğrenen kişiye, denizdeki balıklara kadar her şey istiğfar eder.

ben adım adım tarif edeyim size
yurt numarasının olmadığını belirtmişsin o zaman ilk adım olarak diğer yerlerdeki formülleri silelim ve hangi satırda Cblok 212 nolu oda yazılcak ise

=BİRLEŞTİR(EĞER(D10="";"";DÜŞEYARA($D$10;'ÖĞRENCİ LİSTESİ'!$A$2:$E$65536;4;0));" ";EĞER(D10="";"";DÜŞEYARA($D$10;'ÖĞRENCİ LİSTESİ'!$A$2:$E$65536;5;0)))

bu formülü uygulayalım
yazdırmak için bir commandbutton oluşturup içine

Private Sub CommandButton1_Click()
    
    mycount = Range("M8") + 1
      Range("M8") = mycount
      DoEvents
On Error Resume Next
Sheets("BANKA").PrintOut
End Sub

bu makroyu yazalım
üçüncüsü ise
boş bir module boş modul oluşturmak için lütfen tıklayın

Function tl_yaz(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
b = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
c = Array("", "", "Bin", "Milyon", "Milyar", "Trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "Yüz", "BirYüz", "Yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "BirBin" Then son = Replace(son, "BirBin", "Bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then tl = son & " TürkLirası"
If g = 2 And deger(2) <> 0 Then kr = " " & son & " Kuruş"
son = ""
e = 0
Next
tl_yaz = tl & kr
End Function

bu kodu kopyalayınız ( kod uzmanamele uzman'dan alıntıdır )
yazıya çevireceğiniz hücreye ise

=BİRLEŞTİR("Yalnız :";tl_yaz(K18))

bu formülü uygulayınız.
bu anlattıklarımı lütfen adım adım uygulayınız
not : şu an işyerinde olduğumdan 2003 kullanıyorum dilerseniz akşam 19:30'dan sonra evden yardımcı olurum

 

[cidago]

teşekkür ederim verdiklerinizi uygulayacağım. olmazsa akşam benim içinde müsait. oradan görüşürüz. çok sağolun.

 

[İhsan Tank]

rica ederim
bir diğer konu ise şu kendimize örnek olarak alacağımız başka örnek insan yok o yüzden peygamberimiz Hz. Muhammet Mustafa ( S.A.V. ) sözünü kendime imza olarak aldım ve bunu uygulamak için elimden geleni yapıyorum. akşam görüşmek üzere.

 

[uzmanamele]

...bu kodu kopyalayınız ( kod uzmanamele uzman'dan alıntıdır )...

merhaba

syn cılgın86'lı, ktf yi bu haliyle ben düzenlemiş olabilirim ama ben yazmadım, kod sitedeki arkadaşlardan (ç)alıntıdır.

 

[İhsan Tank]

merhaba

syn cılgın86'lı, ktf yi bu haliyle ben düzenlemiş olabilirim ama ben yazmadım, kod sitedeki arkadaşlardan (ç)alıntıdır.

hocam bilgi için teşekkür ederim ben sizden alıntı olduğunu not almışım. olsun sizin vasıtanızla diğer arkadaş'ada teşekkür etmiş olurum. kolay gelsin

 

[İhsan Tank]

2007 çözümü ektedir ( kendi dosyanıza sıfırdan uygulamak için makro'yu kayıt ettikten sonra farklı kaydetten makro içerebilen excel çalışma kitabı ) nı seçtikten sonra kayıt yapınız

 

[cidago]

çok sağol çılgın kardeşim. kendi dosyana sıfırdan uygulamak demişsin. ben excelde sol üstte bulunan makroyu kaydet kısmına tıklayıp kaydet dedim. sonrada dediğin şekilde makro içeribilen ecxel olarak farklı kaydettim. inşallah doğru yapmışımdır. sıfırdan uygulamak diyince kafam karıştı

 

[İhsan Tank]

çok sağol çılgın kardeşim. kendi dosyana sıfırdan uygulamak demişsin. ben excelde sol üstte bulunan makroyu kaydet kısmına tıklayıp kaydet dedim. sonrada dediğin şekilde makro içeribilen ecxel olarak farklı kaydettim. inşallah doğru yapmışımdır. sıfırdan uygulamak diyince kafam karıştı

merhaba
öncelikle şuna cevap vereyim sıfırdan uygulamaktan kastım herşeye baştan başlıyanlar için yani 2007'ye bunu baştan yapmak isteyenlere yazdım.
sizin sorunuza gelince eğer ki çalışmanızı açtığınızda makrolarla birlikte çalışıyorsa sorun yok demektir.
sorunuza çözüm bulduysanız lütfen bilgi veriniz

 

[cidago]

evet tamam gibi ancak 26000 olan tutarı değiştirince yazıya dönüşmüyor. birde aynı işlemi diğer sayfalarda yapmıyor.(depozito-yurtücreti...)

 

[İhsan Tank]

evet tamam gibi ancak 26000 olan tutarı değiştirince yazıya dönüşmüyor. birde aynı işlemi diğer sayfalarda yapmıyor.(depozito-yurtücreti...)

benim yüklediğim dosya'da değişiyor birde ben diğer sayfalara uygulamadım sadece banka sayfasına bunu uyguladım diğer sayfalara uygulamaya çalışın olmazsa söyleyin ben uyarlayıp göndereyim