textboxların içi boşsa uyarı versin

[sefer1975]

userformda textboxlar var içeriği boşsa uyarı versin ve boş olan textboxa dönsün. texboxlar doluysa alttaki işleme geçsin. kodu yazdım ama sorun nerde bilmiyorum. yardım edermisiniz.

Private Sub UserForm_Initialize()
Calendar1.Visible = False
End Sub
Private Sub TextBox5_Enter()
Calendar1.Visible = True
End Sub
Private Sub Calendar1_Click()
TextBox5.Value = Calendar1.Value
Calendar1.Visible = False
End Sub



Private Sub CommandButton1_Click()
If IsEmpty(Trim(TextBox1)) Then
   MsgBox "Boş geçilemez", vbCritical, "UYARI"
   TextBox1.SetFocus
   Exit Sub
End If

Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text
ActiveCell.Offset(0, 6).Value = TextBox6.Text
ActiveCell.Offset(0, 7).Value = TextBox7.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
aciklama = "KAYIT İŞLEMİ TAMAMLANDI"
dügme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "KAYIT"
MsgBox aciklama, dugme, baslik
Worksheets("ANABİLGİLER").[f:f].NumberFormat = "dd/mm/yyyy"
Worksheets("ANABİLGİLER").[E:E].NumberFormat = "[<=9999999]###-####;(###) ###-####"
Worksheets("ANABİLGİLER").[D:D].NumberFormat = "[<=9999999]###-####;(###) ###-####"
Worksheets("ANABİLGİLER").[H:H].NumberFormat = "0"
Worksheets("ANABİLGİLER").[I:I].NumberFormat = "0,00"


End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub CommandButton3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox1.SetFocus

End Sub

 

[cebir]

merhaba..

Private Sub CommandButton1_Click()
For S = 1 To 9
If Controls("TextBox" & S) = Empty Then
MsgBox "Boş geçilemez", vbCritical, "UYARI"
Controls("TextBox" & S).SetFocus
Exit Sub
End If
Next S

Range("a2").Select
...
kodlarınız
..
End Sub

 

[sefer1975]

çok teşekkürler kodlar işimi gördü peki sayıya nasıl zorlarız mesela sayı girmeye zorlamak istiyorum textbox 5 mesala

 

[Orion1]

çok teşekkürler kodlar işimi gördü peki sayıya nasıl zorlarız mesela sayı girmeye zorlamak istiyorum textbox 5 mesala

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox5.Value) Then
    MsgBox "TextBox5'e yalnızca sayısal değerler girebilirsiniz.!", vbCritical, "DİKKAT"
    TextBox5.SetFocus
End If
End Sub

 

[sefer1975]

sanırım soruyu yanlış sordum
şunu sormak isdedim. Hem boş olmasını kontrol edecek hemde sayısal olmasını kontrol edecek. tabi bu bütün textboxlar için değil mesela 7 ve 8. textboxlar için. kodu denedim ama hata verdi. Teşekkürler

 

[sefer1975]

Birde acemiyim ben. Bir arkadaş formda böyle bişi vermiş, üzerinde çalışayım dedim. Yardımcı olmak ve öğrenmek maksadıyla. Arkadaş verileri girip; daha sonra hesaplama yaptırıp aynı ürünü sattığı kişiyi raporlayıp, borç alacak durumunu öğrenmek istiyor. Eğer yardımcı olacak arkadaş varsa ve paylaşırsa bende öğrenmiş olurum. Teşekkürler.

Sanırım tüm veriler girildikten sonra, yeni bir sayfada düşeyara yöntemi kullanılarak çözülebilir gibi geldi. Önerisi olan varsa lütfen yardımcı olsun. Teşekkürler

 

[Orion1]

Textbox7 ve Textbox8'i sorgular.

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 7 To 8
    If Not IsNumeric(Controls("TextBox" & i).Value) Then
        MsgBox "TextBox" & i & " Sayısal değer olmalı.!"
        Exit Sub
    End If
Next i
End Sub

 

[sefer1975]

Textbox7 ve Textbox8'i sorgular.

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 7 To 8
    If Not IsNumeric(Controls("TextBox" & i).Value) Then
        MsgBox "TextBox" & i & " Sayısal değer olmalı.!"
        Exit Sub
    End If
Next i
End Sub

çok teşekkürderim emeklerinize teşekkürler

 

[Orion1]

çok teşekkürderim emeklerinize teşekkürler

Rica ederim.
İyi çalışmalar.