ListBox'a Gelen Veriler Hakkında

[ormann]

İyi günler;
Ekli dosyada ComboBoxlardan veri çağırdığım zaman ListBox'1 e geliyor.Fakat dosyadan çıkıp tekrar açtığım zaman ListBox1 içerisindeki kayıtlar ComboBox 'a girmeden gelmiyor.Benim yapmak istediğim dosyayı ilk açtığımda tüm kayıtların ListBox'1 de gözükmesi.Bunu nasıl yapabilirim yardımcı olur musunuz ?

http://dosya.co/g1wbtvfzvqd5/KADASTRO_TAKİP_PROGRAMI.xlsb.html

 

[turist]

Sayfa8(VERİ) sayfanızın sayfa kodu kısmına aşağıdaki kodu ekleyip deneyin.

Private Sub Worksheet_Activate()
Sayfa8.ListBox1.Clear
  Sayfa8.ListBox1.ColumnCount = 5
  Sayfa8.ListBox1.ColumnWidths = "50;230;70;70;60"
  Range("d3:d27").Value = ""
  For Each evn In Sayfa1.Range("E5:E" & Sayfa1.Range("a65536").End(3).Row)
   If evn.Text Like "*" Then
    Sayfa8.ListBox1.AddItem
    Sayfa8.ListBox1.List(ListBox1.ListCount - 1, 0) = evn
    Sayfa8.ListBox1.List(ListBox1.ListCount - 1, 1) = evn.Offset(0, 7)
    Sayfa8.ListBox1.List(ListBox1.ListCount - 1, 2) = evn.Offset(0, 14)
    Sayfa8.ListBox1.List(ListBox1.ListCount - 1, 3) = evn.Offset(0, 13)
    Sayfa8.ListBox1.List(ListBox1.ListCount - 1, 4) = evn.Offset(0, 11)
   TextBox1.Value = ListBox1.ListCount
   End If
  Next
End Sub

 

[ormann]

Olmadı yine listbox boş geliyor

 

[turist]

Dosyanızın Linki
İndirip inceleyiniz.

 

[ormann]

Sayın Turist dosyayı indiremedim.Başka link ekleyebilir misiniz?

 

[turist]

Dosyanızın Linki Tıklayın indirin.