- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
Kod:
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.