Hatadan sonra form neden kapanır.

[Altay3555]

Selamlar,
Kod'u aşağıya çıkardım.
İstediğim değer girmeye zorladığım hücreye ne girilirse kabul ediyor,"sayısal değer giriniz" diyor fakat kapanıyor.Sayısal değer giriniz dedikten sonra aktif hücrede değer girilene kadar kalsa iyi olur,hatadan sonra form kapanmasın istiyorum.

Private Sub CommandButton2_Click() 'Kurumsal Bilgiler Giriş Sayfası Veri Girme
Sheets("ANA SAYFA").Cells(8, 3).Value = TextBox13
Sheets("ANA SAYFA").Cells(9, 3).Value = TextBox12
Sheets("ANA SAYFA").Cells(10, 3).Value = TextBox11
Sheets("ANA SAYFA").Cells(11, 3).Value = TextBox10
Sheets("ANA SAYFA").Cells(12, 3).Value = TextBox5
Sheets("ANA SAYFA").Cells(13, 3).Value = TextBox14
Sheets("ANA SAYFA").Cells(13, 5).Value = TextBox15
If Not IsNumeric(TextBox10.Text) Then
MsgBox "Sayısal Değer Giriniz"
TextBox10.SetFocus
TextBox10.SelStart = 0
TextBox1.SelLength = Len(TextBox10.Text)
On Error Resume Next
End IfMsgBox "Kurumsal Bilgiler Girildi." 'vbOKOnly + vbInformation, Application.UserName & " KURUMSAL BİLGİLER"
ActiveWorkbook.Save
End Sub

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton2_Click() 'Kurumsal Bilgiler Giriş Sayfası Veri Girme
If Not IsNumeric(TextBox10.Text) Then
MsgBox "Sayısal Değer Giriniz"
TextBox10.SetFocus
TextBox10.SelStart = 0
TextBox10.SelLength = Len(TextBox10.Text)
Exit Sub
End If
Sheets("ANA SAYFA").Cells(8, 3).Value = TextBox13
Sheets("ANA SAYFA").Cells(9, 3).Value = TextBox12
Sheets("ANA SAYFA").Cells(10, 3).Value = TextBox11
Sheets("ANA SAYFA").Cells(11, 3).Value = TextBox10
Sheets("ANA SAYFA").Cells(12, 3).Value = TextBox5
Sheets("ANA SAYFA").Cells(13, 3).Value = TextBox14
Sheets("ANA SAYFA").Cells(13, 5).Value = TextBox15
MsgBox "Kurumsal Bilgiler Girildi." 'vbOKOnly + vbInformation, Application.UserName & " KURUMSAL BİLGİLER"
ActiveWorkbook.Save
End Sub

 

[Altay3555]

Hocam Teşekkürler.
Yeni Kod'da hata verince kodda araya sıkışmış TextBox1 ifadesi kalmıştı.Onu textBox10 yapınca düzeldi.
.....
TextBox10.SetFocus
TextBox10.SelStart = 0
TextBox1.SelLength = Len(TextBox10.Text)
.....
Teşekkür ederim.