Bu kayıt komutuna göre değiştir ve sil komutu nasıl yapabilirim.Üstadlarım bu konuda bana yardım edermisiniz.kayıt komutum şu şekilde
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
If (Sayfa13.Cells(i, 1) = "") Then
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 26) = TextBox15.Value
Sayfa13.Cells(i, 16) = TextBox18.Value
Sayfa13.Cells(i, 2) = ComboBox3.Text
Sayfa13.Cells(i, 3) = Textbox2.Text
Sayfa13.Cells(i, 4) = TextBox8.Text
Sayfa13.Cells(i, 5) = TextBox9.Text
Sayfa13.Cells(i, 6) = TextBox16.Text
Sayfa13.Cells(i, 7) = TextBox10.Text
Sayfa13.Cells(i, 8) = TextBox13.Text
Sayfa13.Cells(i, 9) = TextBox14.Text
Sayfa13.Cells(i, 18) = TextBox6.Text
Sayfa13.Cells(i, 19) = TextBox7.Text
Sayfa13.Cells(i, 21) = TextBox11.Text
Sayfa13.Cells(i, 23) = TextBox12.Text
Sayfa13.Cells(i, 15) = TextBox5.Text
Sayfa13.Cells(i, 11) = ComboBox2.Text
Sayfa13.Cells(i, 28) = ComboBox4.Text
Sayfa13.Cells(i, 27) = TextBox19.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
Exit Sub
End If
Next i
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 32000
If (Sayfa13.Cells(i, 1) = "") Then
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 1) = ComboBox1.Text
Sayfa13.Cells(i, 26) = TextBox15.Value
Sayfa13.Cells(i, 16) = TextBox18.Value
Sayfa13.Cells(i, 2) = ComboBox3.Text
Sayfa13.Cells(i, 3) = Textbox2.Text
Sayfa13.Cells(i, 4) = TextBox8.Text
Sayfa13.Cells(i, 5) = TextBox9.Text
Sayfa13.Cells(i, 6) = TextBox16.Text
Sayfa13.Cells(i, 7) = TextBox10.Text
Sayfa13.Cells(i, 8) = TextBox13.Text
Sayfa13.Cells(i, 9) = TextBox14.Text
Sayfa13.Cells(i, 18) = TextBox6.Text
Sayfa13.Cells(i, 19) = TextBox7.Text
Sayfa13.Cells(i, 21) = TextBox11.Text
Sayfa13.Cells(i, 23) = TextBox12.Text
Sayfa13.Cells(i, 15) = TextBox5.Text
Sayfa13.Cells(i, 11) = ComboBox2.Text
Sayfa13.Cells(i, 28) = ComboBox4.Text
Sayfa13.Cells(i, 27) = TextBox19.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
Exit Sub
End If
Next i
End Sub