• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ytl ykr yazıya çevirme sorunu çözemedim

M

Metin Karaağaç

Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
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?
 
bir ilave yapıyım istedim.
kuruş kısmındaki formülü silip, elle rakam yazılınca makro çok güzel çalışıyor.
 
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]
 
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ı ?
 
Doğrudur yaptım.
Hatta başka hücrelere de aynı formülü yazdım.
Gene kuruşu yazmiyor
 
Gönderdiğiniz dosyanın revize edilmiş şekli ektedir...
 
Bende oldu. Formülü nasıl yazdığınızı bilmiyorum.

Þöyle olması lazım:

=Yaz(a5:b5) gibi.

İnanmıyorsanız dosyanız ekte.
 
Sn Haluk,
Toplama işleminin sonucunu yazıyor.
Fakat çıkarma işleminin sonucunu niye yazmıyor?
 
Araçlar/Seçenekler/Hesaplama/Precision as displayed (Türkçesini hatırlayamadım Ondalık göründüğü gibi birşey olmalı.)
 
Sn yurttaş,
lütfen başka bir hücreye çıkarma işleminin sonucunu yazdırmaya çalışırmısınız?
 
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
 
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))
 
Tamsayı.
Evet Sn Haluk.
Ã?yle değişiklik yapınca oldu.
Sn yurttaş, Sn Haluk,
Çok teşekkür ederim
 
acaba bu makruyo nasıl
var olan bir çalışma kitabı üzerine aktarabiliriz

yardımcı olabilirseniz sevinirim
 
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.
 
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.)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst