Soru Güncelleme İşleminde Hata

[sirkülasyon]

Private Sub CommandButton3_Click()
If ListBox1.ListIndex < 0 Then: MsgBox "Lütfen ListBox'tan Değiştireceğiniz Kurumun Seçimini yapınız!", vbCritical: Exit Sub
ListBox1.SetFocus
cevap = MsgBox("Değiştirme İşlemini Onaylıyor Musunuz?", vbYesNo, "")
If cevap = vbNo Then Exit Sub
aranan = Label3
Set ara = Sheets("Tanımlar").Range("A:A").Find(aranan, , xlValues, xlWhole)
Sheets("Tanımlar").Cells(ara.Row, "B") = TextBox1.Text
Sheets("Tanımlar").Cells(ara.Row, "C") = TextBox2.Text

End Sub

Sheets("Tanımlar").Cells(ara.Row, "B") = TextBox1.Text işlem yapıyor,
Ancak;
Sheets("Tanımlar").Cells(ara.Row, "C") = TextBox2.Text işlem yapmıyor.
Dzeltme işlemini nasıl yapabilirim?

 

[Emir Hüseyin Çoban]

Hatalı dosya örneği ile incelesek daha anlaşılır olur.

.

 

[sirkülasyon]

Dosya Ekte Üstad

 

[Emir Hüseyin Çoban]

.

İlk olasılık clik olaylarında bir sorun olduğu...

Şu şekilde deneyin.

Private Sub CommandButton3_Click()
    If ListBox1.ListIndex < 0 Then: MsgBox "Lütfen ListBox'tan Değiştireceğiniz Kurum Seçimi yapınız!", vbCritical: Exit Sub
    ListBox1.SetFocus
    Dim Onay As Byte, Bul As Range

    bir = TextBox1
    iki = TextBox2


    Onay = MsgBox("Verileri güncellemek istiyor musunuz?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
    Set Bul = Sheets("Tanımlar").Range("A:A").Find(ListBox1.Column(0), , , xlWhole)
    If Not Bul Is Nothing Then
        Bul.Offset(0, 0) = Label3
        Bul.Offset(0, 1) = bir
        Bul.Offset(0, 2) = iki


        MsgBox "Veriler güncellenmiştir.", vbInformation
    End If
End Sub

.

 

[sirkülasyon]

Üstad Ellerine Sağlık. Teşekkür Ederim.