مهند الزيدي

تفضل أخي العزيز هذا الكود واكمل انت بقية الصفحات والنطاق الذي تريده .. مع تقديري Sub Clear_Sheet() Sheets("Sheet1").Range("A2:O1000").ClearContents End Sub

أخي العزيز ياسر .. شكرا لإستجابتك على طلبي .. لك أمتناني وإحترامي الكثير.. أخي الغالي ... تمت التجربة على ملفك الرائع في الموضوع..لقد عملت معادلة في أحد الصفحات في الملف الأصلي ..وعندما وضعت التعديل الذي عملته ..تم إخراج الصفحة وكانت الخلية مرتبطة بالملف الاصلي ..وتمت العملية في الملف الأصلي ..أي أن المعادلة في الملف الإصلي تحولت إلى قيمة .. علما أني قمت بتعديل الكود حسب ماوجهتني هكذا For Each SH In ThisWorkbook.Sheets SH.Copy SH.Cells.Copy SH.Cells.PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Next وأرجوا أن أكون قد وفقت في شرح المشكلة .. وجزاك الله خيرا ...,آسف على كثرة الأسئلة .. ونصيحة لكل من في المنتدى زيارة مدونة الاخ ياسر لان بها مواضيع شيقة ومفيدة ..واتمنى ان يحفظ الله الاخ ياسر لما له من فضل في هذا المنتدى الكبير .

وفقك الله لك خير أخي ياسر ... وجعله في ميزان حسناتك.. أخي ياسر إذا أردنا أن يكون انشطار الصفحات بدون معادلات اي أن تكون الصفحة تحتوي على القيم فقط ولاتحنوي على المعادلات المرتبطة بالصفحات الإخرى داخل المصنف الأصلي إستخدمت الكود التالي اكن لم ينفع أرجو الحل وفتح موضوع على مدونتك الرائعة ..الكود SH.UsedRange.Value = SH.UsedRange.Value وفقك الله للصالحات ... وجميع من في المنتدى

وفقكم الله لكل خير .. وجزاكم الصحة والعافية لما تقدموه لنا من مواضيع شيقة

تفضل أخي رابط المضوع

الحمد لله ... ممكن ترفع الملف الأخير .. ليستفاد منه من في المنتدى ...وشكرا

اخي العزيز هذه بداية الحل انشئ صفحة جديدة وسمها "print" .. وضع الكود في حدث زر الطباعة Private Sub CommandButton1_Click() With Sheets("print") .[B2] = Me.ComboBox1 .[B6] = Me.TextBox14 .[D6] = Me.TextBox15 .[F6] = Me.TextBox16 .printout End With End Sub

شكرا للأخ ياسر .. جزاك الله خيرا

شكرا للإخوة الأعزاء " سليم " , " عبد السلام " .. وفقكم الله لكل خير .. تم المطلوب .. شكرا لك أخي العزيز " ياسر " على السؤال .. اطال الله في عمرك ... وحفظ الله جميع من في المنتدى الرائع ..ورزقهم الصحة والعافية في الدين والدنيا

السلام عليكم ... ممكن عمل كود يقوم بأخفاء الصفوف التي قيمة خلية المجموع فيها يساوي صفر ..كما في الطريقة المتبعة لإخفاء وإظهار الإعمدة بزر واحد في Sheet1 ..الشرح أكثر داخل المرفق... مع شكري وتقديري لك أخي العزيز ,. ولكل من في المنتدى الرائع Using IIF To Show Hide Rows.rar

شكرا لك أخي العزيز " سليم " وفقك الله لكل خير وجعله في ميزان حسناتك

أخي العزيز " سليم " أتمنى أن أكون خفيف الظل لقد تعبت معي كثيرا ...أتمنى من الله أن يوفقك يجزيك خيراً .. جربت الإدخال تمام ماعدا الإدخال من تسلسل 276201 الى 276250 يقوم بحذف صفوف من شيت البيانات ..جرب الطباعة بالتسلسل المذكور أكثر من مرة وسترى أنه دائما يحذف صفوف متفرفة .. وممكن عمل تخطيط حدود للجدول في شيت test .. مع شكري وتقديري لك أخي العزيز

شكرا لك أخي العزيز " سليم " .. عند تطبيق التعديل وكتابة اول وصل واخر وصل (50) وصل يقوم بحذف صف من شيت البيانات وتكون شيت TEST بهذه الصورة المرفقة .. واتمنى أن لا اكون أثقلت عليك

شكرا لك اخي العزيز " سليم " .. وفقك الله لكل خير .. بقي جزء صغير وهو إضافة صف المجموع الكلي لل ( 50 ) وصل كما مبين .. وذلك كما موضح في شيت الطباعة وبنفس تنسيق الحدود الموجود فيها لسطر المجموع .. وهل يمكن أن يكون الترحيل لشيت الطباعة بدلا من شيت test ....وفقك الله لكل خير

للرفع

للرفع

السلام عليكم .. ممكن عمل كود بحيث يقوم بتكرار أول صف بعد كل صف تسلسل كما مبين في المرفق حيث ان الشيت 1 هي الصفحة الرئيسية والشيت 2 هي النتيجة او المطلوب كما مبين في الصورة المرفقة ايضا مع شكري وتقديري تكرار اول صف بعد كل تسلسل.rar

شكرا لك أخي العزيز " سليم " .. وفقك الله لكل خير .. ولكن أريد عند إدخال التسلسل من الى في الفورم تظهر النائج في شيت الطباعة كما مبين في الشيت ..وكذلك نفس تنسيق الجدول في شيت الطباعة .. أي أن النتيجة هي ورقة الطباعة كما موضح في الصورة ... مع شكري وتقديري..

للرفع

للرفع

السلام عليكم .. ممكن عمل كود للفورم بحيث يقوم بطباعة من رقم وصل الى رقم ثاني ( 50 ) وصل ..والشرح داخل المرفق .. وفقكم الله لكل خير طباعة محددة.rar

شكرا لك اخي العزيز .... وفقك الله لكل خير

السلام عليك أخي العزيز .. هل من الممكن شرح كيف يمكن تغيير شكل اطار الخلية كما في الكود Borders.Value = 1 اي ماهي الارقام لكل تنسيق في ال borders للدلالة على نوع التنسيق في الكود كما في الصورة

شكرا لك اخي العزيز تم المطلوب وفقك الله لكل خير

أخي العزيز .. أشكرك على سعة صدرك .. المطلوب هو ان يكون عند طباعة نتيجة البحث في نهاية الجدول المطبوع المجموع الإجمالي للمبالغ كما وضحت في اول صورة مرفقة أي يكون الجمع عن طريق الكود بعد اخر صف في نتيجة البحث كما في الأمثلة التالية كما موضح في صورة رقم 1 و2.. مع شكري وامتناني أخي العزيز