Combobox Numara engelleme

[bulentkars]

Arkadaşlar Merhaba

Ekteki tabloda 1 adet userform 1 adet commanbutton ve 1 adet combobox var comboxtaki liste data sayfasından sıra numaralarını okuyor.listedeki son numaradan büyük rakam girilidiğinde uyarı vermesini istiyorum bu konuda yardımcı olursanız sevinirim.Şimdiden Teşekkürler.

 

[Orion1]

Şimid deneyin bakalım listelenin dışında bir şey girbilecekmiisniz comboboxa .

ComboBox1.Style = fmStyleDropDownList

 

[bulentkars]

Evren Bey İlginiz için çok teşekkür ederim.Fakat Listede 200-300 numara olabiliyor seçmek zor olacak yazabilme imkanı olmazmı hep seçip hem yazabilelim

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Private Sub ComboBox1_Change()
Dim fiş As Range
kontrol
For Each fiş In Sheets("data").Range("a3:a" & Sheets("data").Range("a65536").End(3).Row)
If CStr(ComboBox1.Value) = CStr(fiş.Offset(0, 0).Value) Then

Set hedef = fiş
Exit For
End If
Next fiş
Set fiş = Nothing
End Sub

Sub kontrol()
    For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.Text <> "" Then
            If ComboBox1.List(i) <> ComboBox1.Text Then k = k + 1
        End If
    Next
        If ComboBox1.ListCount = k Then
            MsgBox "bu sayı listede yok"
            ComboBox1 = ""
        End If
End Sub

 

[Orion1]

Evren Bey İlginiz için çok teşekkür ederim.Fakat Listede 200-300 numara olabiliyor seçmek zor olacak yazabilme imkanı olmazmı hep seçip hem yazabilelim

Seçmeyin mademki sizde .Comboboxa direk yazın verinizi.
Combobox sadece comboboxta olmayan verilerin yazılmasına müsaade etmez.Bu şwekli ile.Bu özelliği ile.Ama comboboxın içinde bulunan herhangi bir değeri yazabilirsiniz.Size verilen bir şeyi lütfen biraz incelerseniz daha iyi netice alabilirsiniz.cool:

 

[bulentkars]

Evren Bey Merhaba

Combobox un içine yazmasada olur.Burada istediğim data sayafsında ki son numara kaç son numaradan büyük numara yazılamassın.Bu ara hamit beyin kodu da çalışmıyor.

 

[Orion1]

Evren Bey Merhaba

Combobox un içine yazmasada olur.Burada istediğim data sayafsında ki son numara kaç son numaradan büyük numara yazılamassın.Bu ara hamit beyin kodu da çalışmıyor.

Tamam işte yazın bakalım yazabilecekmisiniz.Büyük numarayı.Yazamıyorsunuz.Siz ne istiyortsunuz,anlayamadım.Siz sadece son numarayımı istiyorsunuz.İçindeki numaralar önemli değilmi?yani içinde değişik yerklerde 25 varsa son numara 15 ise 25 yazılamasınmı istiyorsunuz.Ama o zaman yapılsa bie seçilmesini nasıl engel olucan.Eğer öyleyse comboboxa verileri alırken sorgula son verideki değerden dağa büyükdeğerleri comboboxa alma.Buda yapılabilir.

 

[bulentkars]

Evren Bey

Data sayasında A sutununda en alltaki sayı diğelimki 189 combobox a 1-189 arası numara girilebilsin.190 > yazıldığında uyarı versin istiyorum.

 

[hamitcan]

Eki inceleyin.

 

[bulentkars]

Hamit Bey ilginiz için çok çok teşekkür ederim.Emeğinize sağlık.Tam istediğim gibi oldu.