Çözüldü combobox veri aktarımı

[hüseyin551]

combobox1 de bir harf girdiğimde o harfle ilgili isimler çıkıyor (tam da çalışmıyor ama ) o isimlerden birini tıkladığımda combobox1 atmıyor.
ilgilerinizi bekliyorum teşekkür ederim

 

[AdemCan]

Merhaba, paylaştığım kodlarda küçük bir değişiklik yaptım.
Örnek olarak ComboBox2 yi paylaşıyorum, siz ComboBox1 için düzenleme yaparsınız.
Len(ComboBox2) > 3 bu satır Combobox içerisine yazılan verinin uzunluğunu kontrol ediyor.
3 den büyük olursa filtre işlemi sonlanıyor.
Firma isimlerini düzenleyip buradaki 3 değerini istediğiniz şekilde değiştirebilirsiniz.

Private Sub ComboBox2_Change()
    If kontrol = 1 Then
        GoTo son
    ElseIf Len(ComboBox2) > 3 Then
        GoTo son
    Else
        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
            ComboBox2.DropDown
        Else
            ComboBox2.Clear
            UserForm_Activate
            kontrol = 0
        End If
son:
    kontrol = 0
    End If
End Sub

Spoyler: Ekran Görüntüsü

 

[hüseyin551]

Merhaba, paylaştığım kodlarda küçük bir değişiklik yaptım.
Örnek olarak ComboBox2 yi paylaşıyorum, siz ComboBox1 için düzenleme yaparsınız.
Len(ComboBox2) > 3 bu satır Combobox içerisine yazılan verinin uzunluğunu kontrol ediyor.
3 den büyük olursa filtre işlemi sonlanıyor.
Firma isimlerini düzenleyip buradaki 3 değerini istediğiniz şekilde değiştirebilirsiniz.

Private Sub ComboBox2_Change()
    If kontrol = 1 Then
        GoTo son
    ElseIf Len(ComboBox2) > 3 Then
        GoTo son
    Else
        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
            ComboBox2.DropDown
        Else
            ComboBox2.Clear
            UserForm_Activate
            kontrol = 0
        End If
son:
    kontrol = 0
    End If
End Sub

Spoyler: Ekran Görüntüsü

Ekli dosyayı görüntüle 248715

Hocam size mahcup oluyorum.combobox2 de ismi tıkladığımda combobox1 e aktarabilir mi? işlem yapmak için

 

[AdemCan]

Len(ComboBox2) > 3 satırından sonra

ComboBox1.Value = ComboBox2

bu satırı ekleyin. Ancak üst mesajda belirttiğim şekilde combobox1 i de düzenlediyseniz çalışır.

 

[Erkan Akayay]

Hüseyin Bey neden 2 combobox, neden 2 Listbox kullanıp kendinizi boş yere yoruyorsunuz?
Benzersiz isimleri Combobox1'e getirip orada istediğiniz aramayı yaptırıp, Listbox'a filtrelenmiş veriyi getirirsiniz.
Siz işi uzatıyor ve kod kalabalığında boğuluyorsunuz.
Size yardımcı olmanın en iyi yolu doğru yöntemi göstermek diye düşünüyorum.
Söylediklerime hak veriyorsanız buna göre yardımcı olalım.
Aksi takdirde bu kadar dağınık bir yapıyla bir süre sonra tıkanacaksınız ve emeğiniz boşa gidecek.

 

[hüseyin551]

Hüseyin Bey neden 2 combobox, neden 2 Listbox kullanıp kendinizi boş yere yoruyorsunuz?
Benzersiz isimleri Combobox1'e getirip orada istediğiniz aramayı yaptırıp, Listbox'a filtrelenmiş veriyi getirirsiniz.
Siz işi uzatıyor ve kod kalabalığında boğuluyorsunuz.
Size yardımcı olmanın en iyi yolu doğru yöntemi göstermek diye düşünüyorum.
Söylediklerime hak veriyorsanız buna göre yardımcı olalım.
Aksi takdirde bu kadar dağınık bir yapıyla bir süre sonra tıkanacaksınız ve emeğiniz boşa gidecek.

Haklısınız ama ben hiçbirşey bilmeden yapıyorum.ustadların yardımı ile .neyi nerede kullanacağımı neyi nasıl arayacağımı bile bilmiyorum.
yardım ederseniz örneklendirirseniz memnun olurum.
ilginiz için teşekkür ederim

 

[Erkan Akayay]

İş yoğunluğu nedeniyle şu an bakamıyorum. Muhtemelen akşam size bir dosya hazırlarım.

 

[hüseyin551]

İş yoğunluğu nedeniyle şu an bakamıyorum. Muhtemelen akşam size bir dosya hazırlarım.

ilginiz için teşekkür ederim

 

[Erkan Akayay]

Ben dün akşam sizin dosyanıza bakacaktım. Unutmuşum. Yoğunluğum arasında bir dosya hazırladım
Listboxa veri alma, comboboxtan filtreleme, listboxtan texyboxlara veri gönderme gibi işlemler var.

 

[hüseyin551]

Ben dün akşam sizin dosyanıza bakacaktım. Unutmuşum. Yoğunluğum arasında bir dosya hazırladım
Listboxa veri alma, comboboxtan filtreleme, listboxtan texyboxlara veri gönderme gibi işlemler var.

emeğiniz için teşekkür ederim.inceleyeceğim.sagolun

 

[Erkan Akayay]

Sizin dosyanız üzerinden işlemler yapıldı. Bu kodlara odaklanın diye diğer her şeyi kaldırdım.
Tek combobox ve tek listbox var.