ListBoxta Sutun Başlıkları Kayboluyor

[ZorBey_]

Merhaba
iyi Çalışmalar
Sayfa Seçiminden Sonra Sutun Başlıkları Normal Görünüyor
Aktif Sayfanın Sutun Başlıkları Geliyor
Fakat Süzme Yapıldığında Sutün Başlıkları Kayboluyor
Süzmeden Sonra Veya Başka Bir İşlemden Sonra
ListBox taki Sutun Başlıklarının Devamlı Kalması
İçin Yardımınızı Rica Ediyorum.

 

[Orion1]

sütun başlıkları sadece rowsource yöntemi ile alınan verilerde yapılır.
ben dosyanızı bu duruma göre kodları uyarladım.Dosyanız ektedir.

Private Sub TextBox25_Change() 'VERI ARAMA'
Dim sh As Worksheet, sat As Long, deg As String
Set sh = Sheets("süz")
ListBox1.RowSource = ""
TextBox29.Value = ""
TextBox30.Value = ""
TextBox31.Value = ""
sh.Range("A:O").ClearContents
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A1").AutoFilter
Range("A1").AutoFilter field:=4, Criteria1:=TextBox25.Text & "*"
Range("A1").CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
ListBox1.RowSource = "süz!A2:O" & sh.Cells(Rows.Count, "D").End(xlUp).Row
sat = sh.Cells(Rows.Count, "D").End(xlUp).Row
alinan_toplam = WorksheetFunction.Sum(sh.Range("M2:M" & sat))
odenen_toplam = WorksheetFunction.Sum(sh.Range("N2:N" & sat))
kalan_toplam = WorksheetFunction.Sum(sh.Range("M2:M" & sat))
TextBox29 = Format(alinan_toplam, "#,##0.00  TL") 'SÜZÜLEN FORMATI
TextBox30 = Format(odenen_toplam, "#,##0.00  TL") 'SÜZÜLEN FORMATI
TextBox31 = Format(kalan_toplam, "#,##0.00  TL") 'SÜZÜLEN FORMATI
End Sub

 

[ZorBey_]

Merhaba
Sayın
Orion1
Yardımınız İçin Çok Teşekkür
Ederim Sağolun
Sutun Başlıkları Süzme Yapıldığında Kaybolmuyor
İStediğim Gibi Olmuş
Allah Razı OLsun
İyi Çalışmar.

 

[Orion1]

Merhaba
Sayın
Orion1
Yardımınız İçin Çok Teşekkür
Ederim Sağolun
Sutun Başlıkları Süzme Yapıldığında Kaybolmuyor
İStediğim Gibi Olmuş
Allah Razı OLsun
İyi Çalışmar.

hesaplama özelliğini kapamışım.
Onu tekrar işleme açıtım.
ekli dosyayı öceki mesajımdan tekrar indiriniz.

 

[ZorBey_]

Merhaba
Sayın Orion1
İyi Çalışmalar
Yardımınız İçin Tekrar Teşekkür Ederim
Şöyle Bir uygulama Olabilirmi Acaba
ListBox Üzerine Gelen Sutun Başlıklarını
Değişik Dosyalarımda Şartlar Ne Olursa Olsun
Sutun Başlıklarını Getirebilmek İçin
Kalıp Bir Kod Olabilirmi Acaba
Yani Ben O Kodu Alıcam Dosyamdaki
Şu Kodlar Arasına Koyucam
Veya Kodlar İçinde Diğer Kodlarla
İlgisi Olmayan Bağımsız Bir Yere Koyucam
Her Uygulamada Sutun Başlıklarını Getirebilecek
Her Dosyada Çalışabilecek Bir Uygulama
Yapılabilirmi Acaba
Eğer Yapılabilirse O kodları Yazabilirseniz
Çok Makbule Geçecektir
Şimdiden Teşekkür Ederim
İyi Çalışmalar.

 

[Orion1]

Merhaba
Sayın Orion1
İyi Çalışmalar
Yardımınız İçin Tekrar Teşekkür Ederim
Şöyle Bir uygulama Olabilirmi Acaba
ListBox Üzerine Gelen Sutun Başlıklarını
Değişik Dosyalarımda Şartlar Ne Olursa Olsun
Sutun Başlıklarını Getirebilmek İçin
Kalıp Bir Kod Olabilirmi Acaba
Yani Ben O Kodu Alıcam Dosyamdaki
Şu Kodlar Arasına Koyucam
Veya Kodlar İçinde Diğer Kodlarla
İlgisi Olmayan Bağımsız Bir Yere Koyucam
Her Uygulamada Sutun Başlıklarını Getirebilecek
Her Dosyada Çalışabilecek Bir Uygulama
Yapılabilirmi Acaba
Eğer Yapılabilirse O kodları Yazabilirseniz
Çok Makbule Geçecektir
Şimdiden Teşekkür Ederim
İyi Çalışmalar.

zaten şu anda süzülen sayfanın sütun başlıklarını getiriyor program.