UserForm açıldığında ListBox boş görünsün

[noxious]

Ustalarımın ve Hocalarımın yardımları ile yaptığım çalışmanın bir kısmı ekte bulunmakta.
Ama bir sorunum var.
UserForm açıldığında ListBox1 içerisi doluyor. Bunun yerine form açıldığında ListBox1 boş olsa biz Tarihi işaretledikten sonra Tarih Butonuna basınca dolsa ve tekrar Takvim üzerinde yeni işaretleme yapınca ListBox1 içerisi temizlense ve Tarih Butonu tıklanınca yeni tarihe göre içerik dolsa

Bunu istememin sebebi
ListBox un ColumnHeads özelliğini True yaparak başlık kısmını görüntüledim ama her yenilemede başlık kayboluyor. Aşağıya doğru veri miktarı çok olduğundan başlığın sabit kalmasını sağlamaya çalışıyorum. Büyük ihtimal ListBox içeriği temiz olup tıklamayla dolarsa başlıkta görüntülenecek diye düşünüyorum.

Elimde süz ile yapılmış baz örnekler var ama ekteki örnek gibi hızlı işlem yapmıyor. Ekte sunulan 1 sn gibi işlemini bitirirken bende bulunan diğer kodlarla yaptığım ama iş gören süz kodları 15-20 sn işlemi bitiriyor.

 

[ECYavuz]

Private Sub UserForm_Activate()
ListBox1.RowSource = ""
Do
DoEvents
Label37 = Format(Time, "hh:mm:ss") 'Saat
Loop
End Sub

Şeklinde Listbox1 içeriği boş oluyor...

 

[Orion1]

Listbox'ta Row source yöntemi dışında kolon başlıkları gözükmüyor.
Boş bir sayfada süzerek rowsource yöntemi ile verileri listbox'a alabilirsiniz.Ama bu seferde Süzdeki önceki hıza erişemeyeceksiniz.

 

[noxious]

Sayın Orion2 Hocam dediğiniz gibi boş sayfayada süzüp aldığımızda işlem bayağı uzun sürüyor. Sayfa içerisinde veri miktarı azaldığında hızda sorun yok ama her gün yaklaşık 100-150 satır eklediğimizi düşündüğümüzde süz işleminin hızlı olması gereklilik arzettiğinden şu anki hali ile kullanmak daha mantıklı ancak tek sorunumuz başlık kısmını alamamak. İlk açıldığında geliyor ancak başka bir süz yaptığımızda başlık kayboluyor. verilerimiz UserForm a sığacak olsa sorun etmeyeceğiz ama Uzunluk bakımından UserFormun iki katına ulaştığından başlık gerekiyor. Listeyi Listwiev ile yaparak denediğimde değişik başlıklar ekleme imkanımız oldu ama oda şu anki kadar hızlı değil. Kaderimize küserek bu şekilde yolumuza devam edeceğiz anlaşılan

Ayrıca Sayın ECYavuz Rowsource ile ListBox boş evet ama liste başlığıda yok. Bizim sıkıntımız Liste başlığında