السلام عليكم
مجهود تشكر عليه
لكون هذا الكود يمكن ان يختصر
Private Sub Comm_last_Click()
LastRw = Sheet2.Range("C65536").End(xlUp).Row
LastName = "C" & LastRw
Combo_emp.Value = Sheet2.Range(LastName)
End Sub
الى
Private Sub Comm_last_Click()
Combo_emp.Value = Sheet2.Range("C65536").End(xlUp).Row
End Sub
السلام عليكم
في الرابط التالى صوره توضح اين توجد
ادخل الى محرر البيسك من tools >References
ستظهر لك شاشه مثل الوجوده في الرابط
عطل مراجع ال missing
http://www.cpearson.com/excel/MissingReferences.aspx
السلام عليكم
من شريط الادوات " تنسيق " هناك ايقونه خاصه لذلك
او من
خصائص الورقه من الفيجوال بيسك
Display right to left true or false
او من خلال الكود
ActiveWindow.DisplayRightToLeft = False