omar elhosseini

شاهد المرفق المصنف1.xlsm

شاهد المرفق اخي تم حذف الخلايا المدمجة في جدول الاوائل المصنف1.xlsm

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

اخي ضع الكود التالي في حدث التغير Private Sub Worksheet_Change(ByVal Target As Range) ' Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. ' Set KeyCells = Range("A1:C10") lastrow = æÑÞÉ11.Cells(Rows.Count, "b").End(xlUp).Row Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow) If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Display a message when one of the designated cells has been changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End If ' End Sub شاهد المرفق المصنف1.xlsm

شاهد المرفق اخي مثال النسخ.xlsm الباك اب هو فلدر في نفس مسار الملف

اخي شاهد المرفق ولا تنسي ضغط زر Page_Setup كلما غيرت حجم أي جدول Print_2.xlsm

شاهد المرفق اخي DATE (1).xlsm

اخي ..لقد دققت في الكود الخاص بك جيدا وعملت كود يعطي نفس النائج ولكن بطريقة اخري نفذ الكود الخاص بي ونفذ الكود الخاص بك ودقق في النتائج ستجد انهم متطابقين تمام بعد عن تقنية ADO وهو سريع جدا ..واخبرنى هل زالت المشكلة ام لا المصنف4.xlsm

الوينذوز عندي به بعض المشاكل ..سيكون الاتصال غير جيد ..سأخبرك بعد بضعة أيام حتي اركب ويندوز جديد وسأخبرك لعمل اتصال

office 2016

اخي استخدم دالتي المسثحدثة VLOOK_Pic1 التي تم نشرها في 2009-وهذا تطبيق لها علي ملفك نموذج.rar وهذا رايط موضوع دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم

اتبعت الخطوات ولم يفتح معي في مثيل له

نعم اخي الكود يكيف نفسة حسب مساحة الجدول أيا كانت انسخ Module1 and Module2 الي ملفك علي شرط توجية الازار الي نفس الماكروهات وأيضا الشرط الاهم هو ان أسماء زري المعاينة قبل الطباعة و الطباعة أسمائهم علي التوالي Bt_2 and Bt_3 وان تكون الازرار من عناصر تحكم النموذج وليس من عاصر تحكم Activex او غير أسمائهم حسب ما تصنع الازرار في الكود التالي مع ملاجظة عناويين خلايا من يوم الي يوم في الكود هذه الاسطر التي يجب ان تصحح خسب ما تفعل From_Day = Range("N5") To_Day = Range("O5") و If Application.Caller = "Bt_2" Then و If Application.Caller = "Bt_3" Then في الكود التالي Sub Print_Preview_And_Print() ' From_Day = Range("N5") To_Day = Range("O5") ScreenOff For Num_Day = From_Day To To_Day If Application.Caller = "Bt_2" Then Call Hide_Rows(Num_Day) ActiveSheet.PrintPreview End If If Application.Caller = "Bt_3" Then Call Hide_Rows(Num_Day) ActiveSheet.PrintOut End If Next ActiveSheet.Cells.EntireRow.Hidden = False ScreenOn ' End Sub

اخي شاهد المرفق استخدم زر Page_Setup قبل الطباعة لتجهيز الشيت للطباعة ..اما للطباعة او المعيانة قبل الطباعة استخدم ازراري ولا تستخدم ازرار الاكسيل Print.xlsm

الملف الأول شيت 2 عمود دي لا توجد فيه معادلات DONE.xlsm

شاهد المرفق تسجيل التاريخ.xlsm

اخي يجب تغير الطباعة من xlLandscape الي xlPortrait شاهد المرفق Print.xlsm

لا ادري ما السبب ربما يستطيع احد الاخوة مساعدتك

اعد الكتابة العربي في سطر والانجليزي في سطر ...لعدم التداخل DONE.xlsm

جرب العمل علي الملف مرة اخري فهو يعمل بشكل سلس

لا يفتح عندي في مثيل له

تفضل اخي ..ويعمل أيضا عند حذف التاريخ DONE.xlsm

شاهد المرفق اخي ولطباعة جدول 5 فقط اعمل كما في الصورة او اذا اردت طباعة جدول يوم 2 حتي جدول يوم 4 استخدم من 2 الي 4 Print.xlsm

اخي شاهد المرفق DONE.xlsm

اخي شاهد المرفق لاحظ الاتي : 1 - للبحث عن طريق الكود ادخل الكود في خلية البحث 2 - للبحث في أصناف شركة معينة اختر اسم الشركة من خلية الشركة ستطهر لك أصناف الشركة اسفل الجدول 3 - امامك الان اختيرين اذا كان الصنف ظاهر امامك كليك علي اسم الصنف لنقل بياناته الي ناتج البحث اما اذا كان الصنف اسفل حدود الشاشة اكتب حرف او حرفين من اسم الصنف حتي بظهر امامك ثم كليك علي اسم الصنف store prices - Copy.xlsm