Kod satırına ilave yapmak

Katılım
5 Ağustos 2007
Mesajlar
247
Excel Vers. ve Dili
excel 2003 tr
Selam;
Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
MsgBox "Lütfen Kayıt Yerini belirleyiniz"
Exit Sub
End If
If TextBox1.Value = "" Or TextBox2.Value = "" Then
MsgBox "Tutanak ilk no ve Son No girilmeden kayıt yapılamaz."
Exit Sub
End If
Kayıt Userformunda kaydet butonuna tıklandığında TexBox 1 ve 2'ye bilgi girilmeden kayıt işlemini yapmıyor buraya kadar tamam. (istenen bilgi 2 adetti)
Ancak bu çoğaldı bilgi hansi 5 oldu Ama bu seferde 1 ve 2 doldurulup diğer yerler doldurulmayınca da kaydı tamamlıyor kodda kırmızı bölüme TexBox3-4-5 'ide eklemek istiyorum bunun için nasıl yazmam gerekiyordu.
 
Katılım
12 Mayıs 2008
Mesajlar
5
Excel Vers. ve Dili
Yerli Dili
For i= to KacIstiyorsan
if Textbox&i.value="" then msgbox "Tutanak ilk no ve Son No girilmeden kayıt yapılamaz."
exit sub
Next i
 
Katılım
5 Ağustos 2007
Mesajlar
247
Excel Vers. ve Dili
excel 2003 tr
Üstad teşekkür ederim oldu. Ancak Or ile devam edincede oluyormuş. Teşekkür ederim ilgine.
 
Üst