ComboBox3.AddItem

[ridvan2111]

Private Sub ComboBox3_DropButtonClick()
For i = 2 To Sheets("sipariş girişi").Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("sipariş girişi").Range("D3" & i), Sheets("sipariş girişi").Cells(i, 4)) = 1 Then
ComboBox3.AddItem Sheets("sipariş girişi").Cells(i, 4)
End If
Next i
End Sub

Merhaba

Yukarıdaki kod ile Combobox içine sutundaki verileri tek e indirerek alıyorum.
kodlar DropButtonClick olayına yazıldığından comboda her seçim yaptığımda combobox içine aynı verileri tekrar yüklüyor.

her DropButtonClick olayı gerçekleştiğinde önce combobox içeriğini temizleyip sonra yükleme yapsın. Bu konuda yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

İlk satır olarak combobox1.clear komutunu ekleyin.

 

[ridvan2111]

İlk satır olarak combobox1.clear komutunu ekleyin.

Levent bey denedim Bu şekilde combodan seçim yaptığımda yaptığım seçim comboda gözükmüyor. combo boş oluyor.

 

[Skorpiyon]

DropButtonClick olayı mecburi değil ise, kodlarınızı Userformunuzun Initialize olayına yazarak deneyiniz.

 

[ridvan2111]

DropButtonClick olayı mecburi değil ise, kodlarınızı Userformunuzun Initialize olayına yazarak deneyiniz.

Sayın skorpiyon.

bu kodlar initializede idi fakat çok sayıda combo olduğu için (yaklaşık 25 adet) userform açılışı çok uzun sürüyor bu kodları ihtiyaç olduğunda çalıştırmak amacıyla böyle bir yöntem denedim.

bu kodları bir buton altına yazdım yine 25 comboda yükleme uzun sürüyor.
sadece ihtiyaç durumunda bu kodları bireysel çalıştırmak daha hızlı oluyor.

DropButtonClick olayı şart değil ama chance, click, vs. olabilir ama nasıl?

veya combolar döngüye alınarak yapılabilirmi? yapılırsa hız daha verimli olurmu?

 

[Ömer]

Merhaba,

Yavaş gelmesindeki neden, benzersiz veri almada kullandığınız yöntemden dolayıdır.

Aşağıdaki gibi deneyip sonuçları gözlemleyiniz.

Private Sub UserForm_Initialize()
 
    Dim i As Long, a, deg
 
    With CreateObject("Scripting.Dictionary")
        For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
            deg = Cells(i, "B")
            If Not .exists(deg) Then .Add deg, Nothing
        Next i
    a = .keys
    End With
 
    With Me.ComboBox1
        .Clear
        .List = a
    End With
 
End Sub

.

 

[ridvan2111]

Merhaba,

Yavaş gelmesindeki neden, benzersiz veri almada kullandığınız yöntemden dolayıdır.

Aşağıdaki gibi deneyip sonuçları gözlemleyiniz.

Private Sub UserForm_Initialize()
 
    Dim i As Long, a, deg
 
    With CreateObject("Scripting.Dictionary")
        For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row
            deg = Cells(i, "B")
            If Not .exists(deg) Then .Add deg, Nothing
        Next i
    a = .keys
    End With
 
    With Me.ComboBox1
        .Clear
        .List = a
    End With
 
End Sub

.

Ömer bey Bu şekilde çok daha hızlı çalışıyor Teşekkürler.

Bu kodları aktif sayfa değilde "sipariş girişi" sayfasına sabitlememiz lazım.

 

[Ömer]

Ömer bey Bu şekilde çok daha hızlı çalışıyor Teşekkürler.

Bu kodları aktif sayfa değilde "sipariş girişi" sayfasına sabitlememiz lazım.

Bu şekilde deneyin.

Private Sub UserForm_Initialize()
 
    Dim i As Long, a, deg, Ss As Worksheet
    
    Set Ss = Sheets("sipariş girişi")
 
    With CreateObject("Scripting.Dictionary")
        For i = 4 To Ss.Cells(Rows.Count, "B").End(xlUp).Row
            deg = Ss.Cells(i, "B")
            If Not .exists(deg) Then .Add deg, Nothing
        Next i
    a = .keys
    End With
 
    With Me.ComboBox1
        .Clear
        .List = a
    End With
 
End Sub

.

 

[ridvan2111]

Sayın Ömer bey Çok teşekkür ederim