Kod da hata var ama ben nerede bulamadım.

[efeboral]

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]

 

[Merhum İdris SERDAR]

For No = 1 To 10

For No = 1 To 8 olarak denediniz mi?

 

[efeboral]

For No = 1 To 10

For No = 1 To 8 olarak denediniz mi?

For No = 1 To 0 2 kadar hepsini denedim olmuyor.

 

[Levent Menteşoğlu]

Bahsettiğiniz mesajı vermesi için textboxlardan birinin boş olması gerekir. Aradaki on error resume next satırını silerek tekrar denermisiniz, hata verecektir.

 

[efeboral]

Bahsettiğiniz mesajı vermesi için textboxlardan birinin boş olması gerekir. Aradaki on error resume next satırını silerek tekrar denermisiniz, hata verecektir.

Evet şu hatayı verdi.
If Controls("TextBox" & No).Value = Empty Then

ama textboxların hepsi dolu comboboxlarda öyle.

 

[Levent Menteşoğlu]

şimdi for No=1 to 8 olarak deneyin.

 

[efeboral]

Size dosyayı gönderiyorum olmuyor inanın.user:admin pass:admin
Ayrıca comboboxlardan verilerin formdan silinmemesi için ne yapmam lazım.

 

[Levent Menteşoğlu]

for-next döngüsü ile textboxları tanımlamak için textbox isimlerinin sıralı gitmesi gerekir, sizin userformda textbox2 mevcut değil hata buradadır, textboxların isimlerini sıralı hale getirin. Diğer sorunuzu anlayamadım.

 

[efeboral]

Çok teşekkür ederim sayın leventm gerçekten dikkat etmemişim.

diğer sorum combobox lara verdiğim değerleri değiştiremesinler istiyorum.
ne yapmam lazım.