Soru RowSource Sayfa Adı Sorunu

[cicosz]

Merhaba,

"1706 Tarihli Liste" adlı sayfa 6. sayfam yani Sayfa6 ve adı değişken bir sayfa.
Aşağıdaki kodu Sayfa6'ya göre revize etmeye çalıştım ama çalıştıramadım.
Yardımcı olur musunuz?

Teşekkürler.

Private Sub cmd_yukari_Click()

If ListBox1.ListIndex = 0 Then Exit Sub
Rows(ListBox1.ListIndex + 4).Cut
Rows(ListBox1.ListIndex + 3).Insert Shift:=xlUp
ListBox1.RowSource = "'1706 Tarihli Liste'!B4:L" & [B17].End(xlUp).Row
ListBox1.ListIndex = ListBox1.ListIndex - 1
UserForm_Initialize

End Sub

 

[YUSUF44]

ListBox1.RowSource = sheets(6).range("B4:L" & sheets(6).[B17].End(xlUp).Row)

ya da

ListBox1.RowSource = "'" & sheets(6).name & "'!B4:L" & [B17].End(xlUp).Row

Şeklinde olur sanıyorum.

 

[cicosz]

ListBox1.RowSource = "'" & sheets(6).name & "'!B4:L" & [B17].End(xlUp).Row

Şeklinde olur sanıyorum.

Bunu kullandım, teşekkürler.
Peki sheets(6).name ve sayfa6.name kullanımının farkı sheets'in farklı dillerdeki Excel sürümlerinde de çalışabiliyor olması mıdır? Yoğun bir vba projesinde hız açısından fark yaratır mı?

 

[YUSUF44]

Sheets(6) bildiğim kadarıyla evrenseldir, her dilde 6. sayfayı işaret eder. Sayfa6 Türkçe'ye özgü olabilir, evrensel olanı kullanmanızı tavsiye ederim. Hız açısından fark olacağını sanmıyorum, uyumluluk sorunu olabilir.

 

[cicosz]

Tekrardan teşekkürler.