Soru merhaba arkadaşlar aşağıdaki kodumdaki eksik nedir

herkese merhaba combobox ile bulduğum veri textboxda istediğim hücredeki verilerle birlikte alıyorum ancak textboxda yaptığım değişiklik yani güncelleme, bağlı olan hücreye yansımasını istiyorum aşağıdaki kodd ile sadece verileri textboxa alabiliyorum geri gönderme kodu nasıl onuda sizden istiyorum şimdiden yardımlarınız için minnetarım dosyanın olduğu linki de ekledim

Option Explicit
Private Sub CommandButton1_Click()

Dim pr As Worksheet
Set pr = Sheets("SARCOOL FİYAT LİSTESİ")

Dim x As Long
x = pr.Range("A100000").End(xlUp).Row
Dim aranan As String
Dim tablo As Range
Set tablo = pr.Range("A:BB")

aranan = ComboBox1.Text

TextBox2.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 34)
TextBox3.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 35)
TextBox4.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 36)
TextBox5.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 38)
TextBox6.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 40)
TextBox7.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 42)
TextBox8.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 44)
TextBox9.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 3)
TextBox10.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 6)
TextBox11.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 28)
TextBox12.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 32)
TextBox13.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 29)
TextBox14.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 21)
TextBox15.Value = tablo.Find(aranan, , , xlWhole).Offset(0, 37)



Set pr = Nothing
Set tablo = Nothing

ComboBox1.SelStart = 1
ComboBox1.SetFocus


End SubYENİ SİTE GÜNCELLEME Excel