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
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ı.
araştırdım ama bulamadım. ne ayak bu abiler?
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?
nasıl yapıyoruz?
* ofis 2007
* ofis 2007
internette bulamadım, belki arşivinde olan vardır di mi?
Selam,
Erbil dolaylarinda internet durumlari nasildir? Turkmenistan gibi sikintili mi acaba?
Erbil dolaylarinda internet durumlari nasildir? Turkmenistan gibi sikintili mi acaba?
selam.soru başlıkta.
Selam.Soru başlıkta..
nasıldır arkadaşlar orada yapan eden varmı?
Başlık açıklıyo işte,dolandırıcı garanti bankasından kurtulmak istiyorum.
üretmiyolarmı artık?
1