ytl ykr yazıya çevirme sorunu çözemedim

[Metin Karaağaç]

selam.
bu dosyadaki makroyu forumdan almıştım.
ancak sizin de göreceğiniz gibi kuruş kısmını yazmıyor bi türlü.
sorun nerede?

 

[Metin Karaağaç]

bir ilave yapıyım istedim.
kuruş kısmındaki formülü silip, elle rakam yazılınca makro çok güzel çalışıyor.

 

[Haluk]

Günaydın;

Kodlarda aşağıdaki kırmızı değişikliği yapmanız gerekiyor:

[vb:1:eb5d823af8]Function yaz$(ytl, ykr)
Dim aa(2)
Dim deg(2)
aa(1) = Val(ytl)
aa(2) = Val(ykr)
For zz = 1 To 2
Sayi = aa(zz)
Dim b$(9)
'.....
'....
'..
[/vb:1:eb5d823af8]

 

[Metin Karaağaç]

olmadı Haluk Bey

 

[Haluk]

Ben yaptım, oldu... sizde niye olmasın ki ?

Kodu değiştirdikten sonra, formulün yazıldığı hücreyi güncellediniz mi ?

Veya, F9 tuşuna bastınız mı ?

 

[Metin Karaağaç]

Doğrudur yaptım.
Hatta başka hücrelere de aynı formülü yazdım.
Gene kuruşu yazmiyor

 

[Haluk]

Gönderdiğiniz dosyanın revize edilmiş şekli ektedir...

 

[Merhum İdris SERDAR]

Bende oldu. Formülü nasıl yazdığınızı bilmiyorum.

Þöyle olması lazım:

=Yaz(a5:b5) gibi.

İnanmıyorsanız dosyanız ekte.

 

[Metin Karaağaç]

Sn Haluk,
Toplama işleminin sonucunu yazıyor.
Fakat çıkarma işleminin sonucunu niye yazmıyor?

 

[Merhum İdris SERDAR]

Araçlar/Seçenekler/Hesaplama/Precision as displayed (Türkçesini hatırlayamadım Ondalık göründüğü gibi birşey olmalı.)

 

[Metin Karaağaç]

Sn yurttaş,
lütfen başka bir hücreye çıkarma işleminin sonucunu yazdırmaya çalışırmısınız?

 

[Metin Karaağaç]

Ya kafayı yicem.
olmuyor işte olmuyor.
benim excel de mi bi sorun var?
başka hücrelree =yaz(A4;B4) diyorum kuruşu yazmıyor.
A4:B4 ü de denedim

 

[Merhum İdris SERDAR]

Dosya ekte

 

[Haluk]

Sorun, sayın yurttas da belirttiği gibi sizin 65 diye görünen değerin aslında 65,0000000000006 olmasından kaynaklanıyor.

Ya, sayın yurttas'ın dediği ayarı yapın ya da sayfa formullerinde sizin orjinal formül sonuçlarını tam sayıya dönüşterecek ilaveyi yapın.

A4 >> =INT(IF(B2<B3;(A2-1)-A3;A2-A3))

B4 >> =INT(IF(B2<B3;(100+B2)-B3;B2-B3))

 

[Metin Karaağaç]

Bir de şimdi bakın..

 

[Metin Karaağaç]

Tamsayı.
Evet Sn Haluk.
Ã?yle değişiklik yapınca oldu.
Sn yurttaş, Sn Haluk,
Çok teşekkür ederim

 

[Merhum İdris SERDAR]

k:: :bravo:

 

[topaz]

acaba bu makruyo nasıl
var olan bir çalışma kitabı üzerine aktarabiliriz

yardımcı olabilirseniz sevinirim

 

[Merhum İdris SERDAR]

1. Yöntem: kitabınızdaki sayfaları bu macronunun olduğu dosyaya kopyalayın. Sonra bu dosyada size lazım olmayan sayfaları silin. (Bu Topikte yer alan dosya için söylüyorum)

2. Yöntem: Macrolu dosyayı açın ALT+F11 tuşlarına aynı anda basarak Modul'lerin olduğu alana geçin. Macro'nun olduğu modul'den macroyu kopyalayın. Sonra bu dosyayı kapatın.(Kapatmasanız da olur. Ancak kafa karışmasın diye bunu yaptırıyorum.) Kendi dosyanızı açın. Yine ALT+F11 tuşlarına aynı anda basarak kod yazılacak alana geldikten sonra Insert/Module'den bir Module yaratın. Muhtemelen bu Module1 olacaktır. Bunun içine girerek "Paste " edin.

İşlem tamamdır.

 

[Metin Karaağaç]

Alt+F11 yapın
Açılan pencerede Insert/Module deyin
tekrar pencere açılacak.
bu pencereye kodları kopyalayıp yapıştırın.
kaydedin
kullanmak için yazıyla yazdıracağınız hücreye =yaz(A1;B1)deyin
(Burada A1 ve B1 örnek olsun diye verdim. siz hangi hücreleri yazmasını istiyorsanız o hücrelerin adını yazacaksınız.)