combobox

[sinemomec]

combobaxlarda boş satırları göstermemesi için ne yapmam gerekir

 

[Korhan Ayhan]

Merhaba,

Veri kaynağınızda boş satırlar mı var?

 

[sinemomec]

aynen

 

[Korhan Ayhan]

Veri kaynağınızı sıralarsanız boş satırlardan kurtulabilirsiniz.

Eğer sıralama imkanınız yoksa döngü ile verileri dolu olma koşuluna göre Combobox nesnesine yükleyebilirsiniz.

 

[muygun]

Merhaba;
Korhan Bey'in önerisinin kod versiyonu;
Userformun kod kısmına;

Private Sub UserForm_Activate()
Dim sat, s As Integer
ComboBox1.Clear
For sat = 2 To Range("A65536").End(xlUp).Row
If Cells(sat, "a") <> "" Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Cells(sat, "a")
s = s + 1
End If: Next
End Sub

Şeklinde uygulayarak deneyin.
İyi çalışmalar.

 

[sinemomec]

Private Sub UserForm_Activate()
Dim sat, s As Integer
Cbgeldiğikurum.Clear
For sat = 2 To Range("B65536").End(xlUp).Row
If Cells(sat, "b") <> "" Then
Cbgeldiğikurum.AddItem
Cbgeldiğikurum.List(s, 0) = Cells(sat, "b")
s = s + 1
End If: Next
End Sub

Cbgeldiğikurum.Clear hata veriyor

 

[Korhan Ayhan]

İlgili ComboBox nesnesinin özelliklerinde RowSource bölümünde bir ifade varsa silmelisiniz.

 

[sinemomec]

rowsource temziedim ufak bir hatam var ama bulamadım

Private Sub UserForm_Activate()
Dim sat, s As Integer
Cbgeldiğikurum.Clear
For sat = 2 To Sheets("GELENKURUM").Range("C65536").End(xlUp).Row
If Cells(sat, "c") <> "" Then
Cbgeldiğikurum.AddItem
Cbgeldiğikurum.List(s, 0) = Cells(sat, "c")
s = s + 1
End If: Next
End Sub

 

[Korhan Ayhan]

Böyle deneyiniz.

Private Sub UserForm_Activate()
   Dim sat As Long
  
   Cbgeldiğikurum.Clear
  
   For sat = 2 To Sheets("GELENKURUM").Range("C65536").End(xlUp).Row
      If Cells(sat, "c") <> "" Then Cbgeldiğikurum.AddItem Cells(sat, "c")
   Next
End Sub

 

[sinemomec]

bomboş gösteriyor

 

[Korhan Ayhan]

Örnek dosya paylaşınız. Dosyanız üzerinden kontrol edelim.

 

[muygun]

Merhaba;
Sadece verdiğiniz bilgilerle oluşturulan örnekte bir sorun çıkmıyor.

Link:
https://s6.dosya.tc/server8/49926t/sinemomec-bosluksuz_combobox_doldurma.zip.html

 

[sinemomec]

Cbgeldiğikurum.Clear
tam bu kısımda hata veriyor evet sizde çok güzel çalışıyor.