Listeden aranan kişiye ait bilgileri listeleme

[otufan]

Dosyada GÜN sayfasında B2:I500 aralığında kişilerin listesi var. C sütununda kişilerin TC Kimlik noları mevcut. Userformdan bir kutucuğa aranan kişinin TC nosunu yazıp bu kişinin listede olup olmadığı varsa kaç kere var userform üzerindeki listboxta sırlanmış listesini göstermek için nasıl bir kod yazabiliriz.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "100;50;50;50;50;50;50;50;"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([b1:b65536])
alan = UCase(Replace(Replace(Range("b" & suz), "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("B" & suz)
ListBox1.List(s, 1) = Range("C" & suz)
ListBox1.List(s, 2) = Range("D" & suz)
ListBox1.List(s, 3) = Range("E" & suz)
ListBox1.List(s, 4) = Range("F" & suz)
ListBox1.List(s, 5) = Range("G" & suz)
ListBox1.List(s, 6) = Range("H" & suz)
ListBox1.List(s, 7) = Range("I" & suz)
s = s + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
ListBox1.RowSource = ""
For i = 2 To [B65536].End(3).Row
    If Cells(i, "C").Value = Val(TextBox1.Value) Then
        ListBox1.AddItem
        ListBox1.Column(0, sat) = Cells(i, "B").Value
        ListBox1.Column(1, sat) = Cells(i, "C").Value
        sat = sat + 1
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "B2:C" & Cells(65536, "B").End(xlUp).Row
End Sub

 

[otufan]

Sayın Orion2 istediğim gibi olacak inşallah, listede bulunan yani 1nci satırda başlıklar va onları listboxta nasıl gösteririz.

Ayrıca diyelimki listede bulunan satırlardan birini tıklayarak seçip satırdaki bilgileri diğer userformda bulunan textbox ve combobox'lara aktarabilirmiyiz.Yani ikinci form açılacak ve o form içinde kişiye ait bilgiler görünecek. Teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.
ListBox'a çift tıklayınız ve userform2'deki textbox'Larda görünüz.

 

[MERDAG]

bu listbox,userform ve textbox'ları nasıl yapabiliriz... (kendimiz uygulama yapacak olsak) nereden oluşturabiliriz...teşekkürler

 

[Ferhat Pazarçevirdi]

Sn.MERDAG

Sorunuza ilişkin forumda yeni bir konu açarsanız, daha sağlıklı olur.

Aslında sorduğunuz soru, VBA'da birçok konuyla ilişkili ancak bütünlüğün bozulmaması ve konunun dağılmaması için, siz burası yerine uygun bir başlık açın lütfen ...

 

[aymetlay]

teşekkür

çalışmanın bana çok büyük faydası oldu. saolun