Değere göre sonuç belirleme

[noble34]

merhaba,
ürün maliyetlerini hesaplarken kargoyuda eklemek istiyorum ama birtürlü halledemedim.
Yapmaya çalıştığım;
A1 hücresinde ürünün ağırlığı var
B1 hücresinde ise ürünün o ağırlığa karşılık gelen anlaştığımız kargo fiyatı var.
Benim yapmaya çalıştığım örneğin ağırlığı 5 kg olan ürün için 5 yazdığımda bana B1 hücresinde 6,99 TL yi versin. Bunu formül olarak nasıl yapabilirim yardımcı olursanız sevinirim.

 

[Mahir64]

Merhaba,

1 Kilo veya 1 gram kargo bedeli ne kadar?

--

 

[noble34]

1 Kg - 5 K arası 6,99 tl

 

[Mahir64]

5 Kilodan sonrası yok ise,

=EĞER(VE(A1>0;A1<6);6,99)

--

 

[noble34]

teşekkür ederim ancak bu formülü yaptığımda YANLIŞ diye yazıyor ben 6,99 yazsın istiyorum.

 

[Mahir64]

A1 hücresine 1 ile 5 arasınra bir değer yazın.

=EĞER(VE(A1>0;A1<6);6,99;"")

--

 

[noble34]

şimdi oldu
peki formülün devamını nasıl kullanmakıyım yani 6 ile 10 kg arası, 10 kg ile 20 kg arası gibi

 

[Mahir64]

Siz tüm kriterleri yazın..

--

 

[noble34]

=EĞER(VE(A1>0;A1<6);6,99;""); formül böyle mi devam edecek peki?

 

[noble34]

=EĞER(VE(A1>0;A1<6);6,99;"");EĞER(VE(A1>6;A1<20);7,99;"")
böyle yazınca çalışmadı

 

[Mahir64]

=EĞER(VE(A1>0;A1<6);6,99;"");EĞER(VE(A1>6;A1<20);7 ,99;"")
Kırmızı alanı silin.

Siz tüm seçenekleri yazarsanız farklı çözümde üretilebilir.

--

 

[noble34]

malesef kırmızılarıda sildim ama olmadı

 

[Mahir64]

Defalarca yazdım, tüm kriterleri yazın farlı çözüm bulunabilir diye!

İyi çalışmalar.

--

 

[Turgay KARAŞAH]

=EĞER(VE(A1>0;A1<6);"6,99";EĞER(VE(A1>6;A1<20);"7,99"))

yazarmısınız lütfen.

 

[ZorBey_]

Merhaba iyi çalışmalar
Sayın noble34
Sayın Mahir ÇÜMEN'nin
Dediği gibi tüm kriterleri yazarsanız
daha kısa zamanda net bir yanıt
alırsınız neyse belki bu dosya
işinizi görür.
http://s3.dosya.tc/server18/UwP0zY/KgFiat_-01.rar.html

 

[bzace]

Hayırlı akşamlar,
Çalıştığınız sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Select Case Target
        Case Is < 0
            Range("B1").Value = "0'dan daha az KG olmaz !"
        Case Is <= 5
            Range("B1").Value = 6.99
        Case Is <= 10
            Range("B1").Value = 7
        Case Is <= 15
            Range("B1").Value = 7.99
        Case Is <= 20
            Range("B1").Value = 10
        Case Else
            Range("B1").Value = 11 ' tavan ağarlık 20 olduğundan dolayı diğer tüm ağırlıklara 11 yapacaktır.
        End Select
End Sub

bu mantık ile diğer kriterlerinizi girebilirsiniz
Not: Son iki mesaj görülmeden yazılmıştır.

 

[noble34]

@Mahir ÇÜMEN
@Turgay KARAŞAH
@ZorBey_
@bzace

Çok teşekkür ederim sorunum istediğim gibi çözüldü.