GÜNCELLEME

[Ongun]

Selam arkadaşlar, çalışma sayfasındaki verilerimi güncellemek istiyorum. Yani yanlış veri veya veri değişikliği yapılmasını sağlamak istiyorum. Konuyla ilgili olarak aşağıdaki gibi bir kod hazırladım. Bu koda göre kayıtlı veriyi textbox`a getiriyor. düzeltme işlemini yapıp tekrar kayıt ediyor. (bul_değiştir). Ancak, bu değiştirme işlemi birden fazla sayfadaki verilerle bağlantılı olduğundan, diğer sayfalardaki değişmesi gereken verilerin de değişmesini (güncellenmesini) nasıl sağlayabilirim. Lütfen bana yardımcı olurmusunuz. Eğer bu konuda çalışması olan varsa bana örnek dosya gönderebilirmi.? Saygılarımla

Private Sub CommandButton28_Click()
On Error Resume Next
Sheets("sayfa3").Select
If TextBox8.Value = "" Then
MsgBox "LÜTFEN KAYIT NO`YU GİRİNİZ.!", 16, "DİKKAT": TextBox8.SetFocus
Exit Sub
End If
Dim bak As Range
For Each bak In Range("H2:H" & WorksheetFunction.CountA(Range("H2:H65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
TextBox1.Value = bak.Offset(0, -6).Value
TextBox2.Value = bak.Offset(0, -5).Value
TextBox3.Value = bak.Offset(0, -4).Value
TextBox4.Value = bak.Offset(0, -3).Value
TextBox5.Value = bak.Offset(0, -2).Value
TextBox6.Value = bak.Offset(0, -1).Value
Exit Sub
End If
Next bak
MsgBox "ARADIÐINIZ KAYIT NUMARASI BULUNAMADI.!", 16, "DİKKAT": TextBox8 = ""
End Sub

Private Sub CommandButton29_Click()
On Error Resume Next
Sheets("sayfa3").Select
Dim bos As Range
For Each bos In Range("H2:H" & WorksheetFunction.CountA(Range("H2:H65000")))
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox8.Value = "" Then
MsgBox "Ã?NCE ARADIÐINIZ VERİYİ BUL İLE BULUNUZ.!", 16, "DİKKAT"
Exit Sub
End If
If StrConv(bos.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
bos.Offset(0, -6).Value = TextBox1.Value
bos.Offset(0, -5).Value = TextBox2.Value
bos.Offset(0, -4).Value = TextBox3.Value
bos.Offset(0, -3).Value = TextBox4.Value
bos.Offset(0, -2).Value = TextBox5.Value
bos.Offset(0, -1).Value = TextBox6.Value
MsgBox "VERİNİZ DEÐİÞTİRİLMİÞTİR.!", 48, "UYARI"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox8 = ""
Exit Sub
End If
Next bos
End Sub