Aşağıdaki kod ile kayde dediğimde bütün değerleri girmeme rağmen lütfen boş bıraktığınız bölümleri doldurunuz diyor.
1 To 0 yaptığımda ancak kayıt yapıyor. yardımcı olursanız çok sevinirim.
Ayrıca comboboxta seçilen değerlerin formdan silinmesini engelleyebilirmiyim?
Private Sub CommandButton1_Click()
For No = 1 To 10
On Error Resume Next
If Controls("TextBox" & No).Value = Empty Then
MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
Controls("TextBox" & No).SetFocus
Exit Sub
End If
Next No
Sheets("Sayfa1").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = Empty Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
ActiveCell.Offset(0, 4) = ComboBox1.Value
ActiveCell.Offset(0, 5) = ComboBox2.Value
ActiveCell.Offset(0, 6) = ComboBox3.Value
ActiveCell.Offset(0, 7) = TextBox4.Value
ActiveCell.Offset(0, 8) = TextBox5.Value
ActiveCell.Offset(0, 9) = TextBox6.Value
ActiveCell.Offset(0, 10) = TextBox7.Value
ActiveCell.Offset(0, 11) = TextBox8.Value
Range("A3").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Call Formu_Temizle
UserForm2.ListBox1.RowSource = "Sayfa1!A3:L" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
End Sub[/vb]
1 To 0 yaptığımda ancak kayıt yapıyor. yardımcı olursanız çok sevinirim.
Ayrıca comboboxta seçilen değerlerin formdan silinmesini engelleyebilirmiyim?
Private Sub CommandButton1_Click()
For No = 1 To 10
On Error Resume Next
If Controls("TextBox" & No).Value = Empty Then
MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
Controls("TextBox" & No).SetFocus
Exit Sub
End If
Next No
Sheets("Sayfa1").Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = Empty Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1) = TextBox1.Value
ActiveCell.Offset(0, 2) = TextBox2.Value
ActiveCell.Offset(0, 3) = TextBox3.Value
ActiveCell.Offset(0, 4) = ComboBox1.Value
ActiveCell.Offset(0, 5) = ComboBox2.Value
ActiveCell.Offset(0, 6) = ComboBox3.Value
ActiveCell.Offset(0, 7) = TextBox4.Value
ActiveCell.Offset(0, 8) = TextBox5.Value
ActiveCell.Offset(0, 9) = TextBox6.Value
ActiveCell.Offset(0, 10) = TextBox7.Value
ActiveCell.Offset(0, 11) = TextBox8.Value
Range("A3").Select
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Call Formu_Temizle
UserForm2.ListBox1.RowSource = "Sayfa1!A3:L" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
End Sub[/vb]