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

ارفق ملفك بعد التعديل للإطلاع عليه .. لابد من تغيير اسم الورقة في الكود بالاسم الجديد ...

أخي الكريم أبو يوسف النجار يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل مناسب جرب الكود التالي للذهاب إلى أول خلية في العمود بها بيانات Sub NavigateToFirstNonBlankCell() With Columns("A") .Find(what:="*", After:=.Cells(1, 1), LookIn:=xlValues).Activate End With End Sub تقبل تحياتي

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

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

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

أخي الكريم أبو حنين قم بتعديل المعادلة في الخلية H5 لتكون بهذا الشكل =IF(AND(E5>$D$1-1,E5<$D$2+1),IF($G$1="",$C5,$C5&$F5),"") وفي الكود قم بإضافة السطر التالي If IsEmpty(Range("D3")) Then WS.AutoFilterMode = False: Exit Sub بعد السطر Application.ScreenUpdating = False جرب وشوف النتائج لاحظ أن غيرك عمل إعجاب في المشاركة رقم 2 رغم إنه مش صاحب الموضوع (يا أخي الكسل وحش أوي ,,,) تقبل تحياتي

الحمد لله أن تم المطلوب حدد المشاركة رقم 7 كأفضل إجابة ليظهر الموضوع مجاب ومنتهي على فكرة ..جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks ومن الأمر Print Area انقر Clear Print Area الخطوات اللي فاتت بمثابة إعادة ضبط لفواصل الصفحات جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...)

ممكن يكون السبب في نسخة الأوفيس أو الويندوز لديك ..فهناك مكتبات مرتبطة بنسخة الأوفيس

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

أخي الكريم أحمد فؤاد تم إزالة الخطأ باستخدام IFERROR والخطأ ناتج عن عدم تطابق عملية البحث أي أن المنتج المراد البحث عنه غير موجود بورقة البيانات إليك الملف المرفق فيه التصحيح لكلا الحلين : المعادلات والأكواد (اختر منهما ما شئت) Agricultural Products.rar

بالفعل كلامك صحيح بنسبة 100% أخي الحبيب أبو يوسف وخبرتك ليست بالضحلة وأنا أعلم ذلك .. المسألة مسألة وقت (كان من المفترض إنك تتابع من زمن .. بس يبدو إنك من أعداء الانترنت ، عشان كدا اتأخرت علينا) ، ولكن في وجهة نظري أنه سيكون لك باعاً كبيراً إن شاء الله

أخي الفاضل مصطفى سيد جاد إليك الكود التالي عله يكون المطلوب Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim strSheet As String If InStr(Target.Parent, "!") > 0 Then strSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1) Else strSheet = Target.Parent End If Sheets(strSheet).Visible = True Sheets(strSheet).Select End Sub Private Sub Worksheet_Activate() Dim WS As Excel.Worksheet For Each WS In ThisWorkbook.Worksheets WS.Visible = (WS.Name = Me.Name) Next End Sub يوضع الكود في حدث ورقة العمل الرئيسية وإليك الملف المرفق لتوضيح الأمر لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي لا تنسى أن تنقر كلمة "أعجبني هذا" في المشاركة التي أعجبتك تقبل تحياتي Hide All Sheets & Unhide When Click On Hyperlink.rar

الحمد لله أن تم المطلوب يرجى الالتزام بالتوجيهات وتحديد أفضل إجابة

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

جرب المعادلة التالية في الخلية CN9 =IF(AND(P9="غ",Y9="غ",AH9="غ",AR9="غ",BB9="غ",CE9="غ"),"غ"&CP9,"ح"&CP9) بالنسبة لفرز الناجح والراسب قم بالبحث في المنتدى ستجد أكثر من موضوع بهذا الخصوص

أخي الحبيب ليك وحشة والله ..فينك من فترة ..مختفي فين؟ إليك الحل التالي بالكود ... Sub YasserKhalilToAdel() Dim A, B, I As Long, J As Long, N As Long A = Sheets("Sheet1").Range("A1:C8").Value ReDim B(1 To UBound(A, 1) / 2, 1 To UBound(A, 2) + 1) For I = 1 To UBound(A, 1) Step 2 N = (I \ 2) + 1 B(N, 2) = A(I, 1) B(N, 3) = A(I, 2) B(N, 4) = A(I, 3) B(N, 1) = A(I + 1, 1) Next I Range("A10").Resize(UBound(B, 1), UBound(B, 2)).Value = B End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني هذا" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Test 200 By Code.rar

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

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

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

أخي الكريم .. تمت الإشارة إلى أنه لو هناك طلب جديد فقم بطرح موضوع جديد مع الشرح والتفصيل .. انظر لعدد المشاركات بالموضوع .. وصل لـ 41 مشاركة ..أعتقد كدا كفاية على الموضوع .. ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني هذا" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي

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

أخي صلاح الدين هل قمت بتحميل المرفق في المشاركة رقم 38؟ شيت أو ورقة العمل إجمالي موجودة فين؟ في المرفق والله ... سؤال غريب شويتين .. بالنسبة للكود أسهل وأيسر وأخف للملف خصوصاً مع البيانات الكثيرة قم بتحميل المرفق في المشاركة رقم 38 وافتح المرفق وواحدة واحدة أنا إن شاء الله معاك ورقة العمل "إجمالي" بلاقيها تحت في تبويبات الملف ، لما تنقر عليها هتلاقي نفسك في الشيت (اوعى حد يخطفك هناك) هتلاقي زر أمر مكتوب عليه "قل لا إله إلا الله" اوعى تكون مقولتش لأزعل منك انقر زر الأمر وبس خلاص على رأي يسرولة (يسرولة على وزن شعبولة..مش أحسن مني شعبان عشان يدلع وأنا لا) توكل على الله

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar

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

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