naderss12

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 ارجو مساعددتي لاعلم ماهو الخطاء لقد حاولة اكثر من مرة ولاكن لام تنجح ارجو منكم المساعدة وشكراً,,,.