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

مافيش بيانات فى 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

بسم الله الرحمن الرحيم للاخفاء استخد الكود التالى Sub Hid() Sheets("Sheet2").Visible = False End Sub و للاظهار استخدم الكود التالى Sub UnHid() Sheets("Sheet2").Visible = True End Sub و يمكنك تغيير اسم ورقه العمل مرفق ملف السلام عليكم Hid.rar

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

بسم الله الرحمن الرحيم مرفق داله جاهزه وجدتها فى خزينتى للتفقيط الى دولار مرفق ملف السلام عليكم تفقيط دولار.rar

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

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

بسم الله الرحمن الرحيم لتعطيل مفتاح ALT +F11 استخدم الكود التالى Sub Disable() Application.OnKey "%{F11}", "" End Sub مرفق ملف السلام عليكم Disable.rar

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

بسم الله الرحمن الرحيم جرب الكود التالى Dim i_Sheet, i_Count, cnt As Integer Sub DOIT() Range("A11:J20").ClearContents cnt = 11 For i_Sheet = 1 To 3 For i_Count = 4 To 21 If [D7] = Sheets(i_Sheet).Cells(i_Count, "A") Then Cells(cnt, "A") = Sheets(i_Sheet).Cells(i_Count, "B") Cells(cnt, "B") = Sheets(i_Sheet).Cells(i_Count, "C") Cells(cnt, "D") = Sheets(i_Sheet).Name Cells(cnt, "E") = Sheets(i_Sheet).Cells(i_Count + 1, "V") cnt = cnt + 1 End If Next i_Count Next i_Sheet End Sub مرفق ملف السلام عليكم Find.rar

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

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