Listbox aktif olan sayfayı gösteriyor istediğim sayfayı görüntülemiyor

[udentr2002]

Merhaba arkadaşlar. Biliyorum çok basit ama bir çok yere baktım kendiminde bildiği bir şey ama yanblış biliyorum sanırım.
Aşağıdaki kodlarımda form üzerinde ki listboxun istediğim sayfayı listelemesini istiyorum. Ancak aktif olan sayfayı açık olan sayfayı gösteriyor.
Nerde yanlış yapıyorum?

ListBox2.ColumnHeads = True
ListBox2.ColumnCount = 14
ListBox2.RowSource = Sheets("PV").Range("a3:x" & Range("A65536").End(3).Row).Address
ListBox2.ColumnWidths = "200;60;60;60;60;60;60;60;60;60;60;60;60;80"

ListBox3.ColumnHeads = True
ListBox3.ColumnCount = 2
ListBox3.RowSource = Sheets("Urunler").Range("a2:b" & Range("A65536").End(3).Row).Address
ListBox3.ColumnWidths = "200;60"
[code]

 

[Muzaffer Ali]

Merhaba

ListBox2.RowSource = Sheets("PV").Range("a3:x" & Range("A65536").End(3).Row).Address

Yerine aşağıdaki satırı ekleyin.

ListBox2.RowSource = "PV!" & Range("a3:x" & Sheets("PV").Cells(Rows.Count, "A").End(xlup).Row).Address

Diğerini de buna bakarak siz yaparsınız.

 

[udentr2002]

Merhaba

ListBox2.RowSource = Sheets("PV").Range("a3:x" & Range("A65536").End(3).Row).Address

Yerine aşağıdaki satırı ekleyin.

ListBox2.RowSource = "PV!" & Range("a3:x" & Sheets("PV").Cells(Rows.Count, "A").End(xlup).Row).Address

Diğerini de buna bakarak siz yaparsınız.

Teşekkürler hocam elinize sağlık.
Listbox2 için gönderdiğiniz kodu düzelttiğimde çalışıyor. Ancak aynı şekilde listbox3 içinde aşağıdaki gibi düzelttiğimde

ListBox3.ColumnHeads = True
ListBox3.ColumnCount = 2
ListBox3.RowSource = "Urunler!" & Range("a2:b" & Sheets("Urunler").Cells(Rows.Count, "A").End(xlUp).Row).adress
ListBox3.ColumnWidths = "200;60"
[end code]

Aşağıdaki hatayı veriyor formu açmıyor
Run time error : "438"
object doesnt support this property or method

Saygı ve sevgilerimle

 

[Muzaffer Ali]

adress > address olmalı

 

[udentr2002]

adress > address olmalı

Hocam o kadarda incelemiştim aslında kusura bakmayın.
tekrar elinize sağlık