Öncelikle Ofis 2007, ofis 2010 ve üstü için
Görünüm sekmesinden
Makrolar
Makro Kaydet (bi isim verip geçiyoruz)
sonra alt+f8 e basıp düzenle diyoruz.
önce bu kodu yerleştiriyoruz.
KOD:
———————————————————————————————————-
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
———————————————————————————————————-
ekledikten sonra pencereyi kapatıyoruz
daha sonra bu kodla TL rakamla yazılı olan hücreyi belirtiyoruz. örnek olarak A1 yazdım, yazıya çevirmek istediğiniz hücre hangisi ise onu seçiniz.
Kod:
=tl_yaz(A1)
işte bu kadar.
basitcozum.com
Tek seferliğinemi olacak exele kaydedilemiyor fonksiyon olduğu için. Yani dosyayı kapattığımda kaydedemediği için uçuyor. Yeniden kod lazım olduğunda tekrar girmek gerekiyor. Bu ne biçim iş, yoksa benmi yanlış yapıyorum.
evet aynı sorun var.bir kerelik birşeyse zaten elle her zaman yazılır.sürekli otomatik yazıya çevirecek bir çözüm var mı?
Bakın !! biz sadece sayıyı yazıya çevirin diyoruz ama siz ooooo maşallah yapmadık şey bırakmıyorsunuz ya bakın ve bir kere bile olsa duşunun 😀 doğru ama dediklerim demi arkadaşlar zaten benim baska bakacak doğru site bulabilsen bakacam ama zaten morpa kampüsede üye olmak gerekiyormuş falan da fistanda işte 😀
Arkadaşlar kaydederken makro içerebilen excel çalışma kitabı olarak kaydetceksiniz.
Merhaba,
dediğiniz gibi kaydetmeme rağmen kayboluyor?
I simply needed to thank you very much again. I’m not certain what I would’ve undertaken without the type of points revealed by you directly on such theme. This was the challenging issue in my view, however , finding out your expert fashion you solved that made me to weep for delight. Extremely happier for this information and thus expect you are aware of an amazing job you have been getting into educating many people via your blog. Most likely you’ve never got to know all of us.
Hello There. I found your blog using msn. This is a really well written article. I’ll make sure to bookmark it and come back to read more of your useful information. Thanks for the post. I抣l definitely comeback.
sayın admin,
ben yazı şeklinde her bir rakamın ayrı ayrı yazılmasını istiyorum ve sayılardan sonra kodların içerisinde boşluk bırakarak bunu yapıyorum. fakat örnk”129.890,00″ tl çevirdiğinde bir yüz yirmi dokuz bin sekiz yüz doksan türk lirası yazıyor. dolayısı ile
kodun içerisindeki “biryüz” kısmını kaldırmak istiyorum fakat yapamıyorum lütfen yardımcı olurmusunuz.
Murat bey, aynı formülü kullanarak 129890 tl yi yazıya çevirtiyorum.
YüzYirmiDokuzBinSekizYüzDoksan TürkLirası çıkıyor. bir yüz vs yazmıyor.
dolayısıyla formülde bir değişikliğe gitmenize gerek yoktur.
ben bu denemeyi ofis 2010 ile yaptım, 2003 te de calışacağını umuyorum.
That is really attention-grabbing, You are an overly skilled blogger. I have joined your feed and sit up for searching for more of your wonderful post. Additionally, I’ve shared your website in my social networks!
I simply want to tell you that I am all new to weblog and absolutely savored this web site. More than likely I’m going to bookmark your website . You surely have impressive writings. Kudos for sharing your web site.
Çok faydalı oldu
Teşekkürler
kolay gelsin utku
Hocam süpersin. Kod gayet güzel çalışıyor. Oturup kod yazmaktan kurtardın beni 🙂 Ellerin dert görmesin.
işine yaradıysa ne mutlu 🙂
I just want to say I am just beginner to weblog and definitely loved you’re web site. Very likely I’m going to bookmark your blog post . You amazingly come with great writings. Thanks a bunch for sharing with us your blog site.
I just want to mention I am just new to blogging and definitely liked you’re blog. Probably I’m going to bookmark your blog . You absolutely have fantastic posts. Thanks a bunch for sharing your web-site.
la olm bu mu basit çözüm. YüzYirmiDokuzBinSekizYüzDoksan yazmak için bu kada iş mi yapçez admintrastor. git berbere traş ol.
sevgili salih, traş oldum, ama saç veya sakal değil! öncelikle işine yaramasa da yazdıklarımız senin bunu cıvık ağızla söylemen hoş değil.
konuya gelecek olursak eklentisiz olarak rakamı yazıya çevirmek istiyorsan bu basit bir formüldür.
iddaa bayiisinde kupon doldurması gereken biri buraya nasıl gelmiş anlamadım hocam.
çok güzel olmuş eline sağlık yanlız küçük yazı ile yazıyor bunun modülünü büyük harfle yapmanız yada varsa bir çözümünü bana mail atabilirmisiniz teşekkürler.
örnek;
=BUYUKHARF(tl_yaz(A1))
yaptım ben olmadı ad diye bişey yazıyor
BENDE COMPİLE ERROR
İNVALİD OUTSİDE PROCEDURE DİYOR
How do I change firefox from remembering my facebook info?
https://support.mozilla.org/tr/questions/1019624
Abi Allah razı olsun süper olmuş gayet güzel çalışıyor.Beni fatura programı almaktan kurtardın.Sen bakma bu saçma sapan konuşanlara.Teşekkürederim….
sizden de allah razı olsun.
Teşekkür ederim. Çok faydalı bir çalışma olmuş.
Admin kardeş “Yalnız” Kelimesini nasıl ekleyeceğiz
örnek;
=BİRLEŞTİR(“Yalnız “;tl_yaz(A1))
merhaba admin kardeş Yalnız kelimesini eklediğimde Değer hatası veriyor örnekte belirttiğini yaptım ama olmuyor sıkıntı neyden kaynaklaşıyor olabilir?
Abi makroyu dediğin gibi girdim işe yaradı kaydettim daha sonra aynı excelin başka sayfasına =tl_yaz(g12) dedim çalışmadı ve makroyu silip ilk haline getiremiyorum nasıl yapabilirim ilk haline yada her sayfada çalışması için ne yapmam gerekiyor. Yardımcı olursanız çok sevinirim.
Elinize sağlık paylaşımınız için teşekkürler.
yaptım denedim oldu. tşk. allah razı olsun
sizden de.
Hi, i think that i saw you visited my website thus i came to “return the favorâ€.I’m trying to find things to enhance my site!I suppose its ok to use a few of your ideas!!|
Thanks , I have recently been searching for info approximately this topic for ages and yours is the greatest I have found out so far. However, what concerning the bottom line? Are you positive in regards to the source?|
Very nice article, exactly what I needed.|
I’m truly enjoying the design and layout of your blog. It’s a very easy on the eyes which makes it much more pleasant for me to come here and visit more often. Did you hire out a developer to create your theme? Exceptional work!|
Fine way of explaining, and good post to take data about my presentation topic, which i am going to present in academy.|
I know this web site presents quality based posts and extra data, is there any other web page which offers these kinds of information in quality?|
makroyu kaydediyorum işlem yapıparken sıkıntı yok gayet iyi çalışıyor ama sayfayı kapatıp tekrara açtıtan sonra makrolara kaydetmiş olduğumuz formül siliniyo excel makro çalışma kitabı olarakta kaydettim ama sorun çözülmüyo her defasında kayıt siliniyo yardım lütfen
It’s hard to find educated people in this particular subject, but you seem like you know what you’re talking about! Thanks|
Very nice post. I just stumbled upon your weblog and wanted to say that I’ve really enjoyed surfing around your blog posts. In any case I will be subscribing to your rss feed and I hope you write again soon!|
Greetings from Colorado! I’m bored at work so I decided to check out your website on my iphone during lunch break. I really like the information you present here and can’t wait to take a look when I get home. I’m amazed at how fast your blog loaded on my cell phone .. I’m not even using WIFI, just 3G .. Anyhow, good site!|
An interesting discussion is worth comment. I think that you should write more on this topic, it might not be a taboo subject but generally people are not enough to speak on such topics. To the next. Cheers
Hello my family member! I want to say that this article is awesome, nice written and come with almost all vital infos. I’d like to peer more posts like this .|
bookmarked!!, I love your website!|
Have you ever considered about including a little bit more than just your articles? I mean, what you say is valuable and all. Nevertheless think about if you added some great photos or video clips to give your posts more, “pop”! Your content is excellent but with pics and video clips, this website could certainly be one of the greatest in its niche. Excellent blog!|
What’s up, I want to subscribe for this website to take most recent updates, therefore where can i do it please help out.|
This design is incredible! You certainly know how to keep a reader amused. Between your wit and your videos, I was almost moved to start my own blog (well, almost…HaHa!) Wonderful job. I really loved what you had to say, and more than that, how you presented it. Too cool!|
I am sure this paragraph has touched all the internet users, its really really fastidious article on building up new web site.|
Hello my friend! I want to say that this post is amazing, great written and include approximately all important infos. I’d like to look extra posts like this .|
merhaba 7774,00 tl yi yedibinyediyüzyetmiş tl yüz kuruş yazdı yedibin yediyüz yetmişdört yazması lazımdı
ÇOK SAĞOLLL COK IYI OLDU
hacım ellerine sağlık süper olmuş. bu işlemi formüllerle yapmıştım gereksiz bir sürü tablo ve formül yazmak zorunda kalmıştım. kusursuz çalışıyor.
Gerçekten çok faydalı bir paylaşım olmuş, benim sorum örneğin “YirmiYedi Türk Lirası Doksan Kuruş” ta yirmi ve yediyi birleşik yazıyor, ben arasında boşluk kalmasını yani Yirmi Yedi Türk Lirası yazmasını istiyorum. Mümkün müdür acaba yardımcı olabilir misiniz?
Alt + F11 e basın orada açılan modülde kopyaladığınız kodlar var.
“Bir”
“İki” gibi devam eden metinleri boşluk bırakarak yazın. Şu şekilde:
“Bir ”
“İki ”
“Üç ”
Bütün metinlerde o tek boşluğu bırakarak yazdığınızda istediğiniz aralıklar ortaya çıkmış olacak. Modülü kapatıp yeni bir rakam yazın ve kontrol edin.
Merhaba,
Elinize sağlık ne zamandır formülümüzü kullanıyorum. Bana Euro ve Dolar yazmam içinde bir formül bulabilir misiniz?
Teşekkürler.
makroda kodu yazdıktan sonra en altta TürkLirası yazan yere DOLAR ve Kuruş yazan yere SENT yazarsan çıkar. aynı sorun bende de vardı denedim oldu.
ADMİN BABA, İNGİLİZCE OLARAK YAZSIN DİYE ( commercial invoice lar için) Türkçe yazdığın rakamları ingilizce yazdım olmadı patladı.
bir el atarsan çok sevinirim. Allah şimdiden razı olsun. .
BU arada en üstteki ve en aşağıdaki tl_yaz denen yerlere euro_yaz ve usd_yaz demen lazım ki yeni fonksiyonda tanımlamalarını doğru yapsın.
Aslında istediğim şöyle;
Sub eur()
Function euroeng_yaz(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array(“”, “ONE “, “TWO “, “TREE “, “FOUR “, “FIVE “, “SIX “, “SEVEN “, “EIGHT “, “NINE “)
b = Array(“”, “TEN “, “TWENTY “, “THIRTY “, “FOURTY “, “FIFTY “, “SIXTY “, “SEVENTY “, “EIGHTY “, “NINETY “)
c = Array(“”, “”, “THOUSAND “, “MILLION “, “BILLION “, “GRANDBILLION “)
deger(1) = Int(sayi)
deger(2) = Round(sayi – deger(1), 2) * 100
If sayi = 0 Then son = “ZERO”
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)) & “HUNDRED “, “HUNDRED “, “HUNDRED “)
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) = “THOUSAND” Then son = Replace(son, “THOUSAND”, “THOUSAND”)
If Left(son, 2) = “TEN ONE ” Then son = Replace(son, “ELEVEN “, “ELEVEN “)
For f = 1 To 3
deg(f) = “”
s(f) = “”
Next: Next
If g = 1 And deger(1) 0 Then EURO = son & ” EURO”
If g = 2 And deger(2) 0 Then CENT = ” ” & son & ” CENT”
son = “”
e = 0
Next
euroeng_yaz = EURO & CENT
End Function
Fakat burada bir sorun var 11 ile 19 arası tüm rakamları Ten One Ten Two vs.vs. diye yanlış olarak yazıyor. Bu olay ile ilgili yardım etmenizi rica ediyorum.
Saygılar
Ellerine sağlık çok teşekkür ederim.
Merhaba, makroyu kaydettim çalışıyor. Ancak şöyle bir durum var, örneğin; formül ile çıkan 187,00 TL tutarı yazıya çevirirken Yüzseksenaltı TürkLirası Yüz Kuruş şeklinde çeviriyor. Sayıyı 3 ondalık basamaklı sayıya çevirdiğimde; 186,998 TL yazıyor. Ben, 2 basamaklı olduğu gibi yani YüzSeksenYedi Türk Lirası şeklinde çevirmesini istiyorum. Nasıl yapabiliriz?
Çok teşekkür ederim. Allah sizden razı olsun; sizin işinizi de kolaylaştırsın.
Öncelikle emeğinize sağlık. Çok yararlı bir paylaşım olmuş. benim formülle ilgili sıkıntım şu, 1000 sayısını metne çevirirken “BİRBİN” şeklinde değiştiriyor. yardımcı olursanız sevinirim.
Good morning,
We are a group of investors holding a substantial portfolio of valuable gambling related domains.
Domains are key assets for any successful online gambling business, therefore, I would like to discuss further in details with you about our current inventory for sale.
I will be sending you a complete list on Wednesday morning, but do let me know if you have any specific areas of interest (e.g. tld, target market, number of monthly searches etc).
Can we arrange a call on Thursday to discuss so I can give you some more background?
Kind Regards,
Laila Bertagnolli
bertagnollilaila@gmail.com
Hello,
We are a group of investors holding a substantial portfolio of valuable gambling related domains.
We are offering Backlinks for Gambling. All Links are from unique IPs and Domains. We can push any language you want. All our Network get SEO because we target long tail keywords so we want them to rank.
Prices example:
Blog Post: 30 Euro
Homepage link: 50 Euro per Month
We can offer up to 350 different IPs and Domains.
Thanks
Jerome
Hello there,
My name is Aly and I would like to know if you would have any interest to promote your website here at basitcozum.com on our blog alychidesigns.com ?
I am looking for people/businesses that would like to contribute promotional or helpful articles to our blog.
If you are willing to post on our site, we would post an promotional link within the article as well as an (optional) author link.
If you may be interested please let me know.
Thanks,
Aly
MERHABA BENDE FORMÜLÜNÜZÜ UYGULADIM ÇALIŞTI LAKİN SONRA TEKRAR YAPMAK İSTEDİĞİMDE KAYBOLDU BUNU NASIL SABİTLEYEBİLİRİZ
macro içerebilen excel dosyası olarak kaydederseniz ( dosya formatı .xlsm olacak yani) macro kaybolmaz.
Şahanesiniz, süper çok teşekkürler. Office Mac uygulamasında çalışan tek macro bu. Sadece Türkçe karakterleri ctrl+f ile ingilizce karakterlere değiştirmek gerekiyor ve dosyayı macro enabled olarak kaydetmek gerekiyor
AAAA內容aaaa
hepsini nasıl büyük harf yazdıra biliyoruz acaba
AAAA內容AAAAAA
Hello there,
Have you been interested in improving your search engine ranking in google?
Our company is offering all-in-one PBN production services
PBN is a “Private Blog Network”, it is just a fantastic method on your Search engine marketing purposes.
The ins and outs:
We buy sturdy domains with impressive inbound links and build top quality network for the clients. We promise that all your domain name will have clean inbound link profile and a minumum of one inbound link from authority web sites like:
Huffingtonpost
CNN
Wikipedia
NYTimes
and many more
What you will get
Domain name research and ordering
Web hosting service with unique Ip address/DNS/Location for every website
WordPress platforms installation and setup
Content posting
Bot blocking
The cost begins at $50 per website.
If you are interested, please send us a message to our email: friscarialtoni@gmail.com.
Please note: This e-mail was sent from a notification-only address that cannot accept incoming e-mail. Please do not reply to this message.
Hello there,
My name is Aly and I would like to know if you would have any interest to have your website here at basitcozum.com promoted as a resource on our blog alychidesign.com ?
We are in the midst of updating our broken link resources to include current and up to date resources for our readers. Our resource links are manually approved allowing us to mark a link as a do-follow link as well
.
If you may be interested please in being included as a resource on our blog, please let me know.
Thanks,
Aly