kriter girilerek tablodaki veri bilgisi almak

[thekalender]

merhaba,

ekteki tablo için yardımınızı rica ederim

 

[Murat OSMA]

Sorununuzu mesajınıza yazarsanız daha iyi olur.

Örnek verirken de, sayfada olan değerlerden verirseniz, çözüme daha kolay ulaşırsınız..
Meselâ; 15057 sayısını sayfada bulamadım... :dusun:

 

[Murat OSMA]

Afedersiniz sorunuzu yanlış anlamışım... :dusun:

 

[thekalender]

Merhaba Murat bey

ilginiz için teşekkür ederim
tabloda ilk 2 stundaki bilgiler posta kodlarını belirtmektedir.
Örneğin 15010'dan 15100'a kadar olan posta kodlarının masrafı aynı. ben 15057 yazdığımda maliyetin otomatik olarak çıkmasını istiyorum, fakat bununla ilgili bir formul bulamadım.

 

[lark]

Merhaba

Bir sütun ekleyerek çözüm buldum. Eki inceler misiniz.
Kolay gelsin.

 

[Murat OSMA]

Alternatif olarak, şu kodları sayfanın kod kısmına yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As Range
    For Each b In Range("b3:b100")
        If Target.Value >= b.Value And _
            Target.Value <= b.Offset(0, 1).Value Then
            Target.Offset(0, 1).Value = b.Offset(0, 2).Value
        End If
    Next b
    Set b = Nothing
End Sub

 

[thekalender]

Bir sütun ekleyerek çözüm buldum. Eki inceler misiniz.
Kolay gelsin.

yanıtınız için çok teşekkür ederim, aslında oldu gibi...
sadece 38. satırda bir hata oluşuyor =AND formulu hata veriyor. Gerçi ben hata bulamadım.

 

[lark]

O satırda başlangıç değeri bitiş değerinden büyük. Onu düzeltmek lazım.

 

[thekalender]

Alternatif olarak, şu kodları sayfanın kod kısmına yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim b As Range
    For Each b In Range("b3:b100")
        If Target.Value >= b.Value And _
            Target.Value <= b.Offset(0, 1).Value Then
            Target.Offset(0, 1).Value = b.Offset(0, 2).Value
        End If
    Next b
    Set b = Nothing
End Sub

Merhaba Murat Bey

2007 eng office kullanıyorum sheet'e sağ ile tıklayıp view code dedikten sonra vermiş olduğunuz kodu girdim, problem yalnızca 38. satırdaki bilgiyi dogru alamıyorum. diğer verileri doğru seçiyor. sanırım ilginç bir problem yaşıyorum

 

[lark]

Kodla da olsa aynı sebepten çalışmayacaktır.

 

[thekalender]

Kodla da olsa aynı sebepten çalışmayacaktır.

Haklısınız, orada bir hata yapmışım duzelttim ve kusursuz çalıştı
Size ve Murat bey'e çok teşekkür ederim

 

[Murat OSMA]

O satırda başlangıç değeri bitiş değerinden büyük. Onu düzeltmek lazım.

Sn. lark'ın dediği gibi...
Hücreleri yer değiştirdiğinizde sorun kalmayacaktır...

 

[Murat OSMA]

Rica ederiz, iyi akşamlar...

 

[Caddı]

Sorum olacak ama bır bılgım yok bu ıslemle alakalı yardım cı olurmusunuz soruyu sorsam?