combobox

Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
combobaxlarda boş satırları göstermemesi için ne yapmam gerekir
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,263
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,263
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,182
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 
Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,263
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
İlgili ComboBox nesnesinin özelliklerinde RowSource bölümünde bir ifade varsa silmelisiniz.
 
Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,263
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,263
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosya paylaşınız. Dosyanız üzerinden kontrol edelim.
 
Katılım
21 Ocak 2013
Mesajlar
422
Excel Vers. ve Dili
2010
Cbgeldiğikurum.Clear
tam bu kısımda hata veriyor evet sizde çok güzel çalışıyor.
 
Üst