عبدالله المجرب

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

السلام عليكم اخي احمد ارجو منك توضيح التثبيت فاعذرني لم تصلني الفكرة == بخصوص حفظ نسخة هناك موضوع اجاب عليه الاستاذ ابوعبدالله لتحويل نطاق الى PDF يمكنك الاستفادة في حفظ صورة للافادة

السلام عليكم راجع هذا الرابط ان شاء الله ينفعك http://www.officena.net/ib/index.php?showtopic=37602

السلام عليكم اخي يوسف هذا شرحي للكود == For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row هذا السطر لتعريف المتغيير i من الرقم (الصف) 14 وحتى اخر خلية بها بيانات في العمود الثاني (يمتد حتى الصف 100 فقط) == With Worksheets((Sheets(1).Cells(i, 10).Value)) هذا السطر يخص اسم الشيت التي سيتم الترحيل اليها واسم الشيت موجود في الخلية صف i والعمود العاشر من ورقة العمل الاولى === x = .Cells(100, 2).End(xlUp).Row + 1 نفس اسلوب تعريف المتغيير i ولكن هذا المتغيير ثابت ويعني رقم صف الخلية التي تلي اخر خلية بها بيانات في العمود الثاني (طبعاً في الشيتات المرحل اليها) ==== الاسطر التالية .Cells(x, 2) = Sheets(1).Cells(i, 2) .Cells(x, 3) = Sheets(1).Cells(i, 3) .Cells(x, 4) = Sheets(1).Cells(i, 4) بعد تعريف المتغييرين i , x يصبح الترحيل مقرون باخر خلية ليس بها بيانات والعمود الثاني وكذلك العمود الثالث والعمود الرابع طبعاً الخلايا التي بها المتغيير x يكون موقعها في الشيت المرحل اليه والتي بها المتغيير i تكون في الشيت الأول والله اعلم

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

تم فصل المشاركة للفائدة == اخي اين ستضع اسم المزرعة

تفضل المرفق date.rar

السلام عليكم الكود سيصبح هكذا Sub tr1() Dim x As Integer For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row With Worksheets((Sheets(1).Cells(i, 10).Value)) x = .Cells(100, 3).End(xlUp).Row + 1 .Cells(x, 2) = Sheets(1).Cells(i, 1) .Cells(x, 3) = Sheets(1).Cells(i, 2) .Cells(x, 4) = Sheets(1).Cells(i, 3) End With Next i End Sub

السلام عليكم اليوم تم انهاء النقاش حول الدورة وما تم إستخلاصه من اراء سيتم العمل بها وهي كالتالي: 1. سيتم وضع رابط لتحميل مرجعان يتم التصويت عليهما ليكون واحد منها هو الاساس الذي ستعتمد عليه الدورة. 2. سيكون الشرح بالفيديو في الغالب وفي بعض الاحيان كتابياً وسيكون شرح الفيديو هنا في الموضوع وامر تحويله الى اليوتيوب متروك للاخوة الاعضاء ان ارادو رفعة على اليوتيوب. 3. ستكون منهجية الابواب التي سيتم مناقشتها مرتبطة بالمرجع الذي سيتم إختياره كاساس للدورة. 4. سيطرح موضوع الشرح وبعدها يترك لمدة 3 أيام للاستفسارات والنقاش فبل طرح موضوع اخر. 5. بعد شرح عدد معين من المواضيع يتم ايقاف الدورة مؤقتاً لعمل اختبار يتم منه معرفة وتحديد مدى الاستفادة من الدورة. == للاخوة المشركين في الشروحات نرجو منكم ان تحددوا مشاركتكم من عدمها في الشروحات (ليتم تحديد مواضيع كل واحد) وانا ارشح الاساتذة التالية اسمائهم للمشاركة (مع تقدير الجهود للكل) 1. الاستاذ الفاضل هشام السعيد (ابوعبدالله) 2. الاستاذ الفاضل هشام شلبي (مع تقدير الوضع الحالي لما تمر به ام الدنيا) 3. الاستاذ الفاضل عماد الحسامي (ملك الاكواد) لا بد له من المشاركة 4. الاستاذ الفاضل محمد صالح (ابوعبدالله) 5. الاستاذ الفاضل يحيى حسين (ابو الحسين) 6. الاستاذ الفاضل كيماس و الاستاذ الفاضل معتصم (خبراء الشروحات المصورة) 7. الاستاذ الفاضل يحياوي ==== نرجو ممن ذكرت اسمه او خانتني ذاكرتي ولم اذكره او اي من الاعضاء لديه الرغبه ان قرر المشاركة ان يضع مشاركة بالموافقة وشكراً ==== يطرح المرجعان لمدة اسبوع للتصويت (نرجو استخدام التصويت اعلى المشاركة)

سلمت يمينك ابا ناصر ويكفينا اطلالتك البهية

السلام عليكم اخي سك بابك هذا حل مبدئي جربه وابد رايك فيه test (2).rar

اخي الفاضل كحل اولي شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=37164

اخي فضل جرب هذا التعامل مع اوراق العمل مقصور فقط على زر الانتقال بين اوراق العمل.rar

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

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

اين اسم المادة في الكشف حتى يتم تصفيته!!!!

تم وضع الموضوع للتصويت نرجو ممن لديه الرغبة في المشاركة استخدام التصويت

اخي سك بابك تم عمل كود (يتم تنفيذه بمجرد تفعيل اي من الورقات المطلوبة ) فهل تناسبك طريقة تفعيل الكود ام لك راي اخر جرب المرفق test (2).rar

السلام عليكم نرجو التوضيح (لان الاسماء هذه ثابته في الفورم ولا تتغير اذا مسحتها من الافادة) القائمة المنسدلة تكون في الافادة في خانات المواد

السلام عليك عمل اكثر من رائع به مكتبة اكواد (اسمحي فقد اطلعت على الاكواد) وهناك ملاحظة في اكواد الفورم 1 كان بامكانك استخدام الجمل التكرارية For و Next لتقليل طول هذا الكود (طويل جداً)

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

السلام عليكم اخي ابوعبدالله جرب المرفق هل تقصد هذا دليل الهاتف.rar

السلام عليكم تفضل المرفق == بعد اذن الاخ سعيد قمت باستبدال الدالة IFERROR بالدالة IF(ISERROR وذلك كون الملف 2003 فرق تاريخ.rar

عذراً استاذ ابو عبدالله لم ارى مشاركتك (الحل بنفس الفكرة وعكس الشرط)

السلام عليكم ضع هذه المعادلة =IF(OR(A7="";B7="");"";(D6+A7-B7)) في الخلية D7 في ملفك واسحبها للاسفل