combobox sütundan verileri alırken boşlukları yoksaysın.

[olymposss]

arkadaşlar iyi günler
aşağıdaki kodu combobox1 e veri almak için kullanıyorum. ancak benim verilerim arasında boşluklar da var. istediğim b2:b65536 satırlarındaki verileri boşlukları yoksayarak sıralaması. yani ne kadar boşluk olursa olsun sadece dolu hücreleri sıralasın.
ComboBox1.RowSource = "hammadde!b2:b" & [hammadde!b65536].End(3).Row

teşekkürler. şimididen elinize sağlık.:yardim:

-------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[alpi]

istediğiniz şeyi RowSource ile halledemezsiniz. RowSource bir nesne tanımlamasıdır belirtilen aralık ComboBox'un içeriğini temsileder.

Çözüm: Döngü kullanmak

döngü içerisinde Eğer ile boş hücrelerden veri almaya engel olmak

Private Sub KomboyaVeriAl()
Dim Bak As Integer
For Bak = 1 To 65500
If not Cells(Bak, 2) = "" Then
ComboBox1.AddItem Cells(Bak, 2)
End If
Next
End Sub

 

[olymposss]

Saygilar

yalnız bu döngü için verileri hangi sayfadan ve hangi hücre dizisinden alacağını nasıl yazacağız. komboyaverial dediğiniz private sub userform mu yoksa combobox un kendisimi anlayamadım.:yardim:

 

[alpi]

userform un initialize olayına eklenebilir.

Private Sub UserForm_Initialize()
Dim Bak As Integer
For Bak = 1 To 65500
If not thisworkbook.sheets("Sayfa1").Cells(Bak, 2) = "" Then
ComboBox1.AddItem thisworkbook.sheets("Sayfa1").Cells(Bak, 2)
End If
Next
End Sub

 

[olymposss]

başka yolu var mı?

maalesef "overflow" hatası veriyor. bendeki library mi eksik bilmiyorum.
acaba başka yolla yapılması mümkünmü?
yardımlarınız için teşekkür ederim.

saygılar:yardim:

 

[Levent Menteşoğlu]

Aynı anda hem rowsource hemde additem yöntemleri ile yükleme yapıyor olabilirsiniz, rowsource olan satırları silin.

 

[olymposss]

saygılar

userform üzerinde 2 tane combobox var. listelemeye çalıştığım combobox1. ondaki rowsourch kısmı boş. ancak combobox2 de dolu. combobox2 etkileyebilirmi? etkilemezse combobox1 e nasıl veri listeleyebilirim.:yardim:

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[olymposss]

sayın leventm ilginize teşekkürler

ekteki dosyada yapmaya çalıştığım hammadde sayfasındaki b2:b65535 arasındaki verileri boşluksuz art arda userform1 deki combobox1 de listelemek.

teşekkürler:yardim:

 

[alpi]

Hata benden kaynaklanıyor

Üstte verdiğim kodlar doğrudur ancak değiştirmeniz gereken bir şey var
Dim Bak As Integer satırı
Dim Bak As Long olacak

 

[olymposss]

işte şimdi oldu

çok teşekkürler. elinize sağlık.
şimdi mükemmel oldu.
:hey: