Textbox2 ye göre sayfada bul ve değiştir

[sirkülasyon]

Dim bul As Range
soru = MsgBox("Bu Kaydı Güncellemek İstiyor musunuz?", vbYesNo + vbInformation, "Uyarı")
If soru = vbYes Then
For Each bul In Range("D3:D" & Range("D65536").End(3).Row)
    If bul.Value = TextBox2.Text Then
        bul.Offset(0, 0).Activate
        bul.Offset(0, -1).Value = TextBox1.Value
        bul.Offset(0, 0).Value = TextBox2.Value
        bul.Offset(0, 1).Value = Format(TextBox3.Value, "dd.mm.yyyy")
        bul.Offset(0, 2).Value = Format(TextBox4.Value, "dd.mm.yyyy")
      
    End If
Next bul
End If

D sütununda TC kimlik No bilgisi var. (Textbox2)
C sütununda Adı Soyadı bilgisi var. (Textbox1)
D sütununda Kararname Tarihi bilgisi var. (Textbox3)
E sütununda Göreve Başlama Tarihi bilgisi var. (Textbox4)

Textbox2 (TC kimlik Numarasına göre ) değerine göre sayfada ki bilgiyi formda değiştirmek istiyorum. Ama Textbox1 haricinde değiştirme yapmıyor. Rica etsem yardımcı olabilir misiniz?

 

[metin_0606]

Dim bul As Range
soru = MsgBox("Bu Kaydı Güncellemek İstiyor musunuz?", vbYesNo + vbInformation, "Uyarı")
If soru = vbYes Then
For Each bul In Range("D3:D" & Range("D65536").End(3).Row)
    If bul.Value = TextBox2.Text Then
        bul.Offset(0, 0).Activate
        bul.Offset(0, -1).Value = TextBox1.Value
        bul.Offset(0, 0).Value = TextBox2.Value
        bul.Offset(0, 1).Value = Format(TextBox3.Value, "dd.mm.yyyy")
        bul.Offset(0, 2).Value = Format(TextBox4.Value, "dd.mm.yyyy")
     
    End If
Next bul
End If

D sütununda TC kimlik No bilgisi var. (Textbox2)
C sütununda Adı Soyadı bilgisi var. (Textbox1)
D sütununda Kararname Tarihi bilgisi var. (Textbox3)
E sütununda Göreve Başlama Tarihi bilgisi var. (Textbox4)

Textbox2 (TC kimlik Numarasına göre ) değerine göre sayfada ki bilgiyi formda değiştirmek istiyorum. Ama Textbox1 haricinde değiştirme yapmıyor. Rica etsem yardımcı olabilir misiniz?

Örnek dosya paylaşırsanız yardımcı olunabilir

 

[Ziynettin]

If bul.Value = TextBox.Text Then

satırını

If bul.Value = CDate(TextBox2) Then

şeklinde deneyin.