Rakamları Yazı Şeklinde Yazdırma

[__TR__]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Aşağıdaki kod ile herhangi bir hücreye = Paracevir(hücre adresi) yazarak istediğim rakamı TL cinsinden yazıya çeviriyorum.

Yapmak istediğim bunu makro ile son dolu satırda kullanmak.

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

şeklinde gibi. Bu şekilde denedim hata verdi.

Bu kodu görmek için giriş yapmanız gerekmektedir (45 satır). Giriş Yap

 

[cakarem]

Örnek dosya yüklerseniz daha hızlı cevap alabilirsiniz.

Bu şekilde denedim hata verdi.

Ne hata aldığınızı yazabilirseniz bakalım. Yada dosyanızı yükleyiniz.

 

[Ömer BARAN]

Sanırım belli bir sütunda, son hücredeki sayısal verinin YAZIYA çevrilmesi isteniyor.
Tabi sonucun nereye yazılacağı çok net değil.

Ben şöye düşündüm: yazıya çevrilecek sayısal verinin bulunduğu sütundaki herhangi bir hücre seçiliyken
kod tetiklenirse (düğme kullanmak gibi);
-- Private Function Cevir isimli KTF kodunda, End Sub satırının hemen üstüne snc = Cevir satırı eklenip,
-- KTF kodlarının bulunduğu Modul'ün en başına da aşağıdaki kod eklenirse,
sayının hemen sağındaki hücrede sonuç alınır.

Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap

.

 

[__TR__]

Hazırladığım örnek dosyadan daha net anlaşılacaktır. H sütunu değişken o yüzden son dolu satırı kullanmak istedim. Kullandığım yazıya çevir makrosu yerine başka bir makroda kullanılabilir.

 

[Ömer BARAN]

Tekrar merhaba.

Module1'de mevcut tüm kodları silip, yerine aşağıdaki kodları yapıştırın.
Kod, TOPLAM kelimesinin konumunu bulur ve karşısındaki tutarı yazıya çevirerek,
örnek belgedeki metni oluşturur, TOPLAM satırının 2 satır altına para kısmı koyu olacak şekilde
metni yazıp, hücre birleştirmesini (A sütunundan TOPLAM'ın sütunu +1 sütnuna kadarki hücreler) yaparak işlemi tamamlar.

Bu kodu görmek için giriş yapmanız gerekmektedir (66 satır). Giriş Yap

.

 

[__TR__]

Teşekkürler Ömer hocam sorun çözüldü