عادل حنفي

السلام عليكم اخي sas_kik المدي اصبح بالفعل بالملف المرسل لك 10000 و ليس 1000 تحياتي

السلام عليكم اخي عمر لا اذن اخي بارك الله فيك و علي الاخ عاشق ترابها رؤية ملفك ولعله يكون ما يطلبه تحياتي

السلام عليكم اخي تم عمل الفرز حسب الحجم و هذا يتم دون تدخلك عند فتح الملف مع عمل زر للترتيب حسب الكود عند الاحتياج لذلك مع عمل زران اخران لتحديد المكرر في الاكواد علي ان يتم تعديله يدويا او الغاء الصف الذي به المكرر بالزر الاخر مع اضافة خلية تظهر الحجم الكاي للصناديق لتكون امامك جرب و اخبرني النتيجة تحياتي ___3_.rar

السلام عليكم الملف السابق مع بعض التعديلات علي المعادلات ارجو التجربه للضبط تحياتي ___2_.rar

السلام عليكم و بعد اذن الاخوه المشاركين هل تقصد هكذا تحياتي _____.rar

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

السلام عليكم و بعد اذن اخي طارق اخي العزيز جرب المرفق و اخبرني عن النتيجة تحياتي ____.rar

السلام عليكم اخي طارق جزاك الله كل خير علي هذا العمل الرائع خالص تحياتي

السلام عليكم عذرا اخي لا افهم ماتريده جيدا هل ما تريده للجداول الواردة علي الوورد ان يتم عمل مثلها علي الاكسل ارجو التوضيح تحياتي

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

السلام عليكم اخي خبرتي قلية جدا في اسيراد البيانات و لكني حاولت في ملفك و مرفق النتيجه و ما استطعت فعله هو تحويل مل الـ word الي HTM و ذلك عن طريق فتح ملف ال word و حفط الملف باسم واختيار web page و اغلاق الملف ثم فتح ملف جديد لاكسل و اختيار Data ثم import external data ثم import data و اختيار المكان الذي قمت بحفط الملف السابق به سيفتح لك الملف الذي قمت بحفظه سابقا كل ما عليك التحديد في ملف الاكسل بالماوس لمساحه تكفي لوضع البيانات بها ثم الرجوع للملف الذي ظهر لك ثم اضغط مباشرة علي import اعتبرها محاولة ليس الا تحياتي Book5.rar

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

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

السلام عليكم اخي معني هذا انك لا تكتب و السمه الغالبه هي ال copy & past فان معني ذلك سيتم تغير الكود للعمل علي هذا ويجب التوضيح جيدا لما يتم لتعديل المناسب تحياتي

السلام عليكم اخي العزيز avogadrow وظيفة هذا الزر فقط مسح الخلايا التي ستتغير بها البيانات فقط و ليس له اي دخل بابقاء البيانات ببقاي الشيتات فالمسؤل عنها هو باقي الكود اسعدتني بكلماتك لان الملف سيخدمك و يساعدك علي عملك و قد ارفقت ملفا ارجو ان اكون استطعت شرح الكود بطريقة سهله خالص تحياتي ___.rar

السلام عليكم اخي العزيز برجاء ارسال ملف بسيط به ما تريد مطبق علي مثال ليتم العمل عليه تحياتي

السلام عليكم اخي العزيز عاشق ترابها طبعا يمكن ذلك طالما تحتاجه في عملك مرفق ملف بالمطلوب تحياتي _______________3.rar

السلام عليكم بارك الله فيك اخي نزار تحياتي

السلام عليكم ممكن عمل اطار خارجي للصفحة من insert ثم Picture ثم clip Art.. سيظهر علي اليمين قائمة للبحث و الاختيار يتم الضغط علي GO سيتم ظهور مجموعة من الصور من بينها اشرطه يمكن عمل اطار منها مرفق ملف مبسط تحياتي Border.rar

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

السلام عليكم اخي avogadrow ليدخل الموضوع جديا جرب الملف التالي طريقة عمله غير صعبه اولا علي يمينك تكتب اسم السهم بالعربيه و الخانه التي بجوارها بالانجليزيه كما استنتجت من طريقة عمل ملفك و هذا الاسم الذي ستكتبه لاسم السهم بالانجليزيه ستجده في قائمة منسدله في الخلية التي تريد تسجيل اسم السهم بها املا البيانات عادي جدا و اجعل متوسط التكلفة اخر شئ فعند كتابته و الضغط علي ENTER سيتم الترحيل لصفحة السهم اذا كانت موجوده او سيتم عمل صفحة باسم السهم ان لم تكن موجودة مع ملاحظة انه في صفحة SHEET1 تم عمل معادلة في الخلية التي بها المبلغ المستحق = متوسط التكلفة* الكميه طبعا يمكن التعديل اذا لم يكن هذا مطلوبا تم عمل زر مسح لمسح البيانات بـ SHEET1 المسح لا يؤثر علي البيانات التي سجلت داخل صفحة كل سهم و عند اضافة بيانات جديده يتم اضافتها بتسلسل التسجل داخل كل صفحة و تحت البيانات السابقة لابد من ملأ خلية التاريخ تم عمل صفحة تختفي لينقل منها فورمات الخلايا و البيانات الخاصة بكل سهم جديد ارجو التجربة و اخباري النتيجة تحياتي avogadrow.rar

السلام عليكم الاخ العزيز ابو اكرم الغامدي بارك الله فيك وزاد من امثالك خالص تحياتي

السلام عليكم اخي dayslife Private Sub Worksheet_Activate() في حدث التفعيل للشيت If Range("B1") = "0" Thenاذا كانت الخلية B1=0 Exit Sub يتوقف عمل الكود Else اذا لم تكن =0 On Error Resume Next هذا كود لالغاء الخلايا الفارغة Range("A2:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveSheet.UsedRange End If Dim x As Long و هذا كود اخر يؤدي نفس و ظيفة السابق استعنت به لان الاول و جدته لا يحذف الخلايا الفارغة بالكامل لسبب لم ابحث عنه في هذا الملف Dim LastRow As Long LastRow = Range("A400").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("A2:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x Range("A3:A10000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _و هذا كود لعمل الترتيب من الاصغر فالاكبر xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub تحياتي

السلام عليكم اخي بلنسبة للبيانات قد ارسلت لك طريقتان لعمل ذلك اما لفورمات الخلايا لم استطع عمل ذلك لها الا عن طريق النسخ و اللصق تحياتي Desktop.rar

السلام عليكم اخي سؤال اخر هل عدد الشركات متغير بمعني هل يزيد و ينقص ام هو ثابت تحياتي