Değer aralığının tamamını sütunda aratmak.

[Korhan Ayhan]

Selam arkadaşlar,

Textbox1 = 10 ve Textbox2 = 20 değer aralığını girdiğimde bu değer aralığında olan herhangi bir değer A sütununda varsa uyarı vermesini nasıl sağlayabilirim.

İyi çalışmalar dilerim. :hey:

 

[Korhan Ayhan]

Arkadaşlar bu konuda yardımlarınızı bekliyorum. :yardim: :yardim:

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:fcb44db91b]say1 = WorksheetFunction.CountIf(Columns(1), "<" & TextBox1.Value)
say2 = WorksheetFunction.CountIf(Columns(1), ">" & TextBox2.Value)
toplam = WorksheetFunction.CountA(Columns(1))
MsgBox "ÞARTLARA UYAN " & toplam - say1 - say2 & " ADET VERİ BULUNMUÞTUR"
[/vb:1:fcb44db91b]

 

[Korhan Ayhan]

Sn. leventm,

Verdiğiniz kodlar bir nebze olsun işimi gördü. Fakat örnek olarak gönderdiğim dosyayı inceleyip bu şekilde ayarlayabilirmiyiz.

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:11727a4a24]say1 = WorksheetFunction.Min([a1:a65536])
say2 = WorksheetFunction.Max([a1:a65536])
If say1 >= TextBox1.Value * 1 And say2 <= TextBox2.Value * 1 Then
MsgBox "YENİ GİRDİÐİNİZ DEÐER ARALIÐINDAN " & say1 & " İLE " & say2 & " ARALIÐI DAHA Ã?NCE KAYDEDİLMİÞ.GİRDİÐİNİZ DEÐERLERİ KONTROL EDİNİZ"
End If
[/vb:1:11727a4a24]

 

[Korhan Ayhan]

Yapmış olduğumuz çalışmamı en kısa sürede foruma ekleyeceğim. Forumdaki diğer arkadaşlara belki faydalı olabilir.

Desteğiniz için teşekkürler Sn. leventm :hey: