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

hüseyin551

Altın Üye
Katılım
4 Haziran 2017
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010 TR
Altın Üyelik Bitiş Tarihi
21-10-2024
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
 

Ekli dosyalar

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
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.
Kod:
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
248715
 

hüseyin551

Altın Üye
Katılım
4 Haziran 2017
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010 TR
Altın Üyelik Bitiş Tarihi
21-10-2024
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.
Kod:
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
Hocam size mahcup oluyorum.combobox2 de ismi tıkladığımda combobox1 e aktarabilir mi? işlem yapmak için
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Len(ComboBox2) > 3 satırından sonra
Kod:
ComboBox1.Value = ComboBox2
bu satırı ekleyin. Ancak üst mesajda belirttiğim şekilde combobox1 i de düzenlediyseniz çalışır.
 

Erkan Akayay

Altın Üye
Katılım
8 Aralık 2006
Mesajlar
405
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2028
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.
 
Son düzenleme:

hüseyin551

Altın Üye
Katılım
4 Haziran 2017
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010 TR
Altın Üyelik Bitiş Tarihi
21-10-2024
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

Altın Üye
Katılım
8 Aralık 2006
Mesajlar
405
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2028
İş yoğunluğu nedeniyle şu an bakamıyorum. Muhtemelen akşam size bir dosya hazırlarım.
 

Erkan Akayay

Altın Üye
Katılım
8 Aralık 2006
Mesajlar
405
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2028
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.
 

Ekli dosyalar

hüseyin551

Altın Üye
Katılım
4 Haziran 2017
Mesajlar
158
Excel Vers. ve Dili
Microsoft Excel 2010 TR
Altın Üyelik Bitiş Tarihi
21-10-2024
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

Altın Üye
Katılım
8 Aralık 2006
Mesajlar
405
Excel Vers. ve Dili
Ofis 365 TR 64 Bit
Altın Üyelik Bitiş Tarihi
21-11-2028
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.
 
Üst