güncelleme kodu hakkında

[kadr]

arkadaşlar güncelleme için aşagıdaki kodu kullanıyorum değişiklik yapıp güncelle dediğimde text37 güncellendiğinde (text37 B2 hücresine karşılık geliyorsa d2 veya e2 hücresi güncelleniyor kodu nasıl değiştirmeliyim



Private Sub CommandButton8_Click()
On Error Resume Next
Set aklimda = ActiveSheet.Cells.Find(TextBox36.Text)
Bulunan = Not aklimda Is Nothing
If Bulunan = True Then
ilkbulunanadres = aklimda.Address
Set aklimda = ActiveSheet.Cells.FindNext(aklimda)

aklimda.Value = WorksheetFunction.Proper(TextBox36.Text)
aklimda.Offset(0, 0).Value = WorksheetFunction.Proper(TextBox36.Text)
aklimda.Offset(0, 1).Value = WorksheetFunction.Proper(TextBox37.Text)
aklimda.Offset(0, 2).Value = WorksheetFunction.Proper(TextBox3.Text)
'aklimda.Offset(0, 2).Value = WorksheetFunction.Proper(TextBox3.Text)
aklimda.Offset(0, 3).Value = WorksheetFunction.Proper(TextBox4.Text)
aklimda.Offset(0, 4).Value = WorksheetFunction.Proper(TextBox5.Text)
aklimda.Offset(0, 5).Value = WorksheetFunction.Proper(TextBox6.Text)
aklimda.Offset(0, 6).Value = WorksheetFunction.Proper(TextBox7.Text)
aklimda.Offset(0, 7).Value = WorksheetFunction.Proper(TextBox8.Text)
aklimda.Offset(0, 8).Value = WorksheetFunction.Proper(TextBox9.Text)
aklimda.Offset(0, 9).Value = WorksheetFunction.Proper(ComboBox3.Text)
aklimda.Offset(0, 10).Value = WorksheetFunction.Proper(TextBox11.Text)
aklimda.Offset(0, 11).Value = WorksheetFunction.Proper(ComboBox1.Text)
aklimda.Offset(0, 12).Value = WorksheetFunction.Proper(ComboBox2.Text)
aklimda.Offset(0, 13).Value = WorksheetFunction.Proper(TextBox14.Text)
aklimda.Offset(0, 14).Value = WorksheetFunction.Proper(TextBox16.Text)
aklimda.Offset(0, 15).Value = WorksheetFunction.Proper(TextBox40.Text)

aklimda.Offset(0, 16).Value = WorksheetFunction.Proper(TextBox17.Text)
aklimda.Offset(0, 17).Value = WorksheetFunction.Proper(TextBox18.Text)
aklimda.Offset(0, 18).Value = WorksheetFunction.Proper(TextBox19.Text)
aklimda.Offset(0, 19).Value = WorksheetFunction.Proper(TextBox20.Text)
aklimda.Offset(0, 20).Value = WorksheetFunction.Proper(ComboBox5.Text)
aklimda.Offset(0, 21).Value = WorksheetFunction.Proper(TextBox22.Text)
aklimda.Offset(0, 22).Value = WorksheetFunction.Proper(ComboBox6.Text)
aklimda.Offset(0, 23).Value = WorksheetFunction.Proper(TextBox24.Text)
aklimda.Offset(0, 24).Value = WorksheetFunction.Proper(TextBox25.Text)
aklimda.Offset(0, 25).Value = WorksheetFunction.Proper(ComboBox7.Text)
aklimda.Offset(0, 26).Value = WorksheetFunction.Proper(TextBox27.Text)
aklimda.Offset(0, 27).Value = WorksheetFunction.Proper(TextBox28.Text)
aklimda.Offset(0, 28).Value = WorksheetFunction.Proper(ComboBox8.Text)
aklimda.Offset(0, 29).Value = WorksheetFunction.Proper(ComboBox9.Text)
aklimda.Offset(0, 30).Value = WorksheetFunction.Proper(TextBox31.Text)
aklimda.Offset(0, 31).Value = WorksheetFunction.Proper(TextBox32.Text)
aklimda.Offset(0, 32).Value = WorksheetFunction.Proper(TextBox33.Text)
aklimda.Offset(0, 33).Value = WorksheetFunction.Proper(TextBox34.Text)
aklimda.Offset(0, 34).Value = WorksheetFunction.Proper(TextBox35.Text)


MsgBox WorksheetFunction.Proper(TextBox36.Text) & " Nolu Kayıt Değiştirilmiştir.", vbInformation, Application.UserName
Else

End If

End Sub