ComboBoxa Satır Kaynağı atama

[vasifokur]

Örnek dosyada ComboBoxa (RowSource = Satır kaynağı) olarak E1:E50 hücrelerini gösterdim. Bu hücredeki eleman saysyı değişkenlik göstermektedir. Bazen azalacak , bazen çoğalacak. Comboboxu açınca E hücresinde sadece o anda dolu olan hücrelerin gösterilmesini istiyorum. Yardımcı olursanız sevinirim.İyi günler dileklerimle.

 

[Levent Menteşoğlu]

Comboboxın properties penceresindeki rowsource özelliğindeki aralığı silin ve aşağıdaki kodu userformun kod sayfasına kopyalayın.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "1!e1:e" & [1!e65536].End(3).Row
End Sub

 

[ozgretmen]

Geç kalmışım...

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "E1:E" & [E65536].End(3).Row
End Sub

 

[vasifokur]

Sn Levent Bey ve Sn ozoğretmenime bilgi paylaşımları için teşekkür ederim. Ekli sayfadaki hatanın kaynağı ne olabilir ? Nasıl düzeltebilirim ? Bu konuda da yardımlarınızı bekliyorum.

 

[vasifokur]

Dosyayı eklemdiğim için özür diliyorum.

 

[edward norton]

Merhaba,
End(3) deki 3 ün anlamı nedir?
Teşekkürler...

 

[Levent Menteşoğlu]

Sn Levent Bey ve Sn ozoğretmenime bilgi paylaşımları için teşekkür ederim. Ekli sayfadaki hatanın kaynağı ne olabilir ? Nasıl düzeltebilirim ? Bu konuda da yardımlarınızı bekliyorum.

A sütununda formülleriniz nedeniyle böyle bir sınuç alıyorsunuz. Bu durumda aşağıdaki kodu deneyebilirsiniz.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = [4!a:a].SpecialCells(xlCellTypeFormulas, 1).Address
End Sub

Merhaba,
End(3) deki 3 ün anlamı nedir?
Teşekkürler...

"End+üst ok" kısayolunun karşılığıdır.

 

[vasifokur]

Sn Levent Bey ; tam istediğim gibi olmuş. Ellerininize sağlık. Teşekkürler.

 

[edward norton]

Teşekkürler Sn. Menteşoğlu