Soru FORM üzerinde değiştir hatası

[sirkülasyon]

Dim Onay As Byte, Bul As Range
    Onay = MsgBox("" & TextBox2.Value & " T.C Kimlik Nolu " & TextBox1.Value & " Adlı kişiye ait kayıt  bilgileri değiştirilecek, emin misiniz?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
     Set Bul = Sheets("LİSTE").[C:C].Find(TextBox2)
If Not Bul Is Nothing Then
Bul.Offset(0, -1) = TextBox1
Bul.Offset(0, 0) = TextBox2
Bul.Offset(0, 1) = TextBox3
Bul.Offset(0, 2) = ComboBox3.Value
Bul.Offset(0, 3) = ComboBox4.Value
Bul.Offset(0, 4) = ComboBox2.Value
Bul.Offset(0, 5) = TextBox5.Value
Bul.Offset(0, 6) = ComboBox1.Value
Bul.Offset(0, 7) = TextBox4.Value       
MsgBox TextBox2.Value & " T.C Kimlik Nolu " & TextBox1.Value & " Adlı kişiye ait kayıt bilgileri değiştirildi", , "Kayıt Değişikliği" 
Else
        MsgBox TextBox2.Value & " T.C Kimlik Nolu " & TextBox1.Value & " Adlı kişiye ait kayıt bilgiler değiştirilemedi", , "Başarısız"
Exit Sub
 End If

Liste sayfamın 3. satırından itibaren
B sütunu = TextBox1
C sütunu = TextBox2
D sütunu = TextBox3
E sütunu = ComboBox3.Value
F sütunu = ComboBox4.Value
G sütunu = ComboBox2.Value
H sütunu =TextBox5.Value
I sütunu = ComboBox1.Value
J sütunu = TextBox4.Value

Değiştir butonunu çalıştırdığımda değiştirme yapmıyor. Rica etsem yardımcı olabilmeniz mümkün mü?

 

[YUSUF44]

Muhtemelen aranan veri bulunamadığı için işlem yapmıyordur. Textboxtaki TC numarası metin biçimindedir, sayfada sayı biçimindeyse bulamaz.
Find(TextBox2*1) şeklinde deneyin.