• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ListView'de seçilen verileri alt alta getirme?

Katılım
15 Ocak 2009
Mesajlar
257
Excel Vers. ve Dili
Türkçe 2010
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.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

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

Kayıt tarihi kısmını tarih formatında nasıl yaparız?
 
Evren Hocam.
İlginize Teşekkürler.


Hayırlı İşler.
 
Teşekkürler sayın Orion1.
 
Geri
Üst