combobox

Merhaba,

Veri kaynağınızda boş satırlar mı var?
 
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.
 
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.
 
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
 
İlgili ComboBox nesnesinin özelliklerinde RowSource bölümünde bir ifade varsa silmelisiniz.
 
rowsource temziedim ufak bir hatam var ama bulamadım
Kod: 
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
 
Böyle deneyiniz.

C++: 
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
 
Örnek dosya paylaşınız. Dosyanız üzerinden kontrol edelim.
 
Cbgeldiğikurum.Clear
tam bu kısımda hata veriyor evet sizde çok güzel çalışıyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst