15-07-19, 11:03 PM
أنا عامل برنامج خاص بالمحل يرحل البيانات لأكثر من صفحة
كنت حاط الرسالة عند الضغط على الزر ( تم حفظ البيانات )
كيف احط الرسالة انه يتأكد من الحفظ اذا متأكد يضغط yes وتترحل البيانات للصفحات
واذا ضغط No ماتترحل البيانات
هذا نص البرمجة
كنت حاط الرسالة عند الضغط على الزر ( تم حفظ البيانات )
كيف احط الرسالة انه يتأكد من الحفظ اذا متأكد يضغط yes وتترحل البيانات للصفحات
واذا ضغط No ماتترحل البيانات
هذا نص البرمجة
كود :
Sub post()
If Range("B1").Value = False Then
MsgBox "البيانات غير مكتملة"
Else
A = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
B = Sheet3.Cells(1, 1).CurrentRegion.Rows.Count + 1
C = Sheet4.Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheet2.Cells(A, 1) = Range("B1")
Sheet2.Cells(A, 2) = Range("B2")
Sheet2.Cells(A, 3) = Range("B3")
Sheet2.Cells(A, 4) = Range("B4")
Sheet2.Cells(A, 5) = Range("B5")
Sheet2.Cells(A, 6) = Range("B6")
Sheet2.Cells(A, 7) = Range("B7")
Sheet3.Cells(A, 1) = Range("B1")
Sheet3.Cells(A, 2) = Range("B2")
Sheet3.Cells(A, 3) = Range("B3")
Sheet3.Cells(A, 4) = Range("B4")
Sheet3.Cells(A, 5) = Range("B5")
Sheet3.Cells(A, 6) = Range("B6")
Sheet3.Cells(A, 7) = Range("B7")
Sheet4.Cells(A, 1) = Range("B1")
Sheet4.Cells(A, 3) = Range("B3")
Sheet4.Cells(A, 4) = Range("B4")
Sheet4.Cells(A, 5) = Range("B5")
Sheet4.Cells(A, 6) = Range("B6")
Sheet4.Cells(A, 7) = Range("B7")
Range("B1") = ""
Range("B2") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
Range("B1") = ""
Range("B2") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
Range("B1") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
MsgBox "تم حفظ البيانات"
End If
End Sub