abdallah saeed

السلام عليكم كنت احاول ان اصمم واجهه لشاشة ادخال بيانات من خلال شيت اكسيل من ورقة الى ورقة اخري كما فى الصور المرفقه و قمت بكتابة الاكواد كما هو مرفق مع العلم اني مبتدئي و ان المشكلة هي فى اختيار الشيك بوكس عندما ضع علامة صح يقم باحتساب ضريبة فى خلية من خلية اخري و هكذا الوضع فى شيك بوكس اخر ارجو المساعدة اذا امكن و خالص الشكر و التقدير مسبقا مرفق شيت الاكسيل ... طبعاً مشاركة مكررة على الرغم اننا نبهنا كثيراً على هذا الأمر , فقد تم بالفعل حذف المشاركة الأخرى و TEXT WORD بالاكواد اللى حاولت اعملها Private Sub CommandButton1_Click() If Sheet1.Range("I8").Value = "" Then MsgBox "يرجى ادخال كافة البيانات ", vbCritical, "تنبيه" Exit Sub End If Dim LR As Integer LR = Sheet2.Range("A5000").End(xlUp).Row + 1 Sheet2.Cells(LR, "A").Value = Sheet1.Range("I8").Value Sheet2.Cells(LR, "B").Value = Sheet1.Range("I10").Value Sheet2.Cells(LR, "D").Value = Sheet1.Range("I12").Value Sheet2.Cells(LR, "C").Value = IIf(OptionButton1.Value = True,"مشتريات","مبيعات","حركة صندوق","مردودات مبيعات","مردودات مشتريات") Sheet2.Cells(LR, "G").Value = Sheet1.Range("L8").Value Sheet2.Cells(LR, "I").Value = Sheet1.Range("L10").Value Sheet2.Cells(LR, "J").Value = Sheet1.Range("L12").Value Sheet2.Cells(LR, "P").Value = "=SUM(M3:O3)" Sheet2.Cells(LR, "H").Value = Sheet1.Range("I18").Value Sheet2.Cells(LR, "N").Value = IIf(CheckBox1.VALUE=TRUE," Sheet2.Cells(LR, "I")*14%")" Sheet2.Cells(LR, "E").Value = IIf(CheckBox1.VALUE=TRUE,"نعم" Sheet2.Cells(LR, "O").Value = IIf(CheckBox2.VALUE=TRUE,"Sheet2.Cells(LR, "I")*1%")" Sheet2.Cells(LR, "F").Value = IIf(CheckBox2.VALUE=TRUE,"نعم" MsgBox "تم اضافة كافة البيانات بنجاح", vbInformation, "تأكيد" Sheet1.Range("I8").Value = "" Sheet1.Range("I10").Value = "" Sheet1.Range("I12").Value = "" OptionButton1.Value = "" OptionButton2.Value = "" OptionButton3.Value = "" OptionButton4.Value = "" OptionButton5.Value = "" Sheet1.Range("L8").Value = "" Sheet1.Range("L10").Value = "" Sheet1.Range("L12").Value = "" CheckBox1.VALUE="" CheckBox2.VALUE="" Sheet1.Range("I18").Value = "" End Sub Private Sub CommandButton2_Click() End End Sub حسابات.rar