Listbox1.rowsource Sorunu

[hasaona]

Merhaba,


Excel yeni çalışma sayfası oluşturduğumda listbox veriler gelmiyor.Excel dosyasını kapatıp tekrar açınca listbox çalışır hale geliyor. Yardımlarınızı rica ederim.

 

[yanginci34]

dosyanızı gönderin bakalım

 

[hasaona]

Merhaba, örnek dosya ektedir.

 

[askm]

Listboxa veri gelmesi için sayfanızda veri yok ki. Örnek veriler olan bir dosya eklerseniz daha kolay çözüm bulursunuz.

 

[yanginci34]

veri sayfasınımı göstersin?

 

[hasaona]

problem orada. Yeni Sayfa açtığımda birden fazla veri yazıyorum listbox gözükmüyor. Excelli açıp kapattığım zaman yazdıgım yazılar gözüküyor. Aktif şekilde ilk yeni sayfamda yazılar gözükmüyor.

 

[hasaona]

Veri olarak birden fazla sayfa kullanıyorum. Tüm yeni sayfalarda aktif olsun

 

[yanginci34]

RowSource kodunu böyle değiştirip denermisiniz.

ListBox2.RowSource = ActiveSheet.Range("b" & Rows.Count).End(3).Row

 

[hasaona]

Hocam hata veriyor. "Run-time error'380' Could not set the Rowsource probety.Invalid property value."

 

[yanginci34]

Merhababöylemi istiyorsunuz
http://dosya.co/yazrywnqiqi7/listbox_aktiv_olanı_göster.xlsm.html

 

[halit3]

ListBox2.RowSource = "A2:aj30" & Cells(65536, 2).End(xlUp).Row

yukarıdaki bölümü aşağıdakilerden biri ile değiştir.

ListBox2.RowSource = Sheets(ActiveSheet.Name).Name & "!A2:aj" & Cells(65536, 2).End(xlUp).Row

ListBox2.RowSource = Sheets(ActiveSheet.Name).Name & "!A2:aj30"

 

[hasaona]

Merhaba,
Halit Bey paylaşmış oldugunuz kodların hepsi çalışmakta.Fakat benim şöyle bir problemim daha var. Her gün Örnek sheetin içinde "A1-AJ1" hücre arasını o güne ait sheet tarih vererek yeni sheet oluşturmaktayım.Buda benim listbox aktif olarak sayfayı indiksleyememekte

 

[halit3]

Ben farklı bir yaklaşım ile çözüm sunuyorum.

Userform1 e bir adet ComboBox5 nesnesi ekle

Private Sub UserForm_Initialize()

kadun içine ve kodların en altına aşağıdaki bölümü ekle

For i = 1 To ActiveWorkbook.Sheets.Count
ComboBox5.AddItem Sheets(i).Name
Next
ComboBox5.Text = ActiveSheet.Name

ComboBox5 nesnesinin kodu da aşağıdaki gibi olacak.

Private Sub ComboBox5_Click()

ListBox2.RowSource = ""
Set sh = Sheets(ComboBox5.Text)

If WorksheetFunction.CountA(sh.Cells) > 0 Then
sat5 = sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut5 = sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Else
Exit Sub
End If

ListBox2.RowSource = ComboBox5.Text & "!" & sh.Range(sh.Cells(2, "a"), sh.Cells(sat5, "a")).Address

ListBox2.Visible = False
ListBox2.Width = 942
ListBox2.Visible = True


End Sub

şimdi yapman gereken ComboBox5 nesnesinden sayfa seçmeniz yeterli olacaktır.