combobox.rowsource de Rage veya Cells kullanma?

[hsayar]

Public bu_wb As Workbook            'bu kitabın adı
Public Bu_st1 As Worksheet  
'================================
Sub DegiskenAl ()
Bu_Kit_Ad = ThisWorkbook.Name                       'Bu kitabın dizin ve dosya adını değişkkene alır
Set bu_wb = Workbooks(Bu_Kit_Ad)                    'bu kitap için prosodür kısaltma
Set Bu_st1 = bu_wb.Sheets("TANIMLAR")                  'günlük sayfasını kısa kullanma

Private Sub UserForm_Initialize()
Mdl_00_Acls.DegiskenAl
[color="red"]
'uf_isl.cb_hes.RowSource = "TANIMLAR!A2:E" & [TANIMLAR!A65536].End(3).Row
'uf_isl.cb_arc.RowSource = "TANIMLAR!B2:F" & [TANIMLAR!B65536].End(3).Row
'uf_isl.cb_sir.RowSource = "TANIMLAR!C2:E" & [TANIMLAR!C65536].End(3).Row
'uf_isl.cb_byi.RowSource = "TANIMLAR!D2:F" & [TANIMLAR!D65536].End(3).Row
'uf_isl.cb_stk.RowSource = "TANIMLAR!E2:E" & [TANIMLAR!e65536].End(3).Row
'uf_isl.cb_isl.RowSource = "TANIMLAR!F2:F" & [TANIMLAR!f65536].End(3).Row
[/color]
End Sub

kodlarında kırmızı satırlarda "tanımlar!" kullanmadan "bu_st1." olarak kullanmanın yolu nedir?

ben range veya cell ile deneim ama beceremedim, saygılarımla

Biliyorsunuz ki tanımlar sayfasının adını değiştirdiğimizde kodlar allak bullak olur ve hepsini değiştirmek gerekir yada ancak ilk sayfadan bu_st1 satırını değiştirmek daha kolaydır.

 

[Orion1]

Aşağıdaki kodu kendi çalışmanıza uyarlayınız.

Private Sub UserForm_Initialize()
s1 = "Sayfa1"
ListBox1.RowSource = s1 & "!A1:A50"

End Sub

 

[hsayar]

teşekkürler ilginç bir çözüm oldu benim için

 uf_isl.cb_hes.RowSource = Bu_st1.[color="red"]Name[/color] & "!A2:A" & Bu_st1.[A65536].End(3).Row