excelde hücrenin içerisine girilen rakam otomatik olarak aynı hücreye yazı yazamaz ancak başka bir hücreye çeviri yapabilir. yani diyelim A1 hücresine 1.500.000 yazdın diyelimB3 hücresi otomatik olarak "BirMilyonBeşYüzBin" grünürbunun içinde excel vba sına kod yazman lazımbu kodda www.excel.gen.tr adresinde mevcut iyi çalışmalar

selamlar uzun zamandır sizden uzaktım neyse konuya giricem excel kullanırken bir hücredeki sayıyı nasıl yazıya dnüştirebilirim? Yol uzun olabilir. nemli olan yolun neresinde olduğumuzdur

iyide kardeşim niye imdaaaat diye yazdın bende sandım birini ldürüyorlaar:D işte yle

Private Function TutarYazisi Dim tmpSayiDim tmpUcluGrup Dim Buffer Buffer = ""tmpSayi = Sayi If clng(tmpSayi / 1000000000000) <> 0 ThentmpUcluGrup = clng(tmpSayi / 1000000000000) 'TrilyonBuffer = Buffer & UcluSayiAyir & "Trilyon"tmpSayi = tmpSayi - (tmpUcluGrup 1000000000000)End If If Int(tmpSayi / 1000000000) <> 0 ThentmpUcluGrup = Int(tmpSayi / 1000000000) 'MilyarBuffer = Buffer & UcluSayiAyir & "Milyar"tmpSayi = tmpSayi - (tmpUcluGrup 1000000000)End If If Int(tmpSayi / 1000000) <> 0 ThentmpUcluGrup = Int(tmpSayi / 1000000) 'MilyonBuffer = Buffer & UcluSayiAyir & "Milyon"tmpSayi = tmpSayi - (tmpUcluGrup 1000000)End If If Int(tmpSayi / 1000) <> 0 ThentmpUcluGrup = Int(tmpSayi / 1000) 'BinIf UcluSayiAyir = "Bir" ThenBuffer = Buffer & "Bin"ElseBuffer = Buffer & UcluSayiAyir & "Bin"End IftmpSayi = tmpSayi - (tmpUcluGrup 1000)End If If Int(tmpSayi / 1) <> 0 ThentmpUcluGrup = Int(tmpSayi / 1) 'BirBuffer = Buffer & UcluSayiAyir tmpSayi = tmpSayi - (tmpUcluGrup 1)End If TutarYazisi = Buffer End Function Private Function UcluSayiAyir Dim Birli_Rakam(10)Dim Onlu_Rakam(10)Dim tmpSayiDim tmpTekSayiDim Buffer Birli_Rakam(1) = "Bir"Birli_Rakam(2) = "İki"Birli_Rakam(3) = "Üç"Birli_Rakam(4) = "Drt"Birli_Rakam(5) = "Beş"Birli_Rakam(6) = "Altı"Birli_Rakam(7) = "Yedi"Birli_Rakam(8) = "Sekiz"Birli_Rakam(9) = "Dokuz" Onlu_Rakam(1) = "On"Onlu_Rakam(2) = "Yirmi"Onlu_Rakam(3) = "Otuz"Onlu_Rakam(4) = "Kırk"Onlu_Rakam(5) = "Elli"Onlu_Rakam(6) = "Altmış"Onlu_Rakam(7) = "Yetmiş"Onlu_Rakam(8) = "Seksen"Onlu_Rakam(9) = "Doksan" Buffer = ""tmpSayi = intSayi If Int(tmpSayi / 100) <> 0 ThentmpTekSayi = Int(tmpSayi / 100)If tmpTekSayi = 1 ThenBuffer = Buffer & "Yüz"ElseBuffer = Buffer & Birli_Rakam & "Yüz"End IftmpSayi = tmpSayi - (tmpTekSayi 100)End If If Int(tmpSayi / 10) <> 0 ThentmpTekSayi = Int(tmpSayi / 10)If tmpTekSayi = 1 ThenBuffer = Buffer & "On"ElseBuffer = Buffer & Onlu_Rakam End IftmpSayi = tmpSayi - (tmpTekSayi 10)End If If Int(tmpSayi / 1) <> 0 ThentmpTekSayi = Int(tmpSayi / 1)Buffer = Buffer & Birli_Rakam tmpSayi = tmpSayi - (tmpTekSayi 1)End If UcluSayiAyir = BufferEnd Function 'bu kodu makro editorden girersen ve bir hucreye TutarYazisi(1989455) Seklinde deger verirsen yazi halinde yazar Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

Neyse aacemiymiş arkadaş :) bi daha yapmaz. editledik konuyuda oldu bitti. Sanıyorum kendi ataszümü yaptım, kaynak belirterek kullanabilirsiniz. 10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Not : Syleyeni belli olduğu için ataszü değil, zlüsz oluyormuş, dolayısı ile kendi zlüszümü yapmış oldum :)