هادى محمد المامون سالم

مافيش بيانات فى H6

السلام عليكم الموضوع بقاله اكتر من 13 سنه تفضل اخى الكريم الروابط الجديده برنامج إلى صلاتي http://www.mediafire.com/file/91bun37a521g537/ela_salaty_setup.zip/file

صح الكلام

السلام عليكم تم التعديل كما هو مطلوب مرفق الملف بعد التعديل Find Date 01.xls

السلام عليكم .... ستجد الحل ان شاء الله بالملف المرفق Find Date.xls

السلام عليكم ستجد الحل ان شاء الله بالملف المرفق Seclect Date.xlsb

ممكن تستخدم الكود التالى Sub my_fill() cmb_Fill.Clear For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row cmb_Fill.AddItem (Cells(i, "A")) Next i End Sub و المجال مفتوح و قابل للتعديل مرفق ملف Fill_01.xls

ممكن تستخدم الكود لتقفل الملف ب مفتاح F2 و تقفل الاكسيل بمفتاح F3 مرفق ملف Sub Auto_Open() Application.OnKey "{F2}", "mod_Auto_Open.Close_File" Application.OnKey "{F3}", "mod_Auto_Open.Close_Excel" End Sub Sub Close_File() ThisWorkbook.Save ThisWorkbook.Close End Sub Sub Close_Excel() ThisWorkbook.Save Application.Quit End Sub Auto Close.rar

لقد ارسلت لحضرتك ميل

الشكر لله

بسم الله الرحمن الرحيم ربنا يبارك فيك السلام عليكم

بسم الله الرحمن الرحيم اخى حمادة باشا ربنا يبارك لك السلام عليكم

بسم الله الرحمن الرحيم مشكور اكواد رائعه السلام عليكم

بسم الله الرحمن الرحيم لعمل combobox ل Userform استخدم الكود التالى Private Sub UserForm_Activate() cmb1 cmb2 End Sub Private Sub cmb1() For i = 3 To 6 ComboBox1.AddItem (Sheets("Sheet1").Cells(i, "C")) Next i End Sub Private Sub cmb2() For i = 3 To 5 ComboBox2.AddItem (Sheets("Sheet1").Cells(i, "J")) Next i End Sub مرفق ملف السلام عليكم قائمة منسدلة_1.rar

بسم الله الرحمن الرحيم استخدم الكود التالى لمعاينه الطباعه Sub PrintPrevie() Dim RNG As Range Set RNG = Range("A5:P1005") RNG.PrintPreview End Sub و للطباعه استبدل RNG.PrintPreview الى RNG.Print مرفق ملف السلام عليكم 2حساب العملاء.rar