comboboxta format sorunu

[MOONROSE]

merhaba,ekteki dosyada button1 e basınca gelen userformdaki combobox1 den kalite numarasını seçince model numarası geliyor.Bilgiler TMF LISTESI sheetinden alınıyor. Kalite numarası olarak ash-bsh ya da text ile başlayan numara seçildiğinde sorun yok ama sayı seçtiğimde (örnek dosyada:333) model numarasını getirmiyor. Bunun için ne yapmam lazım.yardımcı olursanız sevinirim.

 

[veyselemre]

If Worksheets("TMF LISTESI").Range("C" & A) = kalite.Text Then

şeklinde deneyin

 

[MOONROSE]

merhaba,dediğiniz değişikliği yaptığımda model numarasını gösterdi. aşağıdaki kodlar.

Private Sub kalite_Change()
model.Clear
For A = 5 To Worksheets("TMF LISTESI").Range("C65536").End(xlUp).Row
    If Worksheets("TMF LISTESI").Range("C" & A) = kalite.Text Then
        'sipariş no
        model.AddItem Worksheets("TMF LISTESI").Range("D" & A)
    End If
Next A
End Sub

fakat kalite numarasını gösteren combobox,aynı kalite numarası sayı olup 4 kere girildiyse listede 4 tane aynı numara görünüyor. ama kalite numarası text ise bu hatayı yapmıyor.1 kere gösteriyor.bunu nasıl önleyebilirim.yardımlarınız için teşekkürler

Private Sub UserForm_Activate()
kalite.Clear
For A = 5 To Worksheets("TMF LISTESI").Range("C65536").End(xlUp).Row
    For i = 1 To kalite.ListCount
        If Worksheets("TMF LISTESI").Range("C" & A) = kalite.List(i - 1) Then GoTo 10
    Next i
        kalite.AddItem Worksheets("TMF LISTESI").Range("C" & A)
10:
Next A
End Sub

dosya ektedir.kalite nosuna bakarsınız 2 adet 333 numarasını göreceksiniz.ama diğerleri 1 er adet.

 

[MOONROSE]

konu hakkında yardımcı olabilecek arkadaş var mı?

 

[MOONROSE]

:yardim: bu artık son umudum konu hakkında yardımcı olabilecek bir arkadaş varsa çoook sevinicem. :agla:

 

[algil]

istediğiniz bumu acaba

 

[MOONROSE]

çoook teşekkür ederim. İstediğim buydu,elleriniz dert görmeniz