ياسر خليل أبو البراء

الأخ الفاضل عمار ما قصدته بالمخرجات أي شكل النتائج المرجوة بعد تنفيذ الأكواد ..وقد تفضلت بطرح شكل النتائج في مشاركتك الأخيرة تفضل الملف التالي ..بعد الضغط على زر الأمر سيقوم الكود بنسخ الصف الذي به العناوين قبل كل اسم ..بعدها يمكنك تغيير ارتفاع الصفوف لتجعل الطباعة تطبع 10 موظفين في كل ورقة .. Salary Copy Title For Each Name.rar

أخي الحبيب محمد ممكن توضيح بشكل مفصل للطلب الثاني . ولو بمثال يكون أفضل

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

حل رائع يا ابن مصر ..بارك الله فيك وجزاك الله كل خير مرفق أيضاً إضافة AddIn تقوم بإضافة أمر باسم Remove styles في التبويب Home لتفعيل الأداة قم بفك الضغط عن الملف المرفق ، روح لخيارات الإكسيل ثم AddIns واضغط Go وحدد مكان الملف الذي قمت بفك الضغط عنه ثم اضغط أوك ستجد الأمر Remove Styles ظهر بجانب الأمر Cell Styles اضغط عليه وانتظر حوالي دقيقتين أو ثلاثة ثم بعد الانتهاء احفظ الملف وأغلقه وشوف حجمه .. RemoveStyles.rar

أخي الفاضل جرب الملف التالي عله يفي بالغرض Stock YK.rar

أخي الفاضل لم تكن المشكلة في تلك النقطة إنما في استخدام كلمة Range عند تحديد نطاق الطباعة ! راجع الكود الأصلي والكود الذي قمت بمشاركتك إياه

قم بالدخول على لوحة التحكم Control Panel ثم الإعدادات الإقليمية Regional and Language وآخر تبويب Administrative وانقر Change System Locale واختر من القائمة المنسدلة Arabic ثم قم بعمل ريستارت للجهاز ..

الأخ الكريم محمد صبحي إليك الكود التالي ..تعديل بسيط لينفذ طلبك الأول Sub Ahmd() Dim LR As Long Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("order"), CopyToRange:=Range("output"), Unique:=False On Error Resume Next With Sheets("البحث") .Rows("1:2").Hidden = True LR = .Cells(Rows.Count, 10).End(xlUp).Row .PageSetup.PrintArea = "$A$3:$J$" & LR .PrintPreview .Rows("1:2").Hidden = False .Range("A1").Select End With End Sub

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

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

عفواً يا ابن مصر ..لم أنتبه لمشاركتك والتمس العذر لأخيك فهو جديد عهد بالمنتدى ، ولا يعلم قواعد المنتدى بشكل جيد .. يرجى من الأخوة المشرفين تغيير العنوان .. تقبلوا تحياتي

أخي الكريم أهلا بك في المنتدى الأغر بين إخوانك يرجى إرفاق ملف لتوضيح شكل المخرجات ..

المهم يا شباب عايز أشوف إبداعاتكم .. في مساعدة الأخوة المبتدئين ..!! احنا زرعنا زرعة عايزين نشوف يوم الحصاااااااااد تقبلوا تحياتي

أخي الفاضل رغم إني مش من أنصار اللي بيسألوا أو يطلبوا من غير ملف مرفق .. إليك هذا الملف عله يفي بالغرض Insert Blank Row After Each Two Rows.rar

رائع يا أستاذي الحبيب بن علية إنك لمتمكن !! أعتقد الموضوع مكرر أخي السائل وتمت الإجابة عليه من قبل الأخ الحبيب ابن مصر عن طريق دالة معرفة

أخي وحبيبي في الله عبد الباري والله إنه لروعة .. وقال ايه متشاركش ؟!!! دا واجب عليا أنا أحذف مشاركاتي بعد اللي شفته باارك الله فيك وجزيت خير الجزاء

أخي الحبيب أهلا بك ومرحبا بين إخوانك ممكن تبدأ من هذه السلسلة البسيطة http://www.officena.net/ib/index.php?showtopic=56941

أخي الفاضل إسلام ممكن تفتح الباب (بس متنساش تقفله وراك عشان الجو برد) http://www.officena.net/ib/index.php?showtopic=56941

هذا حل آخر بأسلوب آخر المرفق يقوم بإظهار صندوق إدخال تقوم بإدخال عدد المرات التي تود طباعة النطاق ... ثم يقوم بالطباعة وفي كل مرة يزيد التاريخ بمقدار 1 Print Range Specific Number Of Times.rar

جرب الكود بهذا الشكل Sub HideRows() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Range("D14:D33") If Cell.Value = "" Then Cell.EntireRow.Hidden = True Next ActiveWindow.SelectedSheets.PrintOut Copies:=1 Cells.EntireRow.Hidden = False Application.ScreenUpdating = True End Sub تم إضافة سطر للطباعة ثم سطر لإظهار الصفوف المخفية

أخي الحبيب جرب الملف التالي Copy Range Specific Number Of Times.rar

جرب الملف التالي عرض السعر.rar

أخي الحبيب اضغط الملف ليكون بامتداد Rar ثم قم برفعه

ارفق ملفك أخي الكريم

ارفق ملفك اخي رامي للإطلاع عليه أولاً وابداء أية اقتراحات قد تكون مناسبة