vba eğer boşsa uyarı yazısı çıkar kaydetme

[Solaq]

arkadaşlar çok yeniyim ve aşağıdaki formüle istenilen textbox'a veri girilmediği zaman kaydetmemeli ve uyarı vermeli bunu aşağıdaki formüle nasıl uygularım.




Private Sub KAYDET_Click()
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me

End Sub

 

[hoguz2]

selam şu aşağıda tırnak içindeki elseif yazan blogu text box ya da combobox larına göre çoğalt,


Private Sub KAYDET_Click()

On Error GoTo sonsatir

'"""""""""""""""""""""""""""""""""""""""""""""""""
If Empty = TextBox1 Then
MsgBox "TextBox1 değer girilmedi."
GoTo sonsatir

ElseIf Empty = TextBox2 Then
MsgBox "TextBox2 değer girilmedi."
GoTo sonsatir

ElseIf Empty = TextBox3 Then
MsgBox "TextBox3 değer girilmedi."
GoTo sonsatir

End IF
'""""""""""""""""""""""""""""""""""""""""""""""""""
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me


Exit Sub
sonsatir:
End Sub

 

[Solaq]

Bahsettiğinizi yaptım uyarıyı veriyor fakat tamam dediğimde tabloyu tamamen kapatıyor.

İşlemleri tamamlarsam tüm bilgileri girerek kaydedersem veya kapat dersem kapatması gerek, uyarıdan sonra çıkan tablonun veri girmeye devam edilmesi için kalması için ne yapabilirim.

İlginiz için teşekkürler

 

[numan şamil]

Merhaba
Dener misiniz?

Private Sub KAYDET_Click()
If Empty = TextBox1 Then
MsgBox "TextBox1 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
If Empty = TextBox2 Then
MsgBox "TextBox2 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
If Empty = TextBox3 Then
MsgBox "TextBox3 değer girilmediği için işleminiz iptal edildi.", vbCritical
Exit Sub
   End If
RowCount = Worksheets("CARİ LİSTE").Range("A1").CurrentRegion.Rows.Count
Range("B1").Value = TextBox1.Value
Range("B2").Value = TextBox2.Value
Range("B3").Value = ComboBox2.Value
Range("B4").Value = ComboBox1.Value
Range("B5").Value = TextBox5.Value
Range("B6").Value = TextBox6.Value
Range("B7").Value = TextBox7.Value
Range("B8").Value = TextBox8.Value
ActiveWindow.SmallScroll Down:=-30
Range("B1:B8").Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto Reference:="R60000C1"
Selection.End(xlUp).Select
ActiveWindow.SmallScroll Down:=-9
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=-15
Application.CutCopyMode = False
Unload Me

End Sub

 

[Solaq]

konu çözüldü çok teşekkür ederim

diğer bir konu ise combobox ta seçim yapılmamışsa olmalı fakat combobox ta otomatik herhangi biri seçilmiş olarak geliyor.

Ben ise hiçbir seçim yapılmamış olarak gelsin boş geçerse de uyarı versin istiyorum.

 

[hoguz2]

konu çözüldü çok teşekkür ederim

diğer bir konu ise combobox ta seçim yapılmamışsa olmalı fakat combobox ta otomatik herhangi biri seçilmiş olarak geliyor.

Ben ise hiçbir seçim yapılmamış olarak gelsin boş geçerse de uyarı versin istiyorum.

yeni konu acarsan forum ve forumlardan yararlanacak kisiler icin daha iyi olur... yeni konu ile sor lütfen.

 

[Solaq]

tamamdır teşekkürler