كود تأكيد قبل الحفظ

[حراثي تواتي]

السلام عليكم ورحمة الله وبركاته

اريد من الاخوة الافاضل كود لتأكيد الاجراء قبل الحفظ او التعديل  العبارة " هل تريد الحفظ "  " نعم "  " لا "

 

تواتي.rar

تم تعديل مارس 22, 2018 بواسطه حراثي تواتي

[حراثي تواتي]

لو تكرمتم علينا بالمساعدة فضلا و ليس امرا سنكون لكم شاكرين

[shreif mohamed]

وعليكم السلام

تفضل

 

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
On Error Resume Next
Sheets(1).Visible = True
Dim iRow As Long
Dim ws As Worksheet
Set ws = Sheets(1)
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
TextBox1.SetFocus
MsgBox " هل تريد حفظ البيانات ", vbYesNo
If vbYes Then
ws.Cells(2, 2).Value = Me.TextBox1.Value
ws.Cells(5, 3).Value = Me.TextBox2.Value
ws.Cells(3, 4).Value = Me.TextBox3.Value
Else
TextBox1.SetFocus
End If
On Error GoTo 0
End Sub

 

تم تعديل مارس 23, 2018 بواسطه shreif mohamed