yesimgurol
Altın Üye
- Katılım
- 8 Aralık 2011
- Mesajlar
- 950
- Excel Vers. ve Dili
- Excel 2016,32bit
- Altın Üyelik Bitiş Tarihi
- 18-11-2024
Merhabalar;
Kayıt işlemi için kullandığım çalışma sayfasında bulunan kayıt formu içerisinde listview bulunmakta kodları şöyle;
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?
Kayıt işlemi için kullandığım çalışma sayfasında bulunan kayıt formu içerisinde listview bulunmakta kodları şöyle;
Kod:
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
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?
Ekli dosyalar
-
47.8 KB Görüntüleme: 32