- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba forumda sizlerin destekleriyle oluşturduğum dosyada şöyle bir güncelleme yapmaya çalıştım ama takıldım. Userformdaki listele düğmesi ile açılan userformda kayıt türüne göre ve tercih türüne göre listeleme yapıyorum sorun yok.
Kayıt türüne göre listeleme yaptıktan sonra şube listelemesi yapacağım Yeni eklediğim şubem ismindeki listelemeyi yapınca listbox ta önce sütun başlıkları ve alt satırda şube sayfasındaki başlıklar çıkıyor. Sütun başlıkları görünmesini engelleyemedim bir türlü ama şube sayfasında normal listeliyor.
Yapmak istediğim ise Sayfa1 deki şablona göre alfabetik sıralamayı ayarlamama yardımcı olursanız sevinirim
Ve sayfa1 deki şu bölümü de yazdırabilir miyiz.
Sizlerin kodlarınız üzerinde değişiklikler yapabiliyorum ancak
Private Sub CommandButton15_Click()
Set d = ThisWorkbook.Sheets("DATA"): Set l = ThisWorkbook.Sheets("ŞUBE")
Me.ListBox2.RowSource = "": l.Cells.Clear
If d.AutoFilterMode Then d.AutoFilterMode = False
'If TextBox26 <> "" Then Sheets("DATA").Range("A1").AutoFilter Field:=2, Criteria1:="*" & TextBox26 & "*"
If ComboBox7 <> "" Then Sheets("DATA").Range("A1").AutoFilter Field:=14, Criteria1:=ComboBox7
d.Range("A1:E" & d.Cells(Rows.Count, 2).End(3).Row).Copy l.[A1]
If l.Cells(Rows.Count, 2).End(3).Row = 1 Then l.[B2] = "KAYIT YOK"
Me.ListBox2.RowSource = "ŞUBE!A1:E" & l.Cells(Rows.Count, 2).End(3).Row
l.Columns("A:E").AutoFit
If d.AutoFilterMode Then d.AutoFilterMode = False
End Sub
Kayıt türüne göre listeleme yaptıktan sonra şube listelemesi yapacağım Yeni eklediğim şubem ismindeki listelemeyi yapınca listbox ta önce sütun başlıkları ve alt satırda şube sayfasındaki başlıklar çıkıyor. Sütun başlıkları görünmesini engelleyemedim bir türlü ama şube sayfasında normal listeliyor.
Yapmak istediğim ise Sayfa1 deki şablona göre alfabetik sıralamayı ayarlamama yardımcı olursanız sevinirim
Ve sayfa1 deki şu bölümü de yazdırabilir miyiz.
| Toplam Öğrenci : 41 Kız Sayısı : 18 Erkek Sayısı : 23 |
Private Sub CommandButton15_Click()
Set d = ThisWorkbook.Sheets("DATA"): Set l = ThisWorkbook.Sheets("ŞUBE")
Me.ListBox2.RowSource = "": l.Cells.Clear
If d.AutoFilterMode Then d.AutoFilterMode = False
'If TextBox26 <> "" Then Sheets("DATA").Range("A1").AutoFilter Field:=2, Criteria1:="*" & TextBox26 & "*"
If ComboBox7 <> "" Then Sheets("DATA").Range("A1").AutoFilter Field:=14, Criteria1:=ComboBox7
d.Range("A1:E" & d.Cells(Rows.Count, 2).End(3).Row).Copy l.[A1]
If l.Cells(Rows.Count, 2).End(3).Row = 1 Then l.[B2] = "KAYIT YOK"
Me.ListBox2.RowSource = "ŞUBE!A1:E" & l.Cells(Rows.Count, 2).End(3).Row
l.Columns("A:E").AutoFit
If d.AutoFilterMode Then d.AutoFilterMode = False
End Sub
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)
Kod:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)
