Commanbutonla yeni kayıt, Bulma ve günceleme yapma?

[mars2]

İyi Akşamlar;

Excel çalışma kitabımda adres sayyfası bulunmaktadır.
A Sutununda Sıra No
B Sutununda Dosya No
C Sutununda Ad soyad
D Sutununda TC Nosu
E Sutununda Adresi
F sutununda İlçesi
G sutununda ise İli Bulunmaktadır.

Ekli userform ile Yeni kayıt yapması, isme göre kayıtı bulması ve Günceleme yapmasıni istemelteyim.
Örnekte Commanbutaonlarda bazı kodlar bulunmakla eksik ve hatalı olması nedeniyle olmamaktadır. Bu konda yardımlarınız eklenmektedir.

 

[bycakir]

denermisiniz?

 

[muygun]

Merhaba;
syn. bycakir sorunu çözümlemiş ama farklı bir userform alternatif olsun.
İyi çalışmalar.

 

[mars2]

Sayın bycakir, muygun

Cevaplarınız ve ayırdığınız zaman için teşekkürler.

 

[mars2]

İyi Akşamlar;

Uygulamayı kullanmaktayım. Ancak adres sayfasını gizlediğim zaman hata vermektedir.
Aşağıdaki kodlarda ne gibi değişiklik yapılmaı gerekmektedir.

Private Sub CommandButton3_Click()
'bul makrosu
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("adres").Select
Set bul = Range("C:C").Find(TextBox2)
If Not bul Is Nothing Then
bul.Offset(0, 2).Select
TextBox2 = bul.Value
TextBox1 = bul.Offset(0, -1).Value
TextBox3 = bul.Offset(0, 1).Value
TextBox4 = bul.Offset(0, 2).Value
TextBox5 = bul.Offset(0, 3).Value
TextBox6 = bul.Offset(0, 4).Value
TextBox7 = bul.Offset(0, 5).Value

Else
MsgBox "Aranan veri bulunamadı!", vbCritical
End If
ThisWorkbook.Save

Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub

Private Sub CommandButton4_Click()
'değiştir makrosu

Dim bos As Boolean
Dim SAT As Currency

On Error Resume Next

Set bul = Range("C:C").Find(TextBox2)
If Not bul Is Nothing Then
bul.Offset(0, 2).Select
bul.Value = TextBox2
bul.Offset(0, -1).Value = TextBox1
bul.Offset(0, 1).Value = TextBox3
bul.Offset(0, 2).Value = TextBox4
bul.Offset(0, 3).Value = TextBox5
bul.Offset(0, 4).Value = TextBox6
bul.Offset(0, 5).Value = TextBox7
ActiveWorkbook.Save
MsgBox TextBox1.Value & "'a AİT VERİLERİNİZ DEĞİŞTİRŞİLDİ", , "KAYIT DEĞİŞTİRME"

End If
End Sub

Private Sub CommandButton1_Click()
'Kayıt
Sheets("adres").Activate

If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
Son_Dolu_Satir = Sheets("adres").Range("B65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
'Sheets("adres").Range("B" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("adres").Range("B:B")) + 1
Sheets("adres").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("adres").Range("C" & Bos_Satir).Value = TextBox2.Text
Sheets("adres").Range("D" & Bos_Satir).Value = TextBox3.Text
Sheets("adres").Range("E" & Bos_Satir).Value = TextBox4.Text
Sheets("adres").Range("F" & Bos_Satir).Value = TextBox5.Text
Sheets("adres").Range("G" & Bos_Satir).Value = TextBox6.Text
Sheets("adres").Range("H" & Bos_Satir).Value = TextBox7.Text

MsgBox "YENİ İSİM VE UNVAN KAYIT EDİLDİ.", , "KAYIT"

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
Unload UserForm2
Else
MsgBox "İsim Girmeniz Gerekiyor"
End If
Else
MsgBox "Taşınmaz Nosunu Girmeniz Gerekiyor"
End If

End Sub