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

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

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

أخي الكريم صاحب الموضوع رأيت منذ قليل رابط بنفس الخصوص ..رجاء أعطني رابط الموضوع الآخر لكي يتم حذفه إذا كان لنفس الطلب تقبل تحياتي

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

تأكد أخي الكريم من التبويب Formulas ثم Calculaton options وتأكد أن الخيار هو Automatic وليس Manual وأيضاً لا تنسى الضغط على Ctrl + Shift + Enter لأنها معادلة صفيف كما أخبرك أخي سليم تقبل تحياتي

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

وعليكم السلام رعم أنني غير مقتنع بالمنطق المطلوب لحل المشكلة ولكن جرب الكود التالي Sub Print_Task() Application.ScreenUpdating = False Rows("8:32").Hidden = False For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintPreview ActiveSheet.PrintOut For I = Range("E5").Value + 1 To Range("F5").Value Range("E5") = I If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next I Range("E5").Select Rows.Hidden = False Else MsgBox "Cancelled", vbExclamation End If Application.ScreenUpdating = True End Sub

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

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

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

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

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

بارك الله فيك أخي سليم على مساهماتك الجميلة في شتى الموضوعات دمت بود

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

ما أجمل كلماتك أخي أبو عيد .. وافر تقديري واحترامي

أخي الكريم أبو صلاح جرب الكود التالي Sub Copy_Specific_Row() Dim I As Long Application.ScreenUpdating = False For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 Range(Cells(I, "A"), Cells(I, "D")).Insert Shift:=xlDown Next I Application.ScreenUpdating = True End Sub نفس فكرة الكود موجودة في الموضوع على الرابط التالي (مع تعديلات بسيطة جداً ليناسب طلبك) الرابط من هنا

أخي الكريم لابد من الإطلاع على الرابط التالي (فيه البدايات للتعامل مع الأكواد ومحرر الأكواد ..ضروري جداً تطلع عليه) الرابط من هنا

أخي الكريم محمد في الخلية D4 اكتب المعادلة بهذا الشكل =SUMPRODUCT(($A$4:$A$16=A4)*($C$4:$C$16=C4)) ويمكن عمل التنسيق الشرطي بالاعتماد على النتائج من هذا العمود عن طريق تحديد النطاق A4:C16 ثم اكتب المعادلة التالية في التنسيق الشرطي =D4>1

يوضع الكود في حدث المصنف .. افتح محرر الأكواد Alt + F11 ثم دبل كليك في نافذة المشروع على ThisWorkbook ثم الصق الكود .. لتجربة الكود غير التواريخ واحفظ المصنف وأعد فتحه لتتأكد من المطلوب

بارك الله فيك أخي الكريم عبد السلام وجزاك الله خيراً لجعل الكود مرن ويعمل لأي مستخدم بدون التعديل فيه ، لا يجب وضع المسار لسطح المكتب بهذا الشكل .. جرب الكود التالي Sub Export_PDF_in_most() Dim Str As String Str = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = True Sheets(Array("sheet2")).Select ActiveSheet.ExportAsFixedFormat xlTypePDF, Str & "\ تاريخ " & Sheet2.Range("A1") & ".PDF" Worksheets("sheet2").Select ActiveWindow.DisplayWorkbookTabs = False Application.ScreenUpdating = True End Sub

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

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

ربما يجب أن تضع جملة Else بعد نهاية الشرط الأول وتحدد المطلوب وهو الخروج من الكود بعدها باستخدام جملة Exit Sub ..

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

يمكن استخدام خاصية ScrollBar للمزيد قم بالإطلاع على الرابط التالي الرابط من هنا