bos satırları comboboxta listelemesin

[mraltin]

comboboxta bos satırlarda listelendigi icin karışıklık çıkıyor vos satırları listelememek için bir kod var mi?
şimdiden tesekkurler

 

[Levent Menteşoğlu]

Comboxa veri aldığınız kodu yazarmısınız?

 

[mraltin]

kod ile yapmadim sn.leventm
ozelliklerdeki rowsource yazan yereATA!A2:A150 yazdim

 

[Levent Menteşoğlu]

Rowsource ile yapmak zor onun yerine additem ile verileri comboya aktarın. Aşağıdaki örneği kendinize uyarlayabilirsiniz. Aşağıdaki kod A sütunundaki verileri comboboxa alıyor.

[vb:1:47fe52ad33]Private Sub UserForm_Initialize()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 1) <> 0 Then
ComboBox1.AddItem Cells(a, 1).Value
End If
Next
End Sub
[/vb:1:47fe52ad33]

 

[mraltin]

Sn.leventm bu kodu userofrumn intlialize olayina yazdim su hatayi verdi.userform2.show.
ayrica benim userforumumda en az 6 adet combobox var bu kodu hepsinede yazabilirmiyim?

 

[Levent Menteşoğlu]

Comboboxın ismine bakın. Bundan dolayı hata verebilir. Bu kodu bütün combolar için yazabilirsiniz.