Private Sub CommandButton3_Click()
Dim Last As Integer
Last = Sheet2.Range("B10000").End(xlUp).Row + 2
Sheet2.Cells(Last, "B").Value = Sheet1.Range("D8").Value
Sheet2.Cells(Last, "C").Value = Sheet1.Range("D10").Value
Sheet2.Cells(Last, "D").Value = Sheet1.Range("D12").Value
Sheet2.Cells(Last, "E").Value = Sheet1.Range("D14").Value
Sheet2.Cells(Last, "F").Value = Sheet1.Range("J8").Value
Sheet2.Cells(Last, "G").Value = IIf(OptionButton1.Value = True, "ذكر", "انثئ")
Sheet2.Cells(Last, "H").Value = Sheet1.Range("J12").Value
Sheet2.Cells(Last, "I").Value = Sheet1.Range("J14").Value
Sheet1.Range("D8").Value = ""
Sheet1.Range("D10").Value = ""
Sheet1.Range("D12").Value = ""
Sheet1.Range("D14").Value = ""
Sheet1.Range("J8").Value = ""
Sheet1.Range("J12").Value = ""
Sheet1.Range("J14").Value = ""
OptionButton1.Value = False
OptionButton2.Value = False
MsgBox "تم ترحيل البينات.", vbInformation, "Done"
End Sub
ارجو مساعددتي لاعلم ماهو الخطاء
لقد حاولة اكثر من مرة ولاكن لام تنجح
ارجو منكم المساعدة
وشكراً,,,.
