Soru Listbox Güncelleme

[sirkülasyon]

Dim Personel As Worksheet
If TextBox1.Text = "" Then Exit Sub
Set Personel = Worksheets("Personel")
sor = MsgBox(aranan & " T.C. Kimlik Numaralı öğrenci bilgileri için Güncelleme yapılacak mı?", vbYesNo + vbInformation, "Bilgi")
    If sor = vbNo Then Exit Sub
aranan = TextBox1.Text
değiştir_satır = Worksheets("Personel").Range("B:B").Find(aranan).Row
Worksheets("Personel").Cells(değiştir_satır, 3) = TextBox2.Value
Worksheets("Personel").Cells(değiştir_satır, 4) = TextBox3.Value
Worksheets("Personel").Cells(değiştir_satır, 5) = TextBox4.Value
Worksheets("Personel").Cells(değiştir_satır, 6) = TextBox5.Value
Worksheets("Personel").Cells(değiştir_satır, 7) = TextBox6.Value
Worksheets("Personel").Cells(değiştir_satır, 8) = TextBox7.Value
Worksheets("Personel").Cells(değiştir_satır, 9) = TextBox8.Value
Worksheets("Personel").Cells(değiştir_satır, 10) = TextBox9.Value
Worksheets("Personel").Cells(değiştir_satır, 11) = TextBox10.Value
Worksheets("Personel").Cells(değiştir_satır, 12) = TextBox11.Value
Worksheets("Personel").Cells(değiştir_satır, 13) = TextBox12.Value
Worksheets("Personel").Cells(değiştir_satır, 14) = ComboBox1.Value
Worksheets("Personel").Cells(değiştir_satır, 15) = ComboBox2.Value
For Each i In Me.Controls
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then i.Value = ""
Next i
Set Personel = Nothing

Hayırlı Akşamlar
Listboxtan Textboxlara aktardığım bilgileri yukarıdaki kod ile güncelliyorum. Ancak;
Aynı TC kimlikli olduğu zaman sıkıntı yaşıyorum. Listboxtaki satıra göre nasıl güncelleyebilirim?

 

[Orion1]

Textboxlara veriyi sayfada arayarak değil,listboxta satır seçerek onları listbox click olayında tıklayarak atınız.

 

[sirkülasyon]

Evren Abi
Listboxtan textboxa aktarma kodu

Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            UserForm1.TextBox1 = ListBox1.Column(0, i)
            UserForm1.TextBox2 = ListBox1.Column(1, i)
            UserForm1.TextBox3 = ListBox1.Column(2, i)
            UserForm1.TextBox4 = ListBox1.Column(3, i)
            UserForm1.TextBox5 = ListBox1.Column(4, i)
            UserForm1.TextBox6 = ListBox1.Column(5, i)
            UserForm1.TextBox7 = ListBox1.Column(6, i)
            UserForm1.TextBox8 = ListBox1.Column(7, i)
            UserForm1.TextBox9 = ListBox1.Column(8, i)
            UserForm1.TextBox10 = ListBox1.Column(9, i)
            UserForm1.TextBox11 = ListBox1.Column(10, i)
            UserForm1.TextBox12 = ListBox1.Column(11, i)
            UserForm1.ComboBox1 = ListBox1.Column(12, i)
            UserForm1.ComboBox2 = ListBox1.Column(13, i)
        End If
    Next i
End Sub

 

[Orion1]

Verinin ID ide olmalı.Listboxa veri alırken , ID larıda almalısınız.ID lar birbirine benzemeyen numaralardır.
Sayfada her satırın id si bulunur.onlarıda listboxa almanız lazım.Sayfada mak formülü ile birbirinden ayrı numaraları 1 arttırarak almalısınız.

 

[sirkülasyon]

Evren Abi
Teşekkür ederim.