Çözüldü Combobox hk.

[hüseyin551]

combobox1 ve combobox2 bir harf girildiğinde (büyük harf veya küçük harf) o harf ile başlayan firmaların listesini göstermesi
ilgileriniz için şimdiden teşekkür ederim.

 

[hüseyin551]

combobox1 ve combobox2 bir harf girildiğinde (büyük harf veya küçük harf) o harf ile başlayan firmaların listesini göstermesi
ilgileriniz için şimdiden teşekkür ederim.

. Bu bana göre zor çok araştırdım am netice yok. Yardım bekliyorum

 

[hüseyin551]

. Bu bana göre zor çok araştırdım am netice yok. Yardım bekliyorum

. Lütfen

 

[yanginci34]

Denermisiniz

 

[hüseyin551]

Denermisiniz

HOCAM
Combobox1 de aranan kriter bulunamadı diyor. Oradan yeni firma adları giriyorum (150 firma civarında girecegim)
Combobox1 veya 2 ye A harfi girdiğimde A harfi ile başlayan firmalar sıralansın.(büyük veya küçük harf aramasın)
ilginiz için teşekkürler.

 

[hüseyin551]

hocalarımdan yardımlarınızı bekliyorum

 

[hüseyin551]

hocalarımdan yardımlarınızı bekliyorum

Lütfen gecenin hayrı ve bereketi üzerinize olsun

 

[hüseyin551]

Denermisiniz

HOCAM
Combobox1 de aranan kriter bulunamadı diyor. Oradan yeni firma adları giriyorum (150 firma civarında girecegim)
Combobox1 veya 2 ye A harfi girdiğimde A harfi ile başlayan firmalar sıralansın.(büyük veya küçük harf aramasın)
ilginiz için teşekkürler. Kontrol edebilir misiniz?

 

[hüseyin551]

ustadlarım.

 

[AdemCan]

Merhaba, diğer dosyada sıralama için verdiğim yöntem dışında bir örnek paylaşayım.
Öncelikle Combobox1 ve combobox2 için resimdeki ayarı yapın.


Daha sonra aşağıdaki kodları userfoma ekleyin.
Büyük ya da küçük harf fark etmez.

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then
        firma = ComboBox1.List
        ComboBox1.Clear
        For i = 0 To UBound(firma)
            If firma(i, 0) Like UCase(Replace(ComboBox1.Value, "i", "İ")) & "*" Then
                ComboBox1.AddItem firma(i, 0)
            End If
        Next
    Else
        ComboBox1.Clear
        UserForm_Activate
    End If
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Then
        firma = ComboBox2.List
        ComboBox2.Clear
        For i = 0 To UBound(firma)
            If firma(i, 0) Like UCase(Replace(ComboBox2.Value, "i", "İ")) & "*" Then
                ComboBox2.AddItem firma(i, 0)
            End If
        Next
    Else
        ComboBox2.Clear
        UserForm_Activate
    End If
End Sub

 

[hüseyin551]

Merhaba, diğer dosyada sıralama için verdiğim yöntem dışında bir örnek paylaşayım.
Öncelikle Combobox1 ve combobox2 için resimdeki ayarı yapın.
Ekli dosyayı görüntüle 248567

Daha sonra aşağıdaki kodları userfoma ekleyin.
Büyük ya da küçük harf fark etmez.

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then
        firma = ComboBox1.List
        ComboBox1.Clear
        For i = 0 To UBound(firma)
            If firma(i, 0) Like UCase(Replace(ComboBox1.Value, "i", "İ")) & "*" Then
                ComboBox1.AddItem firma(i, 0)
            End If
        Next
    Else
        ComboBox1.Clear
        UserForm_Activate
    End If
End Sub

Private Sub ComboBox2_Change()
    If ComboBox2.Value <> "" Then
        firma = ComboBox2.List
        ComboBox2.Clear
        For i = 0 To UBound(firma)
            If firma(i, 0) Like UCase(Replace(ComboBox2.Value, "i", "İ")) & "*" Then
                ComboBox2.AddItem firma(i, 0)
            End If
        Next
    Else
        ComboBox2.Clear
        UserForm_Activate
    End If
End Sub

hocam size mahcup oldum.hakkınızı helal edin. combobox1 ve 2 ye harf girdiğimde çubuk aşagiya doğru acılmıyor işarete bastığımda gösteriyor.kutucukta çıkan ismi tıkladığımda comboboxlara almıyor. ş harfini deneyebilir misin dosyada

 

[AdemCan]

Combobox listeleme ile açılır ancak kapatmak için tıklamanız gerekecek ya da Setfocus ile başka bir nesneye geçiş yaparsanız kapanır.

Dosya ve ekran görüntüsü ekte.

Spoyler: İşlem Ekran Görüntüsü

 

[hüseyin551]

Combobox listeleme ile açılır ancak kapatmak için tıklamanız gerekecek ya da Setfocus ile başka bir nesneye geçiş yaparsanız kapanır.

Dosya ve ekran görüntüsü ekte.

Spoyler: İşlem Ekran Görüntüsü

Ekli dosyayı görüntüle 248576

emeğinize sağlık,yine beni mahcup ettiniz. sağolun varolun.

 

[AdemCan]

Rica ederim, iyi çalışmalar.

 

[hüseyin551]

Rica ederim, iyi çalışmalar.

hocam combobox1 e ş girdiğimde ş harfi ile başlayanlar çıkıyor ama tıkladığımda combobox1 e göndermiyor.
combobox2 de ş harfine bastığımda ş ile başlayan kelimeler çıkıyor ama tıkladığımda combobox1 e aktarması
teşekkürler