makro ile uyarı mesajı

[puslukurt]

Merhaba;
bir userform üzerinde 3 adet textbox um var. textbox1 e sıra numarası yazıp commodbutaon1 e bastımmı textbox2 ve textbox3 e veritabanından bilgiler geliyor. textbox4 ve textbox5 e de veriler girmem gerekiyor. textbox4 ve textbox5 verileri girip kaydediyorum. bazen unutuyorum textbox1 e sıra numarası yazmadan textbox4 ve textbox5 veri girmeye kalkıyorum. Benim İstediğim textbox1 e veri girip cummodbutona basmadan beni uyarsın veya veri girmesin. Commotbutonun kodu aşağıdaki gibi

Private Sub CommandButton3_Click()
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = ComboBox1.Value
End Sub

 

[Necdet]

Merhaba,

Kodu inceleyiniz.

Private Sub CommandButton1_Click()
 
    If TextBox1.Value = "" Then
        MsgBox "Değer Girmelisiniz....", vbCritical, "Kızmaca..."
        Exit Sub
    End If
    
    'kodlarınız....
    'kodlarınız....
    'kodlarınız....
    'kodlarınız....
    'kodlarınız....
    
End Sub

 

[security]

Private Sub CommandButton3_Click()
If TextBox1.Value = "" Then
MsgBox "sıra numarası girmediniz...", vbCritical, "HATA"
Exit Sub
End If
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = ComboBox1.Value
End Sub

 

[Necdet]

Bir soru, iki yanıt.

Geri dönüş yine yok.

 

[puslukurt]

Teşekkür

Sayın Necdet Hocam çok çok teşekkür ederim daha şimdi kodları yerleştirdim size teşekkür yazayım derken siz benden erken davrandınız. Allah ne muradınız varsa versin. Elinize bilginize sağlık Allah sizleri başımızdan eksit etmesin