تعديل الاكواد الخاطئة vba

[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