Sn:Cengiz Özkan
Dosyanızda formlarınızı biraz daha düzenli hazırlayıp tüm formlarınız hazırlıyacağınız bir ana form üzerinden kontrol etmeniz daha düzenli olacaktır.Hazırlamış olduğunuz formlarda eksikler var.Aşağıdaki kodları kendi formlarınıza göre düzenleyiniz takıldığın yerlerde yine yardımcı olmaya çalışırız.
Private Sub CommandButton1_Click() 'Kaydet
b = WorksheetFunction.CountA(Sheets("Veri").Range("A:A"))
Sheets("Veri").Range("a" & b + 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
MsgBox "Verileriniz Kayıt Yapıldı", , "www.excelce.net"
CommandButton4_Click
End Sub
Private Sub CommandButton2_Click() 'Bul
For Each hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
hucre.Select
TextBox2 = ActiveCell.Offset(0, 1).Value
TextBox3 = ActiveCell.Offset(0, 2).Value
TextBox4 = ActiveCell.Offset(0, 3).Value
TextBox5 = ActiveCell.Offset(0, 4).Value
End If
Next
End Sub
Private Sub CommandButton3_Click() 'Değiştir
ActiveCell.Offset(0, 1).Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 3).Value = TextBox3.Value
ActiveCell.Offset(0, 4).Value = TextBox4.Value
ActiveCell.Offset(0, 5).Value = TextBox5.Value
MsgBox "Verileriniz Kayıt Yapıldı", , "www.excelce.net"
CommandButton4_Click
End Sub
Private Sub CommandButton4_Click() 'Temizle
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub
Private Sub CommandButton5_Click() 'Sil
Dim cevap
Dim i
cevap = MsgBox("Seçili Kaydı Silmek istediğinizden Eminmisiniz ?", vbYesNo + vbQuestion, "www.excelce.net")
If cevap = vbYes Then
Selection.EntireRow.Delete
End If
Range("A1").Select
MsgBox "Verileriniz Silindi", , "www.excelce.net"
End Sub