omar elhosseini

الاخ احمد بن ابراهيم شاهد المرفق Omar_1.rar

الاخ abajhnoon استبدل حدث Workbook_Open بهدا الحدث Private Sub Workbook_Open() ' Shift_Down_Then_Open If Sheets("Main").Range("B1") = True Then GoTo GoGO ' Application.EnableCancelKey = xlDisabled Application.Visible = False Call Module1.HideAllSheets UFMain.Show Call Sh_Hi_Toolbar.hide_toolbar Workbooks.Application.Visible = True GoGO: Sheets("Main").Select Range("A1").Select ActiveWindow.Zoom = True Sheets("Main").Range("B1") = False ' End Sub وضع هذا الكود في موديول Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Sub Shift_Down_Then_Open() ' Sheets("Main").Range("B1") = False If GetKeyState(16) < 0 Then Sheets("Main").Range("B1") = True Else Sheets("Main").Range("B1") = False End If ' End Sub واخبرني بالنتيجة

يرجي عدم فتح اكثر من موضع لنفس المشاركة

يرجي عدم فتح اكثر من موضع لنفس المشاركة

الاخ زياد777 شاهد المرفق Omar_3.rar

الاخ صلاح الصغير شكرا لك اخي كلنا في خدمة الاخوة الاخ ياسر خليل أبو البراء سأحاول بأذن الله افضل داله في المجموعة والتي اعمل عليها دائما هي دالة ابو هاني AbuHani المثال رقم 11 او 13

الاخ ياسر خليل أبو البراء المرفق ليس به جديد سوي الاضافة التي اشرت اليها اما ملف دالة التفقيط الخاصة بالأخ هادي لدي ملف مجمع للمجموعة كامله التفقيط ###.rar

الاخ ياسر خليل أبو البراء شكرا لك جل من لا يسهو الاخ صلاح الصغير شاهد المرفق Omaar_7.rar

الاخ زياد777 شاهدالمرفق Omar_1.rar

الاخ زياد777 حسما للموضوع شاهد المرفق Omar_1.rar

الاخ صلاح الصغير النسخة الاسرع Omar_6.rar

الاخ صلاح الصغير شاهد المرفق لعل وعسي يكون نهاية المطاف ايضا الكود يستغرق بعض الوقت ربما لاحقا يتم تسريعة Omar_5.rar

الااخ صلاح الصغير الفرق بين ورقة2 و ورقة3 ورقة2 النتيجة لأعمدة محددة فقط من قاعدة البيانات اما ورقة3 النتيجة لكامل قاعدة البيانات وهي اعم واشمل من ورقة2 وتتيح لك اخفاء الاعمدة التي لا تتريد اظهارها اما ملاحظة الفرق يمكنك ملاحظة الفرق في طور معاينة قبل الطباعة لو امعنت التدقيق فيها ارفع قبعتي لك لصبرك واصرارك للوصول لما تريد علي مدي 40 يوم تحياتي لك اخي صلاح الصغير

الاخ حسين22 الشكر موصول للأخ أبو حنــــين شاهد المرفق Omar_4.rar

الاخ حسين22 جرب هذا المرفق لعل وعسي يؤدي المطلوب Omar_3.rar

الااخ صلاح الصغير شاهد المرفق لعل وعسي يكون نهاية المطاف Omar_3.rar

الاخ حسين22 بكود الاخ أبو حنــــين نكون وصلنا الي حل المشكلة فقد كنا ننسخ كامل الصفحة فلا يعمل الكود معك الان يمكن ل الاخ أبو حنــــين استخدام اخر ملف لي بأن يغير فقط طريقة النسخ فيه الي نسخ المدي بدلا من الصفحة

الاخ أبو حنــــين الاخ حسين22 يجب تبديل مكان السطرين Set My_Excel = Workbooks.Add Range("A1:H1000").Copy ليصبح Range("A1:H1000").Copy Set My_Excel = Workbooks.Add والا الملف المنتج يكون فارغ

الاخ حسين22 علي فكرة اخي الملف المقدم من الاخ أبو حنــــين والمقدم من طرفنا يعمل كل منهما بصورة جيدة حول تجربة اي منهما علي جهاز اخر واخبرنا بالنتيجة

اخي العزيز انت تعمل علي اوفيس النسخة الفرنسية فهل جربت الملف علي جهاز اخر

الأستاذ / محمد الدسوقى شاهد المرفق Omar_1.rar

الملف به مشكله اعد رفعة مره ثانية

الاخ حسين22 جرب المرفق Omar_2.rar

الاخ صلاح الصغير اولا المطلوب هو التعديل علي ملف ذو ورقة محمية ثانيا لا يمكن التعديل علي ملف محمي من قبل الغير ثالثا وهو الاهم انه من داخل لاكسيل لا يمكن فك حماية ملف اكسيل

الاخ حسين22 شاهد المرفق Omar_1.rar