Listbox Gizlenmiş Dosyadan Veri Çekme

[0uranus0]

merhaba Arkadaşlar aşağıdaki kodu gizli sayfadan aldırdatacak şekilde ayarlayabilirmiyiz.

son = Range("a" & Rows.count).End(3).Row
ListBox1.RowSource = ("kod!a1:c") & son

Gizli excel kitabından ListBox1.RowSource ile veri çekmek istiyorum bir türlü yapamadım.

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz.

ListBox1.ColumnCount = 3
son = Sheets("kod").Range("a" & Rows.Count).End(3).Row
ListBox1.RowSource = ("kod!a1:c") & son

 

[0uranus0]

 Windows("Şablon.xlsm").Visible = False

ile sayfayı gizlemiştim sayfa aktif olmayınca çalışmıyor

ListBox1.RowSource = Workbooks("Şablon.xlsm").Sheets("kod!a1:c") & son

yaptım onu da kabul etmedi.
ListBox1.RowSource'ye adres vererekte olmadı.

 

[PLİNT]

ListBox1.RowSource = [COLOR="Red"]Workbooks("Şablon.xlsm").Sheets("kod!a1:c") [/COLOR]& son

.

Gizli sayfa ifadenizi yanlış anlamışım
Açık dosya bir tane ise mavi bölüme gerek yok
Kitap ve sayfa adresini aşağıdaki gibi ekleyin.

[SIZE="2"]On Error GoTo 10:
Windows("Şablon.xlsm").Visible = False
Workbooks("Şablon.xlsm").Activate
son = Workbooks("Şablon.xlsm").Sheets("kod").Range("a" & Rows.Count).End(3).Row
ListBox1.ColumnCount = 3
[COLOR="red"]ListBox1.RowSource = "[Şablon.xlsm]kod!a1:c" & son[/COLOR]
MsgBox "veriler alındı"
10:
Windows("Şablon.xlsm").Visible = True
[COLOR="Blue"]ThisWorkbook.Activate[/SIZE] [/COLOR]

 

[0uranus0]

Öncelikle cevaplarınız için teşekkür ederim.
Kodu denedim listboxta veriler gözükmüyor
ve gizlemiş olduğum sayfayı bir başka excel dosyası varken açıyor. Ben çalışma kitabının hep kapalı gizli kalmasını istiyorum diğer exceller açıkken userform üzerinde çalışacağım için. kod bölümünün excelde açık olmasını istemiyorum. Çalışma kitabı kapalı iken listboxa veri çekmek istiyorum.