Userform'da veri güncelleme

[seddur]

Merhabalar.Ekli dosyada görüldüğü üzere userform1 ile verileri ekleyip silebiliyorum ancak güncelleme yaptıramadım.Verileri kaydettiğim şekilde checkbox'lara tıklayarak nasıl veri güncellemesi yaptırabilirim.Yardımcı olursanız sevinirim.

 

[seddur]

Arkadaşlar güncelleme konusunda internetde paylaşılan örnekleri kendi dosyama uyarlayamadım zaten fazla örnek de yok.Userform ile sayfada yapılan uygulama arasında farkdanmı bilemiyorum aşağıda paylaştığım kodun ilgili satırı hata veriyor.Bu kodların dışında IF THEN ELSE kullanarak yine textboxlar üzerinden sayfadaki veriyi güncelleyemez miyiz?

sonsatir = Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row + 1
satir = varmı(Sheets("Anasayfa").ComboBox4.Text)

If satir = 0 Then
satir = sonsatir
Sheets("Anasayfa").Cells(sonsatir, "A15").Value = sonsatir - 1 'HATA VEREN SATIR
End If
Cells(satir, "A").Value = TextBox2
Cells(satir, "B").Value = TextBox3
Cells(satir, "C").Value = TextBox4

 

[Orion1]

Böyle deneyiniz.

Sheets("Anasayfa").Cells(sonsatir, "A").Value = sonsatir - 1

 

[seddur]

Merhaba.Yazdığınız şekilde denedim hata vermedi ama bu seferde sayfanın en altına kayıt yapıyor.Textbox3 deki değere göre satırda değişiklik yapmıyor. Son düzenlenmiş halini aşağıda paylaştım.

Set S1 = Sheets("Döküm")
sonsatir = S1.Cells(Rows.Count, "A").End(3).Row + 1
satir = varmi(UserForm1.TextBox3.Text)

If satir = 0 Then
satir = sonsatir
S1.Cells(sonsatir, "A").Value = sonsatir - 1
End If
Cells(satir, "A").Value = TextBox4
Cells(satir, "B").Value = TextBox5
Cells(satir, "C").Value = TextBox6
Cells(satir, "D").Value = TextBox7


Function varmi(bilgi) As Long
Set sayfak = Sheets("Döküm").Range("g:g").Find(bilgi, , xlValues, xlWhole)
If Not sayfak Is Nothing Then
varmi = sayfak.Row
Exit Function
End If
varmi = 0
End Function

 

[seddur]

Basit ve acemi işi kodlarla sorunu çözdüm.Textbox3 deki değere göre hücrede değişiklik yapan kodları aşağıda paylaşıyorum.

Set S1 = Sheets("Döküm")
For a = 18 To S1.[G1048576].End(xlUp).Row
If S1.Cells(a, 7) = UserForm1.TextBox3 Then
S1.Cells(a, 1) = UserForm1.TextBox4
S1.Cells(a, 2) = UserForm1.TextBox5
S1.Cells(a, 4) = UserForm1.TextBox6
S1.Cells(a, 5) = UserForm1.TextBox7
End If
Next