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

استبدل هذا الجزء ActiveWorkbook.Worksheets("Cus1") بهذا الجزء ActiveSheet وفقط

أخي الكريم اطلعت على الملف ولم أفهم المطلوب بشكل واضح ما شرحته يقوم به الكود المسمى KH2 حيث يتم نسخ الورقة المسماة Temp.IBC ثم تسمى الورقة الجديدة باسم القيمة في الخلية A2 .. الترحيل من أي الأوراق ؟ الإجابة : الأوراق التي تبدأ بالحروف IBC إلى أين سترحل البيانات ؟ إلى أي ورقة عمل؟ وما هي كيفية الشكل النهائي بعد الترحيل ... يفضل وضع بعض البيانات في الجداول في الأوراق المعنية ووضع ورقة عمل للبيانات المرحلة مع وضع بعض النتائج المتوقعة ليسهل تقديم المساعدة من قبل الأخوة الأعضاء

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

اطلع على الرابط التالي .. http://www.excel-easy.com/vba/examples/userform-with-multiple-pages.html

اطلع على المرفق في الرابط التالي لعله يفيدك من هنا

بارك الله فيكم إخواني الكرام وجزيتم بمثل ما دعوتم لي

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

الحمد لله أن تم حل المشكلة .. تقبل تحياتي

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

الأفضل إرفاق النتائج المتوقعة ليسهل فهم المطلوب .. وهل التلوين لكل رقم بلون مختلف أم كل التكرارات تتم بنفس اللون؟

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

وعليكم السلام جرب الدالة Round وليست الدالة RoundUp =ROUND(A1*1.5%,2)

جزاكم الله خيراً أخي الغالي محمود الشريف ومشكور على كلماتك الطيبة والرقيقة في حقي .. تقبل وافر تقديري واحترامي

ضع المعادلة التالية في الخلية J5 =SUMPRODUCT(($A$2:$A$24=$I5)*($B$2:$B$24=J$4)) ثم قم بسحبها لأسفل ولليمين إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

Sub Printing() 'تعريف متغير من النوع رقم صحيح لاستخدامه في الحلقة التكرارية Dim i As Long 'حلقة تكرارية من الرقم 1 وهو رقم أول طالب 'ونهاية الحلقة التكرارية هو عدد إجمالي الطلاب 'حيث يتم الحصول على هذا العدد من خلال إجمالي صفوف النطاق 'يمكن الإطلاع على النطاق من خلال [name1a] المسمى 'حيث يمثل [Name Manager] ثم [Formulas]التبويب 'والنطاق ديناميكي أي يتغير بإضافة طلاب جدد [D3:D26] النطاق For i = 1 To [name1a].Rows.Count 'في ورقة العمل المراد طباعتها ستتغير في كل حلقة تكرارية [D3] الخلية 'حيث تم استخدام الدالة إندكس للحصول على الطلاب بالترتيب 'في أول حلقة تكون قيمة المتغير تساوي 1 فيأتي بالطالب رقم 1 'وفي الحلقة التالية تتغير قيمة المتغير لتصبح 2 فيأتي بالطالب رقم 2 وهكذا [D3] = Application.Index([name1a], i) 'بمجرد تغير الطالب يتم إعطاء أمر بطباعة الورقة النشطة ActiveSheet.PrintOut Copies:=1 'الانتقال للحلقة التالية أي الطالب التالي Next i 'في نهاية المطاف يتم إرجاع قيمة الخلية لتساوي اسم أول طالب [D3] = Application.Index([name1a], 1) End Sub

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

وجزيت خيراً بمثل ما دعوت لي أخي الكريم والحمد لله الذي بنعمته تتم الصالحات

لما الطمع أخي الكريم ناصر في نفس الموضوع اطرح موضوع جديد لكل طلب جديد ..هذا أفضل وأيسر للباحث فيما بعد

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

وعليكم السلام Sub CreatePDFFilesForSpecificSheets() Dim ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each ws In Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet6")) On Error Resume Next Fname = ThisWorkbook.Path & "\" & ws.Range("A1").Value & " " & Replace(ws.Range("A2").Value, "/", "_") & ".pdf" ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

هل قمت بتغيير الامتداد بشكل يدوي ؟ جرب تغيير الامتداد بشكل يدوي لربما تكون المشكلة في تلك النقطة

أخي الكريم مفيش حاجة اسمها موضوع صعب ، لكن فيه حاجة اسمها شرح مش واضح أو مفيش تفاصيل كفاية حاول دايماً يكون فيه شرح مفصل + نتائج متوقعة + إرفاق ملف وبعض الصور للتوضيح (وشوف الردود في الموضوع هتكون إزاي) وإنت بنفسك جربت قبل كدا موضوعات طرحتها وكانت الاستجابة فيها سريعة ويمكن كانت أصعب من موضوعك ده ، لكن الفكرة دائماً في التوضيح الأمثل

وعليكم السلام قم بطرح طلبك في موضوع مستقل لتجد استجابة بشكل أفضل

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

وعليكم السلام أخي الكريم ارفق ملف للعمل عليه بدلاً من الصورة .. الملف أسرع في الاستجابة من قبل الأخوة الأعضاء