Kilo Gram

[ASLAN7410]

Merhaba arkadaşlar.

Benim küçük bir formüle ihtiyacım var,

A1 hücresine 1.112,30 yazdığımda B1 hücresine 1 ton 112 kilo 30 gram yazmasını,
A1 hücresine 12,30 yazdığımda B1 hücresine 12 kilo 30 gram yazmasını,
A1 hücresine 12,00 yazdığımda B1 hücresine 12 kilo yazmasını istiyorum.
A1 hücresine 0,30 yazdığımda B1 hücresine 30 gram yazmasını istiyorum.
Çok araştırdım ancak istediğim gibi bir şey bulamadım, yardım edecek arkadaşlara şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Hatalı mesajı sildim.

Yeniden yazayım.

=EĞER($A1="";"";EĞER(A1>1000;TAMSAYI(TAMSAYI(A1)/1000)&" ton ";""))&EĞERHATA(SOLDAN(EĞER($A1>1000;$A1-1000;$A1);BUL(",";EĞER($A1>1000;$A1-1000;$A1);1)-1);EĞER($A1>1000;$A1-1000;$A1))&" kilo "&EĞER(MOD($A1;1)=0;"";YUVARLA(100*MOD($A1;1);2)&" gram")

 

[ASLAN7410]

Ömer Bey ilginiz için çok teşekkür ediyorum, tam istediğim gibi olmuş ancak küçük bir sorun var,
A1 hücresine 0,30 yazdığımda 0 kilo 30 gram yazıyor, bunu sadece 30 gram yazdırabilir miyiz?

 

[Ömer BARAN]

Eksiği fark etmiştim, formülü aşağıdaki ile değiştirin.

Formülü değiştirdim, tekrar kontrol ediniz.

=EĞERHATA(EĞER(TAMSAYI($A1/1000)>0;TAMSAYI($A1/1000)& " ton ";"")&EĞER($A1-(1000*TAMSAYI($A1/1000))-MOD($A1;1)>0;$A1-(1000*TAMSAYI($A1/1000))-MOD($A1;1)&" kilo ";"")&EĞER(YUVARLA((MOD($A1;1)*1000);0)>0;YUVARLA((MOD($A1;1)*1000);0)& " gram";"");"")

 

[ASLAN7410]

Ömer Bey Allah razı olsun tam istediğim gibi oldu, fakat yeni bir sorun çıktı, hücreleri topla dediğim zaman değer 0 sıfır çıkıyor, değerin yanına gelen kilo veya gram yazısından kaynaklanıyor herhalde, bunu nasıl çözebilirim?

 

[ASLAN7410]

Ömer Bey ayrıca hücreye 12,300 yazdığımda 12 kilo 30 gram yazıyor, 12 kilo 300 gram neden yazmıyor?

 

[ASLAN7410]

Ayrıca Ömer Bey küçük rakamları yuvarlama yapıyor, örnek olarak 0,999'u 100 gram görüyor.

 

[ataköylü-59]

Sayın Aslan Bey Ömer Bey'in yazmış olduğu kodda çok küçük bir düzeltme yaptım. Ömer Bey'in dikkatinden kaçmış olmalı
Şöyle ki Ağırlık ölçüleri biner biner büyür, biner biner küçülür bu yüzden Gram hanesini düzenleyen bölümde bulunan 100 sayısını 1000 yapmalıyız.
Hesaplama işine gelince bu kodların yazılı olduğu hücrelerde soldaki sayıların bir açılımı var demektir. Hesaplatma yapılacaksa Ağırlık ölçülerinin yazılı olduğu hücrelere başvuruda bulunulmalı
Ayrıca bu kodu düzenlediği için Ömer Bey'e teşekkürler efendim.

=EĞER(TAMSAYI($A1/1000)>0;TAMSAYI($A1/1000)& " ton ";"")&EĞER($A1-(1000*TAMSAYI($A1/1000))-MOD($A1;1)>0;$A1-(1000*TAMSAYI($A1/1000))-MOD($A1;1)&" kilo ";"")&EĞER(YUVARLA((MOD($A1;1)*100);0)>0;YUVARLA((MOD($A1;1)*1000);0)& " gram";"")

 

[Ömer BARAN]

Metin yazdırdığınız hücrelerde toplama yapmak istiyorsanız durum değişir tabi.
Toplama filan yaptırmak için formül yerine hücre biçimlendir-> özel bölümüne yeni bir biçim tanımlamak lazım, fırsat bulursam ona da bakarım.

Yukarıdaki formül cevabında değişikik yaptım, tekrar kopyalayıp uygulayınız.

 

[ASLAN7410]

Sayın ataköylü-59 valla şimdi tam istediğim gibi oldu.

omer.baran Bey ve ataköylü-59 her ikinize de çok teşekkür ediyorum, hayırlı geceler.

 

[ataköylü-59]

Sayın ataköylü-59 valla şimdi tam istediğim gibi oldu.

omer.baran Bey ve ataköylü-59 her ikinize de çok teşekkür ediyorum, hayırlı geceler.

Aman efendim! bana değil, tamamıyla Ömer beye müteşekkiriz.

 

[Ömer BARAN]

Tekrar merhaba.
Sonucu B1 de görmek için; B1 hücresine =A1 yazın ve B1 hücresinde hücre biçimlendir menüsünde alttaki İSTEĞE UYARLANMIŞ'ı seçin ardından aşağıdakini sağ üstteki alana yapıştırın ve işlemi tamamlayın.

# "ton"  ##0 "kilo"  ,000 "gram"

gramdan önceki " , " işaretini yok etmek için bakacağım.

Bu şekilde artı matematiksel işlemler de yapabilirsiniz.

 

[Ömer BARAN]

Sanırım en uygunu hücre biçimlendirmede İSTEĞE UYARLANMIŞ biçimlendirme kısmına;

#0 "ton,"  ##0 "kilo",  000 "gram"

yazmak.

İyi günler dilerim.

 

[Murat OSMA]

Bu KTF'de benden olsun.

[FONT="Trebuchet MS"][SIZE="2"]Function Ağırlık(ByVal sayı As Range)
    gr = Mid(sayı, InStr(1, sayı, ",") + 1, Len(sayı)) & " gram "
    On Error GoTo 10
    kg = Mid(sayı, InStr(1, sayı, ",") - 3, 3) & " kg "
    t = Val(sayı)
    If Len(t) > 3 Then ton = Replace(t, Val(kg), "") & " ton ": GoTo 20
10 kg = Mid(sayı, 1, InStr(1, sayı, ",") - 1) & " kg "
    If Val(kg) = 0 Then kg = ""
20 Ağırlık = ton & kg & gr
 End Function[/SIZE][/FONT]

Aslan Bey'in istediği 0,30 yazınca 30 gram görünsün isteğine de uygun. ​

 

[eskasan06]

Sayın Murat Osma. Sitenizde Türkçe yazın kurallarına uymamasını bahane ederek insanlara fırça atıyorsunuz ama burada maşallah çam devirmekte sakınca görmüyorsunuz.

 

[Murat OSMA]

Çok komiksin Şerif Ali Şensazlı. :hiho:
Excel Arşivini istedin de sana satmadım diye mi kızdın? ;-)

 

[ASLAN7410]

Murat Bey hayırlı geceler ilginiz için çok teşekkür ediyorum, KTF ile daha güzel olacak, ancak A1 hücresine 1.515,500 yazdığımda 1 ton 515 kg 5 gram bu şekilde yazıyor, normalde 1 ton 515 kilo 500 gram yazması gerekiyor.
Ayrıca A1 hücresine 0,300 yazdığımda 3 gram yazıyor, bu da 300 gram yazması gerekiyor.

 

[Ömer BARAN]

Merhaba Sayın ASLAN,
-- yazdığım 4 numaralı cevaptaki formülü güncellemiştim,
-- iki adet de hücre biçimlendirme cevabı yazdım,
gördünüz mü acaba?

Sayın OSMA'nın KTF olayına söyleyecek bir şeyim yok elbette.
Kendisi ne diyorsa o'dur.

 

[ASLAN7410]

Ömer Bey valla ne deyim, ilginize çok teşekkür ediyorum, hepsini gördüm sizi yordum, Murat Bey'in KTF kodu da çok güzel, sizin yazmış olduğunuz formül de çok güzel, her ikisini de farklı yerde kullanabilirim.
Yardımı geçen herkese çok teşekkür ederim, hayırlı geceler.

 

[Murat OSMA]

Murat Bey hayırlı geceler ilginiz için çok teşekkür ediyorum, KTF ile daha güzel olacak, ancak A1 hücresine 1.515,500 yazdığımda 1 ton 515 kg 5 gram bu şekilde yazıyor, normalde 1 ton 515 kilo 500 gram yazması gerekiyor.
Ayrıca A1 hücresine 0,300 yazdığımda 3 gram yazıyor, bu da 300 gram yazması gerekiyor.

A1 hücresinin bicimini Metin yaparak hücreye 1515,500 yazıp deneyin.