Gzünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı. Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede. https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off Google'da birisi aratınca bundan sonra burası çıkacak. O yüzden bunu yazacağına çzümü anlatsaydın daha mantıklıydı,, cp değil orjinal yazı yazacaksan yaz yoksa yazma. echo "imzanız zel karakter içermemelidir";

Excel aç, ALT F11 bas. Insert > Module Aşağıdaki kodu kopyala: kullanımı: =YAZIYACEVIR(A1) Public Function YAZIYACEVIR Dim Para_TutarStr As String Dim ParaBirimi As String, ParaAltBirimi As String HücreAdı = Para_Tutar. Address If Para_Tutar = "" Then YAZIYACEVIR = HücreAdı & " Hücresine bir değer girmelisiniz!..." Exit Function End If If Not IsNumeric Then YAZIYACEVIR = HücreAdı & " Hücresine girilen değer, sayı değil!..." Exit Function End If ParaStr = Format(Abs , "0.00") ParaBirimi = Left(ParaStr, Len - 3) ParaAltBirimi = Right(ParaStr, 2) YAZIYACEVIR = IIf(Para_Tutar = 0, Cevir & "", "") & _ IIf(Para_Tutar <> 0, "", "") & _ IIf(Para_Tutar < 0, "Eksi ", "") & _ IIf(Para_Tutar <> 0, Cevir & "", "") & _ IIf(Val <> 0, Cevir & "", "") If ParaBirimi = 0 And ParaAltBirimi > 0 Then YAZIYACEVIR = "" & Cevir & "" If Para_Tutar < 0 And ParaAltBirimi > 0 Then YAZIYACEVIR = "Eksi " & Cevir & "" End If End If End Function Private Function Cevir As String Dim Rakam(15) Dim c(3), Sonuc, e Birler = Array Onlar = Array Binler = Array SayiStr = String(15 - Len , "0") + SayiStr For i = 1 To 15 Rakam = 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 If (i = 3) And 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 - 1) End Function YekteranBaymedir tarafından 03/Mar/14 03:12 tarihinde düzenlenmiştir

sağ tıkla güceyi biçimleindir tıkla yazı şekli metin de herşeyi yazarsın

Gzünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı. Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede. https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off cok guzel bır kapaklık cevap eywallah sevdigim 3 turk atasozu.. 1- besle kargayı atsın iftirayı, 2- yayılma sivril , 3- luzumsuz eşek sucuk olur ve son olarak, 4- ak akçe karagün kara akçe ak gün içindir...

Gzünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı. Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede. https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off Aldanma insanların samimiyetine, menfaatleri için gelirler vecde, vaad etmeseydi allah cenneti, ona bile etmezlerdi secde..

burda A2 hücresindeki rakamı B3 hücresindeki gibi nasıl yazabilirim

macro kodu yazmadan cevirmez yukaridaki macro kodunu kullan pist bak bi! - Ban Golu Canavari

Gzünüzü seviyim şu siteyi google niyetine kullanmayın yav. Başlığı google da arattım sürüsüne sonuç çıkarttı. Bu kadar hazırcı olmayın. Armut piş ağzıma düş. Zaten tbt yardısever yapacak bi eşşek çıkar mantığıyla dolanıyosunuz sitede. https://www.google.com.tr/?gfe_rd=cr&ei=F78TU6zzBYbe8gf_24A4#q=excel+rakam%C4%B1+yaz%C4%B1ya+%C3%A7evirme&safe=off bunları denedim olmuyor sadece rakamı yazıyor yazıyla yazmıyor onlar