ListBox özelliğini ListView olarak değiştirme

[khancy]

Ekli dosyada hazırlamış olduğum Userform içerisinde kullanılan ListBox içerisindeki verilerin çizgiler ile satır ve sutünlara bölünmesini istiyorum.Bildiğim kadarıyla ListBox özelliğinde mevcut değil ListView olarak değiştirebilecek arkadaşlardan yardım rica ediyorum.

 

[Huseyinkis]

Ekteki kodları incelermisiniz.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "F2:F100"

sat = Cells(Rows.Count, "A").End(xlUp).Row
sut = Cells(1, Columns.Count).End(xlToLeft).Column
With ListBox1
        .ColumnCount = sut
        For i = 1 To sut
            deg = deg & CLng(Columns(i).Width) & ";"
        Next i
        .ColumnWidths = deg
        .RowSource = "A2:F" & sat 
        .ColumnHeads = True
      
    End With
End Sub

 

[khancy]

Öncelikle ilgi ve alakanıza teşekkür ederim, elinize sağlık.
1- Combobox çalışmıyor.
2- Tüm tablodaki satır ve sütunların çizgiler ile ayrılmasını istemiştim.

 

[Orion1]

Dosyanız ektedir.

 

[rabbace]

Dosyanız ektedir.

Sayın Orion1 merhaba,
Userform1 deki Raporlama sayfasında ListView kullanmak istiyorum, sizin paylaştığınızı deneyerek yapmaya çalıştım fakat bir türlü yapamadım.
Ekteki dosyada yardımcı olabilir misiniz?

 

[Orion1]

Sayın Orion1 merhaba,
Userform1 deki Raporlama sayfasında ListView kullanmak istiyorum, sizin paylaştığınızı deneyerek yapmaya çalıştım fakat bir türlü yapamadım.
Ekteki dosyada yardımcı olabilir misiniz?

Raporlama sayfası için 4 sütundan oluşan listview yaptım.
Listview in kolonn adlarını İnitialize olayına yazdım.Listview listelemek içinde Listele adında userformda bir prosedür yazdım.
Dosyanız ektedir.

ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.ColumnHeaders.Add , , "Talep no", 90
ListView1.ColumnHeaders.Add , , "Talep Eden Bölüm", 120
ListView1.ColumnHeaders.Add , , "Talep Edilen Bölüm", 120
ListView1.ColumnHeaders.Add , , "Talep Eden Kişi", 100
Call listele
End Sub
Sub listele()
Dim sh As Worksheet, i As Long, sonsat As Long
Set sh = Sheets("Rapor")
ListView1.ListItems.Clear
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 11 To sonsat
    ListView1.ListItems.Add , , sh.Cells(i, "A").Value
    ListView1.ListItems(i - 10).SubItems(1) = sh.Cells(i, "B").Value
    ListView1.ListItems(i - 10).SubItems(2) = sh.Cells(i, "C").Value
    ListView1.ListItems(i - 10).SubItems(3) = sh.Cells(i, "D").Value
Next i
End Sub

 

[rabbace]

Çok teşekkürler sayın Orion1 harika oldu