combobox'a değer atama...

[aliakgul]

Herkese iyi geceler,
Formdaki combobox'a değer olarak D: D aralığını atadım.Ancak:
Aralıkta ne kadar değer varsa combobox o kadar açılsın istiyorum.(Çünkü değer sayısı sabit değil)
Sütun başlığı olan "ADI SOYADI" değeri comboboxda görüntülenmesin.
Teşekkür ederim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa1!D2:D" & [Sayfa1!D65536].End(3).Row
End Sub

 

[Orion1]

Gerçi sayın COST_CONTROL hocam cevabı vermiş ama alternatif olarak bende aşağıdaki kodu yazdım.

ComboBox1.List = Sheets("Sayfa1").Range("D2:D" & [Sayfa1!D65536].End(3).Row
).Value

 

[hsayar]

'uf_isl.cb_stk.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).Row

satırını daha evvel

Set Bu_st1 = bu_wb.Sheets("TANIMLAR")

set etmiş olduğum bu_St1 ile nasıl değiştiririm
saygılarımnal

 

[Orion1]

Aşağıdaki gibi deneyiniz.

Set Bu_st1 = bu_wb.Sheets("TANIMLAR")
Bu_st1 .RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).row

 

[hsayar]

hocam zaten daha evvel tanımlar diye sayfayı tanıttım
combobox ta işlemler user formunda cb_stok adını taşıyor
ben

'uf_isl.cb_stk.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!E65536].End(3).Row

satırına tanımlar sayfasını belirtmek istemiyorum bu_st1.Range(xxxx) ve ya bu_st1.Cells(xxxx) olarak tanımlamak istiyorum
o nasıl olmalı ?

 

[Orion1]

Maalesef bir şey anlamadım.

 

[hsayar]

hocam kodlara TANIMLAR! yazmadan bu işi nasıl hlledeirz onu zaten daha evvel bu_st1 olarak tanttık.