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

نورت المنتدى أعربي وعوداً حميداً .. والله زماااااااااااااااان يا عربي

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

بارك الله فيك أخي الكريم أبو عمر الحمد لله الذي بنعمته تتم الصالحات

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

أخي العزيز ناصر عند استخدام Cells للإشارة للخلايا يتبعها رقم الصف ثم رقم العمود مثال : Cells(9,21) كما هو موجود في مشاركتك الرقم 9 يشير للصف رقم 9 ، والرقم 21 يشير للعمود رقم 21 أي العمود U وبالتالي يمكن تغيير هذا الجزء واستخدامه بشكل آخر ألا وهو Range("U9") أرجو أن تكون المعلومة مفيدة لك إن شاء العلي القدير تقبل تحياتي

بسيطة أخي الكريم ... شيل السطر الخاص بالتسمية اللي هو دا ActiveSheet.Name = "Data " & i وضع مكانة السطر التالي ActiveSheet.Name = wbk.Sheets("Data").Range("J7").Value وبالنسبة للعودة إلى الورقة الأصلية استخدم الجملة التالية في نهاية الكود Application.GoTo Feuil1.Range("A1")

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

لربما تكون وحدات الماكرو معطلة لديك شاهد الفيديو التالي لعله يفيدك في الأمر

ليس لدي خبرة في هذا الموضوع ولكن لدي ملف قد يفيدك BarCode128.rar

أخي الكريم محمد في الخلية L2 ضع المعادلة التالية =SUMIF($D$6:$D$20,">"& 0,$M$6:$M$20) وفي الخلية L3 ضع المعادلة التالية =SUMIF($E$6:$E$20,">"& 0,$M$6:$M$20) وفي الخلية L4 ضع المعادلة التالية =SUMIF($F$6:$F$20,">"& 0,$M$6:$M$20) وبس خلاص

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

وعليكم السلام أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك قم بإنشاء ملف إكسيل خارج المجلد المسمى PV وضع الكود التالي بداخله (اخفظ الملف بصيغة xlsm) Sub ImportDataFromClosedWBs() Dim wbk As Workbook Dim strFolder As String Dim strFile As String Dim i As Long With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False .AskToUpdateLinks = False End With strFolder = ThisWorkbook.Path & "\PV\" strFile = Dir(strFolder & "*.xls*") Do While strFile <> "" Set wbk = Workbooks.Open(strFolder & strFile) wbk.Sheets("Data").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) i = i + 1 ActiveSheet.Name = "Data " & i wbk.Close False strFile = Dir Loop With Application .AskToUpdateLinks = True .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub

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

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

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

حاول تجرب متصفح آخر .. لربما تكون المشكلة في المتصفح ودا رابط لكل الملفات اللي رفعتها لعلها تفيدك https://www.file-upload.com/users/YasserKhalil/

طيب ايه رأيك عند فيك مش هحذفه .. عشان الكل يعرف إنك بتطرح أكتر من موضوع لنفس الطلب ، وإنت عارف إن الانطباعات الأولى تدوووووووووم :) تقبل وافر تقديري وتحياتي أخي محمود

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

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

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

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

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

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

السلام عليكم أخي الكريم محمود مش عارف أقولك ايه .. حاولت أنصحك بس شكلك مش عايز تاخد بالنصيحة .. متزعلش بهزر معاك ، بس هنصحك بردو لما تطرح موضوع الأفضل إنك تبسط الأمور .. تبسطها إزاي ؟؟! أقولك مش لازم ترفع الملف الأصلي .. أنا واحد من الناس لما بشوف الملف فيه شغل جامد ومتداخل ومش فاهم المطلوب فين بالظبط بترك الموضوع وأشوف غيره (مش عشان صعوبة الموضوع لكن عشان الوقت ممكن ميكونش متاح ، لأن في حالة الملف المعقد مضطر تدرس الملف كويس وتقرا الموضوع كويس عشان تقدر تساهم بحل) .. والحكمة بتقول : ليه أتعب نفسي طالما ممكن أرتاح وأتعب غيري .. مين بقا غيري ؟ اللي هو صاحب الموضوع .. المفروض يتعب عشان يوضح طلبه بشكل أفضل وأيسر معلش إذا كنت برغي كتير ، بس أنا بحب أوضح الأمور طيب هتسألني أعمل ايه يعني؟ أقولك : بسطها ترتاح وتريح وتحصل على المطلوب بكل سهولة ويسر من كل الأعضاء يعني لما يكون طلبك يخص فورم معين .. ارفق ملف بالفورم دا بس أو بالفورم اللي يخص طلبك فقط .. مع توضيح التفاصيل .. ******************************** نيجي بقا لموضوعك : بعد الإطلاع على الملف أعتقد حل موضوعك بسيط جداً جداً وهو كالتالي : في الفورم المسمى "UserFormopen" (أخدت بالك بحدد المكان اللي هتعامل فيه إزاي ..عشان تخلي بالك) فيه حدث اسمه "UserForm_Activate" (أخدت بالك إني بحدد الجزء اللي هتشتغل فيه إزاي .. عشان تخلي بالك) دا مسئول عن تفعيل الفورم ، يعني لما الفورم يتفعل ايه اللي هيحصل .. دا اللي إنت هتحدده إنت عامل أزرار .. زر أمر لكل ورقة عمل ، طيب دلوقتي عايز تربط الزر دا باسم ورقة العمل لما يتغير .. يبقا في الحالة دي هتستخدم الخاصية Caption ودي معناها عنوان (عنوان الزر) .. وأعتقد دا طلبك يبقا هتكلم الإكسيل وتقوله : لو سمحت خلي عندك دم وغير لي عنوان زر الأمر ده ... بس بصراحة إنت عارف إن الإكسيل مش هيفهمك كدا لأنه هيسألك : إنت عايز تغيره لايه يا سعادة البيه؟ .. تقوم إنت ترد وتقوله : لاسم ورقة العمل .. يرد عليك بعنف : ويقولك بطل هزار يا حودة ، أنا عندي أوراق عمل كتير ، خليك محدد الهدف عشان تعرف تجيب جوووووووول GOAL تقوم إنت تشوف الزر دا عايز تربطه بأي ورقة عمل .. مثال : CommandButton3 مكتوب عليه ورقة1 ، فتقوم تبص للاسم البرمجي لورقة العمل هتلاقيه في محرر الأكواد في نافذة المشروع .. هتلاقي الاسم البرمجي لورقة1 اسمه sh3 (إنت اللي مسميه يا جميل لأن مش دا الاسم الافتراضي .. مش موضوعنا) يرجع مرجوعنا لموضوعنا : الخلاصة دلوقتي إننا نخلي عنوان زر الأمر بنفس عنوان اسم ورقة العمل يبقا الحل ببساطة عمل سطر بالشكل التالي CommandButton3.Caption = sh3.name شفت بسيطة إزاي (ودا حل مشكلتك .. بس كان لازم تعرف إزاي تتعامل مع المشكلة قبل ما تحلها طبعاً هتعمل نفس الحكاية مع بقية الأزرار .. يعني نفس الفكرة هتطبقها بنفسك يا جميل Private Sub UserForm_Activate() Application.Visible = False CommandButton3.Caption = sh3.name 'اشتغل بنفسك على بقية الأزرار End Sub وأخيراً أعتذر للإطالة ... تقبل تحياتي

يا سيدي ولا يهمك بالنسبة لرفع الملفات بتضغط الملف (بأي برنامج ضغط زي الوينرار) وترفعه من خلال النقر على "اختر ملف" .. هل جربت الكود أم أنك لا زلت على الموبايل :)