Listview,arama sonucunu textbox a aktarma hakkında...

[yesimgurol]

Merhabalar;
Kayıt işlemi için kullandığım çalışma sayfasında bulunan kayıt formu içerisinde listview bulunmakta kodları şöyle;

Private Sub UserForm_Initialize()
TextBox1 = Sheets("met").Cells(Sheets("met").Cells(Rows.Count, "b").End(3).Row, "b")
ComboBox1.RowSource = "Sayfa1!B2:B10"
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ColumnHeaders.Clear
    With ListView1.ColumnHeaders
            .Add , , "S.No", 25     'Satır Başlığı,genişlik
            .Add , , "prtkl No", 80
            .Add , , "ADI "
            .Add , , "DEKONT", 55
            .Add , , "SONUC", 50
            .Add , , "LAB", 35
            .Add , , "NUM.CINSI", 45
            .Add , , "TETKIK"
            .Add , , "DOKTOR"
            .Add , , "TEL"
            .Add , , "MAIL"
            .Add , , "CINSYT"
            .Add , , "D.TARIH"
            .Add , , "KILO"
            .Add , , "D"
            .Add , , "SAAT"
            .Add , , "ADRES"
            .Add , , "AÇIKLAMA"
            .Add , , "TC NO"
        End With
        
         ListView1.ListItems.Clear
    On Error Resume Next
    sat = 1
    With Sayfa176
         For i = .Range("a65536").End(3).Row To 2 Step -1
        Set liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
        liste.SubItems(1) = .Cells(i, 2).Value
        liste.SubItems(2) = .Cells(i, 3).Value
        liste.SubItems(3) = .Cells(i, 4).Value
        liste.SubItems(4) = .Cells(i, 5).Value
        liste.SubItems(5) = .Cells(i, 6).Value
        liste.SubItems(6) = .Cells(i, 7).Value
        liste.SubItems(7) = .Cells(i, 8).Value
        liste.SubItems(8) = .Cells(i, 9).Value
        liste.SubItems(9) = .Cells(i, 10).Value
        liste.SubItems(10) = .Cells(i, 11).Value
        liste.SubItems(11) = .Cells(i, 12).Value
        liste.SubItems(12) = .Cells(i, 13).Value
        liste.SubItems(13) = .Cells(i, 14).Value
        liste.SubItems(14) = .Cells(i, 15).Value
        liste.SubItems(15) = .Cells(i, 16).Value
        liste.SubItems(16) = .Cells(i, 17).Value
        liste.SubItems(17) = .Cells(i, 18).Value
        liste.SubItems(18) = .Cells(i, 19).Value
        If UCase(Sheets("met").Cells(i, 5).Value) = "TEKRAR" Then
            ListView1.ListItems(sat).ForeColor = vbGreen
            For j = 1 To 18
                ListView1.ListItems(sat).ListSubItems(j).ForeColor = vbGreen
            Next
        End If
        If Sheets("met").Cells(i, 4).Value = "YOK" Then
            ListView1.ListItems(sat).ListSubItems(3).ForeColor = vbRed
        End If
        sat = sat + 1
        Next i
        End With
        
End Su

Kayıt bilgilerini girdiğim texboxlar mevcut "TC No" (Textbox 18) bilgisini girdiğimde enter dediğimde girilen bu "TC No" listview de son sütunda aranıp var ise bu "TC No" kime aitse yani listview de 3.sütundaki adı soyadı bilgisi "Textbox 2" ye aktarılabilir mi acaba?
Amacım kayıt yaparken hasta TC No sunu girdiğimde daha önce bize geldi ise bilgileri textbox a aktarmak.Mümkün müdür?

 

[yesimgurol]

Merhabalar,forumda örnek dosyaları incelerken kendim için en uygun olan kodları alıp uyarlamaya çalıyorum.Kodları şöyle;

Private Sub TextBox18_change()

If TextBox18.Value = Empty Then
18 For t = 1 To 18
Controls("ComboBox" & t).Value = Empty
Next t
Exit Sub
End If
With ListView1
For p = 0 To ListView1.ListItems.Count
.SelectedItem.Bold = False
.SelectedItem.ForeColor = vbBlack
Next p
On Local Error Resume Next
.FindItem(TextBox18.Value).Selected = True
If Err Then GoTo 18
.ListItems.Item(.SelectedItem.Index).EnsureVisible
.FullRowSelect = True
.SelectedItem.Bold = True
.SelectedItem.ForeColor = vbBlue
.SetFocus
For t = 1 To .ColumnHeaders.Count - 1
Controls("ComboBox" & t).Text = .ListItems.Item(.SelectedItem.Index).ListSubItems. Item(t)
Next t
End With
End Sub

Textbox 18 e yazdığım veri ilk sütunda aranıyor bulununca satır renkleniyor ve combobox lara aktarılıyor. 1.nolu mesajımdaki lere yakın fakat aramayı ben son sütunda yapmak istiyorum ve bilgilerin textbox a aktarılmasını istiyorum...Takıldım burda:-(

 

[yesimgurol]

2.Nolu mesajımdaki kodlarda aranan değerlerin combobox lara değilde belirli textboxlara aktarılması için "combobox" yazan yerleri "textbox" olarak değiştiriyorum ama olmuyor:-(

 

[halit3]

kod :

Private Sub TextBox18_change()
TextBox2.Value = ""
For t = 1 To ListView1.ListItems.Count
If TextBox18.Value = ListView1.ListItems(t).ListSubItems(18).Text Then
TextBox2.Value = ListView1.ListItems(t).ListSubItems(2).Text
End If
Next t

End Sub

 

[yesimgurol]

Sayın halit3,çok teşekkür ederim.İstediğim gibi olmuş.:dua2::bravo::mutlu::mutlu: