Açıklama Üzerinde Değişiklik Yapma

[fehdur]

Aşağıdaki kod ile A sütununda bulunan ve comboboxdan seçilmiş olan isime Textbox1"e yazdığım açıklamayla ekleme yapabiliyorum ancak açıklama üzerinde değişiklik veya ekleme yaptığımda yeni veriyi kayıt edemiyorum.Bir butona yazılacak kodla bu sorunu nasıl çözebilirim.Teşekkürler.



On Error Resume Next
TextBox1 = ""
TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text
a = TextBox1
If a = "" Then Exit Sub
Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment
B = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text
Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text B & " " & a
TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text

 

[fehdur]

Textbox1 üzerinde değişiklik yapıp aşağıdaki kodu butondan çalıştırıyorum ama açıklamada değişiklik olmuyor.Ne önerirsiniz.

TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text

 

[fehdur]

kodlar aşağıdaki şekilde yazılınca veri üzerinde güncelleme yapılabiliyor

a = Sheets("Anasayfa").TextBox1
If a = "" Then Exit Sub
On Error Resume Next
Sheets("Anasayfa").Columns(12).Find(ComboBox4).AddComment
Sheets("Anasayfa").Columns(12).Find(ComboBox4).Comment.Text a
MsgBox "kayıt yapılmıştır"
Exit Sub