ListView'de seçilen verileri alt alta getirme?

[unalh]

S.a Arkadaşlar.

Öncelikle herkese hayırlı haftalar diliyorum.
Başlayacak olan ramazan ayının tüm islam alemi ve forum üyeleri içen hayırlara vesile olmasını rabbimizden niyaz ediyorum.

Şöyle bir sorum olacak TextBox1 de aradığım cari isim Bilgilerinin ListView1'de alt alta gelmesi.
Yani ListView1'de
1.Kolona Başlıklar
2.Kolona ise seçilen carinin bilgilerinin gelmesi.


İlginiz için şimdiden teşekkür ederim.
Hayırlı işler.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
ListView1.ListItems.Clear
For i = 1 To 7
    ListView1.ListItems.Add , , Cells(1, i + 3)
    ListView1.ListItems(i).ListSubItems.Add , , ComboBox1.Column(i)
    ListView1.ListItems(i).Bold = True
    ListView1.ListItems(i).ForeColor = vbBlue
    ListView1.ListItems(i).ListSubItems(1).Bold = True
    ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed
Next
ListView1.ListItems(7).SubItems(1) = Format(ComboBox1.Column(7), "dd.mm.yyyy")
    
End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Private Sub UserForm_Initialize()
    
            Sheets("PTkip").Select
            Dim i As Integer
            ListView1.ListItems.Clear
            ListView1.ColumnHeaders.Clear
            ListView1.View = lvwReport

        With ListView1.ColumnHeaders
            .Add , , "Başlıklar ", 80
            .Add , , "Açıklamalar ", 250
                
        End With
        
             ListView1.FullRowSelect = True
             ListView1.Gridlines = True
             ComboBox1.ColumnCount = 8
    ComboBox1.ColumnWidths = "250;0;0;0;0;0;0;0"
    If Sheets("PTkip").Cells(65536, "C").End(xlUp).Row > 1 Then
        ComboBox1.RowSource = "PTkip!C2:J" & Sheets("PTkip").Cells(65536, "C").End(xlUp).Row
        ComboBox1.ListIndex = 0
    End If
    

End Sub

 

[unalh]

Evren hocam cavabınız için teşekkür ediyorum.

Kayıt tarihi kısmını tarih formatında nasıl yaparız?

 

[Orion1]

Evren hocam cavabınız için teşekkür ediyorum.

Kayıt tarihi kısmını tarih formatında nasıl yaparız?

Dosyayı güncelledim.
2 numralı mesajdan inidrebilirsiniz.

 

[unalh]

Evren Hocam.
İlginize Teşekkürler.


Hayırlı İşler.

 

[Orion1]

Evren Hocam.
İlginize Teşekkürler.


Hayırlı İşler.

Rica ederim.
İyi çalışmalalar.

 

[baydeniro]

Teşekkürler sayın Orion1.