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

الأخ الكريم أحمد حبيبه إليك الملف المرفق عله يفي بالغرض Sub HideNageh() With ActiveSheet .AutoFilterMode = False .Range("A2:C2").AutoFilter Field:=3, Criteria1:="<>" & "ناجح" End With End Sub Sub ShowAll() With ActiveSheet .AutoFilterMode = False End With End Sub تقبل تحياتي Filter Data.rar

أخي الكريم أيمن شايف السطر ده Set ws = ActiveSheet مقلتش شايفه ليه !! غير ورقة العمل النشطة لأي ورقة عمل أخرى بكل بساطة يعني مثلاً لو ورقة العمل اللي عايز تصدرها لملف PDF كان اسمها (هاكونامطاطا) دا مثال يا أيمن مش مهم دي ايه .. المهم هتتعامل إزاي بدل السطر اللي فوق بالسطر ده Set ws = Sheets("هاكونامطاطا") بتكتب كلمة Sheets يليها قوس (Shift + 9) دي فتحة القوس ، يليه أقواس تنصيص (Shift + حرف الطاء) وتكتب اسم ورقة العمل ومتنساش تقفل .. بأقواس التنصيص مرة تانية بعد الاسم وتقفل القوس Shift+0 المرة دي وبكدا تكون وصلت للمطلوب تقبل تحياتي

أخي الكريم أيمن أهلا أهلا أهلا بيك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية لمعرفة كافة القواعد والتوجيهات وكيفية التعامل مع المنتدى يرجى زيارة هذا الرابط .. http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للكود يوضع بين أقواس الكود لسهولة التعرف عليه والأفضل إرفاق ملف لتوضيح طلبك بشكل أدق تقبل تحياتي

الأخ الكريم محبوب من الأفضل أن نناقش جزئية جزئية عشان بتوه في الكلام الكتير مثال SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value السطر ده سألت عن SH دا متغير لأي ورقة عمل في المصنف الذي يحوي الكود لأننا بنعمل حلقة تكرارية لكل أوراق العمل .. بمعني مش منطقي إننا هنتعامل مع كل أوراق العمل كل ورقة عمل باسمها .. فبنرمز لأي ورقة بالمتغير ده وطبعا بما إنه متغير فبعد كل حلقة تكرارية ما تنتهي اسم ورقة العمل بيتغير لاسم ورقة عمل جديدة (تصدق أنا نفسي تهت) Cells معناها خلايا بس استخدامها هنا عشان أعرف آخر صف فيه بيانات في العمود رقم 8 يعني مثلا Cells(99, 8) معناها الخلية في العمود رقم 8 والصف رقم 99 End(xlUp) معناها اطلع لفوق .بالظبط زي ما بنضغط Ctrl + سهم لفوق عشان يطلعنا لآخر خلية بها بيانات في نفس العمود (اللي هو في المثال رقم 8) Row عشان نعرف رقم الصف لآخر خلية فيها بيانات زائد 1 عشان ننتقل لأول خلية فارغة في العمود رقم 8 عشان نبدأ ندرج فيه بيانات ... يعني خلاصة الكلام الجزء ده كله SH.Cells(99, 8).End(xlUp).Row + 1 معناه رقم صف أول خلية فارغة ....................! يعني مثلا لو كان ناتج الجزء ده رقم 7 ..الصف السابع مثلا فيه أول خلية فارغة في هذا العمود يبقا ممكن نختصر السطر SH.Range("H7"( ولما نوصل للخلية نخليها تساوي Cell.value الموضوع محتاج وقت عشان تقدر تدرسه كويس ربنا يوفقك

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

أخي الحبيب ياسر ممكن أعترض .. ايه فايدة الكود ؟؟!! طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !! بحاول أشوف أي فايدة تانية للكود بس مش لاقي تقبل اعتراضي

الأخ الحبيب ياسر فتحي راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=56629&hl= عله يكون موضوع مكرر ... أخيراً لقيت حاجة قديمة في الفهرس بتاعي مفيدة !!!

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

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

رائع أخي الحبيب ياسر فتحي تسلم وربنا يبارك فيك جزيت خير الجزاء على الملف الرائع

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

الأخ الكريم طارق يرجى تغيير اسم الظهور للغة العربية ويرجى الإطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 ويرجى إرفاق ملف للعمل عليه ويا حبذا (حلوة يا حبذا دي) يا حبذا لو أرفقت بعض النتائج المتوقعة

الأخ الكريم صلاح كويس إنك بتنام بدري دي عادة طيبة وعلى رأي الشاعر اللي بيقول : من نام بدري وصحا بدري .. صار طبيباً ولا يدري فيا دكتور صلاح دي عادة طيبة ..وربنا يعينك في شغلك البامية عندنا إحنا بـ 17 جنيه مين يزود ؟؟! أهم من البامية في المرحلة القادمة هو البتيــــــــــــــــــــــــخ عشان الصيف طالع والبتيـــــــــــــخ بيطري على الواحد في الحر ..مش كفاية ولعة الأسعار وبس دا هيبقا فيه ولعة أسعار وولعة من الحر وولعة من الأفلام الهابطة اللي ملت الساحة وولعة دا لقب واحد صاحبي معرفوش تقبل تحياتي

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

شوف الفيديو ده لتمكين الماكرو أو وضح طلبك بشكل أكثر تفصيلاً أخي عبد الله أبو الأنوار

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

الأخ الكريم عبد العزيز حدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي

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

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

الأخ الفاضل الشبح يرجى تغيير اسم الظهور للغة العربية لسهولة التواصل ويرجى الإطلاع على رابط التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 ودا مش روتين ..دا ضروري لمعرفة كيفية التعامل داخل المنتدى في حالة طرح موضوعات أو طلبات يعني مثلا العنوان غير مناسب بالمرة ..لابد من مراعاة ذلك مستقبلاً إن شاء الله سأقوم بتغييره .. تقبل تحياتي

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

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

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

أخي في الله وحبيبي سليم عجبني الكود فقمت بشرحه بعد إذنك طبعاً لتعم الفائدة ويكثر الصيادين Sub SumInLastRow() 'يقوم الكود بجمع القيم في أي عدد من الأعمدة وتظهر النتائج في آخر صف '----------------------------------------------------------------- 'تعريف المتغيرات Dim lRow As Long, I As Long, SumValue As Double Dim Rng As Range 'تحديد آخر خلية فارغة تلي آخر خلية بها بيانات في النطاق المستخدم lRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 'مسح تنسيقات النطاق المستخدم ActiveSheet.UsedRange.ClearFormats 'حلقة تكرارية في أعمدة النطاق المستخدم For I = 1 To ActiveSheet.UsedRange.Columns.Count 'تعيين النطاق الذي سيتم جمع قيمه Set Rng = Range(Cells(1, I), Cells(lRow - 1, I)) 'تعيين قيمة مجموع نطاق العمود الحالي SumValue = Application.WorksheetFunction.Sum(Rng) 'وضع قيمة المجموع في كل عمود من الأعمدة للنطاق المستخدم Cells(lRow, I) = SumValue 'الانتقال للعمود التالي Next 'تلوين النطاق الذي يظهر فيه المجموع Range(Cells(lRow, 1), Cells(lRow, ActiveSheet.UsedRange.Columns.Count)).Interior.ColorIndex = 6 End Sub تقبلوا تحيات أخوكم الصياد ياسر خليل (صاحب أكبر شادر سمك فيكي يا مصر .. )

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