Cevap Hayır ise Kaydetmesin.

[Galus]

Private Sub CommandButton2_Click()
For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN " & Sheets("YEDEK").Cells(1, l).Value & " GİRİNİZ.", , "DENEME"
Exit Sub
End If
Next
son = Sheets("YEDEK").Range("A65536").End(xlUp).Row + 1
For T = 1 To 7
Sheets("YEDEK").Cells(son, T).Value = Controls("TextBox" & T).Text
Next
Call listele
CVP = MsgBox(TextBox3.Text & " YENİ KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "DENEME")
End Sub
------------------------------

Mesajbox evet/hayır diye sormasına rağmen Hayır da desen Evet de desen bilgiler son satıra kaydediliyor. Cevap Hayır ise bilgilerin kaydını nasıl önleriz?

Teşekkürler..

 

[Husgvarna]

Private Sub CommandButton2_Click()
Mesajbox evet/hayır diye sormasına rağmen Hayır da desen Evet de desen bilgiler son satıra kaydediliyor. Cevap Hayır ise bilgilerin kaydını nasıl önleriz?

Teşekkürler..

For l = 1 To 6
If Controls("TextBox" & l).Text = "" Then
MsgBox "LÜTFEN  " & Sheets("YEDEK").Cells(1, l).Value & "  GİRİNİZ.", , "DENEME"
Exit Sub
End If
Next
son = Sheets("YEDEK").Range("A65536").End(xlUp).Row + 1
For T = 1 To 7
CVP = MsgBox(TextBox3.Text & "  YENİ KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "DENEME")
If CVP=vbYesNo Then 

Exit Sub
End if
Sheets("YEDEK").Cells(son, T).Value = Controls("TextBox" & T).Text
Next
Call listele
End Sub

Eğer "Call listele" "Hayır" denmesine rağmen yapılacak işlemse onu
boşluğa alın

 

[Galus]

Sayın Husgvarna,

Çok teşekkürler. Saygılarımla ...

 

[Galus]

Sayın Husgvarna,

"Call listele" sildikten sonra kaydetmiyor ama başka bir butona falan basınca yine kaydediyor.

 

[Husgvarna]

"Call listele" sildikten sonra kaydetmiyor ama başka bir butona falan basınca yine kaydediyor.

"Call listele" silmeyecektiniz.
Mesaj da "HAYIR" butonu tıklansa bile altında yapılması gereken işlemler varsa;
aşağıdaki kodda bulunan 'Call listele önündeki tırnağı kaldırın.

'.......
'..........kodlarınız

For T = 1 To 7
CVP = MsgBox(TextBox3.Text & "  YENİ KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "DENEME")
If CVP=vbYesNo Then 

For c = 1 To 7
Controls("TextBox" & c).Text = ""
 next  
                   
'Call listele

Exit Sub
End if
Sheets("YEDEK").Cells(son, T).Value = Controls("TextBox" & T).Text
Next
Call listele
End Sub

Textbox ları boşaltmak için
yukarıdaki gibi aşağıdaki kodu ekleyip deneyin.

For c = 1 To 7
Controls("TextBox" & c).Text = ""
 next

Örnek dosya eklerseniz daha kolay olabilir.