[]
excel'de para tutarını yazıya çevirme
merhaba,
basit bir excel tablosunda topladığım tutarı yazıya çevirmeye çalışıyorum fakat şöyle bir durum oluşuyor; aşağıdaki kodu makro alanına girdiğimde sorunsuz çalışıyor çalışmasına da kitabı kapatıp tekrar açtığımda formül kendiliğinden kaybolmuş oluyor.
bilen beri gelsin :(
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
basit bir excel tablosunda topladığım tutarı yazıya çevirmeye çalışıyorum fakat şöyle bir durum oluşuyor; aşağıdaki kodu makro alanına girdiğimde sorunsuz çalışıyor çalışmasına da kitabı kapatıp tekrar açtığımda formül kendiliğinden kaybolmuş oluyor.
bilen beri gelsin :(
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
makro içerebilen excel dosyası şeklinde kaydet.
- rhan
(24.09.14 00:37:13)
o şekilde de yapmaya çalıştım fakat yine birşey değişmedi. ya da ben yanlış yaptım :s
- taskin (24.09.14 00:50:55)
Dosyayı yükle bakalım bir
- rhan (24.09.14 08:53:21)
Bunun makrosuz hali vardı iş yerindeki bilgisayarda. Google da aratsana bi excelde makro olmadan sayıyı yazıya çevirme diye. Daha basitti o şekilde yapmak.
- petitjoueur (24.09.14 08:57:59)
Bu makroyu add-in olarak eklersen istediğin zaman kullanabilirsin. xlam olarak kaydedip, excel'e göstereceksin. Çok basit bir şey. Google'da bir ara.
- zombi (24.09.14 10:41:25)
[]
eryaman'da kiralık bahçe katı dubleks aranıyor
selam.
eryaman'da 1+1 bahçe katı dublekslerden, mobilyalı ya boş olarak eli yüzü düzgün bir ev arıyorum. tanıdığı olan yeşillendirsin fındık dallarını.
eryaman'da 1+1 bahçe katı dublekslerden, mobilyalı ya boş olarak eli yüzü düzgün bir ev arıyorum. tanıdığı olan yeşillendirsin fındık dallarını.
@pegiciğim sahibinden.com'u hatim ettim diyebilirim :(
öncelikli sahibinden arıyorum
öncelikli sahibinden arıyorum
- taskin (12.08.14 19:02:44)
Inanmayin, TC kimlik numaranizi herkesle de paylasmayin.
- yilmazyildirim (09.11.12 08:52:50)
ben olsam hatta bu numarayı polise şikayet ederdim
- dessy
(09.11.12 08:54:16)
[]
id tag editor?
Günaydın,
itunes'da müziklerim keşmekeş bir halde. id taglerini kolaylıkla düzenleyebileceğim program var mı bildiğin?
itunes'da müziklerim keşmekeş bir halde. id taglerini kolaylıkla düzenleyebileceğim program var mı bildiğin?
Winamp.
Önce tüm mp3'leri bilgisayara at. Bunun için i-funbox programını kullanabilirsin. Tamam kullanacağım nasıl dersen anlatırım.
Daha sonra bu mp3'lerin hepsini aynı anda winamp'ta çalıştır. Sonra id tag'lerini değiştirmek istediklerini seç (topluca da seçebilirsin ctrl ile) sağ tıkla, Gönder(Send) / Otomatik etiketle (Auto-tag) seçenepine bas. İnternet bağlantısı sayesinde hepsinin etiketlerini otomatik bulacaktır.
Daha sonra müzikleri cihaza gönder. iTunes'daki listede hepsini seç sağ tıkla id taglerini 2.4'e güncelle.
Önce tüm mp3'leri bilgisayara at. Bunun için i-funbox programını kullanabilirsin. Tamam kullanacağım nasıl dersen anlatırım.
Daha sonra bu mp3'lerin hepsini aynı anda winamp'ta çalıştır. Sonra id tag'lerini değiştirmek istediklerini seç (topluca da seçebilirsin ctrl ile) sağ tıkla, Gönder(Send) / Otomatik etiketle (Auto-tag) seçenepine bas. İnternet bağlantısı sayesinde hepsinin etiketlerini otomatik bulacaktır.
Daha sonra müzikleri cihaza gönder. iTunes'daki listede hepsini seç sağ tıkla id taglerini 2.4'e güncelle.
- himmet dayi (30.10.12 07:52:13)
süper. winamp'ta çoklu seçim olduğunu bilmiyordum.
artık herşey daha kolay olacak, teşekkürler.
artık herşey daha kolay olacak, teşekkürler.
- taskin (30.10.12 08:06:01)
J.River Media Center v17.0.140
edit: windows 7nin kendi tag düzenleyicisi var. daha pratik ve hızlı.
edit: windows 7nin kendi tag düzenleyicisi var. daha pratik ve hızlı.
- cetoxim (30.10.12 10:49:34 ~ 10:50:28)
Media Monkey
- mehmet lutfi (30.10.12 15:40:11)
yazı rengi değiştirme butonu var ya, A harfi ve renk, onun hemen yanında olması lazım yine altı çizgili bir A harfi ya da ABC harfi.. (altında sarı-kırmızı vs. bir renk olması lazım) Kurcala bütün butonarı ;)
- rodriguez2 (04.10.12 14:49:28)
- onexey (04.10.12 14:50:38)
notepad'e aktararak düzelttim. internet sitesinden kopyaladığım için oldu bı sıkıntı.
ilginiz için teşekkür ederim <3
ilginiz için teşekkür ederim <3
- taskin (04.10.12 14:55:34)
@revelte; evet o şekilde durum çözülüyor. lakin siyah fonlu bir internet sitesinden kopyaladığım için değiştiremedi.
notepad rulez! :)
notepad rulez! :)
- taskin (04.10.12 15:01:07)
[]
Bi buldurun yahu; Nikon D70s Türkçe kullanım kılavuzu
internette bulamadım, belki arşivinde olan vardır di mi?
- ahmetcan44 (02.10.12 16:31:59)
evet gönderdim. ama cevap yok malesef :/
- taskin (02.10.12 18:00:58 ~ 18:04:24)
[]
Irak - erbil internet baglantisi hakkinda.
Selam,
Erbil dolaylarinda internet durumlari nasildir? Turkmenistan gibi sikintili mi acaba?
Erbil dolaylarinda internet durumlari nasildir? Turkmenistan gibi sikintili mi acaba?
- doktor sagbirakmayan (29.05.12 23:31:51)
genel kullanım usb modem alıyorsun sonra içine para yüklemesi yaparak internete giriyorsun ve evet yavaş. son 1 senedir altyapı geliştiğinden artık bulunduğun yere göre değişmekle normal internet bağlantısı da sağlanabiliyor onun hızı hakkında çok bilgim yok ama 1 mb hızı görmeyeceğine emin olabilirsin
- re 1809 (30.05.12 13:34:16)
yep.
- isminivermekistemeyenkullaniciiki (09.12.11 10:56:16)
Ben yarı otomatik scooter ile girdim, geçtim. Yerine göre değişir, kursa sor bence.
- kimlanbu (09.12.11 10:59:31)
telefonlar görüşmemiz doğrultusunda,zorunlu olarak verildiğini bildirdiler.teşekkürler.
- taskin (09.12.11 11:14:37)
düz vites kullanamayacak kadar acemiyseniz bence o ehliyeti alsanız bile trafiğe çıkmayın.
- 386 dx (09.12.11 11:21:44)
ben de 2008 sonunda sanıyorum, çorum'da askerliğimi yaparken boş duranı allah sevmez diyip yazılmıştım sınava. bir scooter kullandırdılar, bir koniden diğerine gidip geri döndüm oldu bitti :)
- aboutablank (09.12.11 11:28:08)
@386dx; 9 ay kadar otomatik tecrübem var.kullanacağım motor otomatik vites olarak devam edeceği içindir araştırmam.teşekkürler.
- taskin (09.12.11 11:34:05)
alkası bile yok, ben sınavda dandik otomatik çin malı scooter la girdim, üstüne bi de devirdim sınavda, ona rağmen aldım ehliyeti. hatta şöyle söliim hiç binmemiş bir arkadaşı da diğerleri yanlarından tutarak belli bi mesafe götürüp getirmiş ve o eleman bile ehliyet almıştı.
- rentts (09.12.11 11:42:55)
@rentts, ne zaman aldın ehliyeti?lan bunlar beni mi kandırıyorlar acaba? :)
- taskin (09.12.11 11:55:16)
2008'de mi ne scooterla almıştım.
- terp (09.12.11 12:02:10)
7 sene önce aldım dandik sukuturla.
- azurre (09.12.11 12:03:13)
2008-2009 da scooterla girmek istedik izin vermediler. insiyatif tamamen sizi sınava sokması için görevlendirilen gözetmen olan 2 tane öğretmende. evet ilkokul öğretmeni..
kısaca tamamen şans meselesi. belli ki motordan anlayan arkadaşlar bile düz vites kullanamayacak kadar acemiysen çıkma diyor ama bu zamanda belki otomatik kullanacağım. belki düz vitesli motora hiç oturmayacağım.
o yüzden scooterla da sınava girmek mümkün olmalı ama bazı çok bilmiş öğretmenler onu motordan saymıyor. halbuki 2 teker olsun ve motoru 50 cc yi geçsin motosiklet demek için yeterlidir.
kısaca tamamen şans meselesi. belli ki motordan anlayan arkadaşlar bile düz vites kullanamayacak kadar acemiysen çıkma diyor ama bu zamanda belki otomatik kullanacağım. belki düz vitesli motora hiç oturmayacağım.
o yüzden scooterla da sınava girmek mümkün olmalı ama bazı çok bilmiş öğretmenler onu motordan saymıyor. halbuki 2 teker olsun ve motoru 50 cc yi geçsin motosiklet demek için yeterlidir.
- ozdek (09.12.11 12:22:36)
ey iyisi sınava motosikletle gitmeli..
- taskin (09.12.11 12:34:51)
girdiğin yere göre değişiyor sürücü kursunun motoru neyse ona göre biniyorsun. sürücü kursuna sorun.
- fukka (09.12.11 12:35:31)
2011.
- rentts (09.12.11 21:03:05)
kendi sorumu kendim cevaplayayım o zaman.
Gmail'de 2 adımla doğrulama ayarını kapatmanız gerekiyormuş.Bu şekilde mail alıp gönderebiliyoruz.
Gmail'de 2 adımla doğrulama ayarını kapatmanız gerekiyormuş.Bu şekilde mail alıp gönderebiliyoruz.
- taskin (08.12.11 09:26:22)
gmail,güvenlik için yeni bir zımbırtı yapmış.şifreni girdikten sonra cep telefonuna doğrulama mesajı geliyor.
- taskin (08.12.11 16:46:56)
kuzenime cıktı yeni o araştırmış 5. yıldızlı otel diyolarmış hadi hayırlısı olsun
- hiyartobaggio (10.05.10 15:26:19)
[]
Hesap Ücreti Almayan Banka?
Başlık açıklıyo işte,dolandırıcı garanti bankasından kurtulmak istiyorum.
tadım değil de başka bir markaydı sanki. sanırım findux idi.
Evet yıllardır görmüyorum bu markayı
Evet yıllardır görmüyorum bu markayı
- frown (12.03.10 07:24:15)
bim exclusive idi sanırım ve artık yok. canım çekti lan :(
- yuto (12.03.10 08:33:21)
1
