حمادة عمر

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

السلام عليكم الاخ الكريم / انسان27 بارك الله فيك استبدل الكود الخاص بالعرض بهذا الكود Private Sub CommandButton2_Click() Set sh12 = Sheets("1") lr = sh12.[A65000].End(xlUp).Row For Each cl In sh12.Range("A5:B" & lr) If (Val(Me.TextBox1)) = cl Then Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Me.TextBox4 = cl.Offset(0, 3) Me.TextBox5 = cl.Offset(0, 4) Me.TextBox6 = cl.Offset(0, 5) Me.TextBox7 = cl.Offset(0, 6) Me.TextBox8 = cl.Offset(0, 7) Me.TextBox9 = cl.Offset(0, 8) Me.TextBox10 = cl.Offset(0, 9) End If Next End Sub والكود المطلوب لعمل تسلسل تلقائي استخدم الكود التالي في حدث الفورم Private Sub UserForm_Activate() Sheets("1").Select SS = Cells(Rows.Count, 1).End(xlUp).Row TextBox1 = Val(Cells(SS, 1)) + 1 End Sub واليك المرفقات ارجو ان يفي بطلبك كود ترحيل من يوزر فورم دفعة واحدة الى جدول -SAMA.rar

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك والله كل يوم نتعلم منك فكرة جديدة افكار راقية واكواد راائعة ... دائما توظف كل امكانيات الاكسيل لتطيعك بكل سهوله ورقي في تقديم المعلومة وفنان في التنفيذ تقبل مروري وتحياتي

السلام عليكم الاخ الكريم / أحمــــد غانـــم بارك الله فيك شاهد اخي الكريم المرفق مع ملاحظة انه : يجب ادخال ايام العطلات وترحيلها بقيمتها الفارغة ولكن بتحديد التاريخ لضمان النتائج المرجوة في صفحة الاجمالي تفضل المرفق وفي انتظار رأيك واستفساراتك تقبل تحياتي دفتر ماكينة التصوير-sama.rar

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

السلام عليكم الاخ الحبيب / طلعت محمد حسن بارك الله فيك المهم اخي الكريم ان تصل لما تريد ولاداعي للقلق اخي الحبيب ... فكلنا هنا جميعا نتعلم ونعلم بعضا البعض ابتغاء مرضاه الله فقط ومحبه في الله ولا تترد ابدا في استسفار او سؤال لتتعلم وتصبح مميزا ومتمكناً وان شاء الله دائما معك في اي طلب او موضوع ( مادام علي حسب علمي وفي مقدرتي الرد عليه ) تقبل خالص تحياتي

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك دائما متابع لمواضيعك وتقدم بها كل الروائع من اسلوبك الذي تتميز به ( السهل الممتنع ) جعل الله ذلك في ميزان حسناتك وسلامي الخاص جدا جدا لـ ( حنين وخديجة ) تقبل خالص تحياتي واحترامي

السلام عليكم الاخ الكريم / طلعت محمد حسن بارك الله فيك بالنسبة لملفك المرسل فليس به اي خطأ بالنسبة للاكواد ولكن الخطأ الذي تقصده هو ضبط لبعض خصائص الفورم والليست فقط ** بالنسبة لليست .. يتم تحديد عدد الاعمدة التي تريد ظهورها وذلك من خلال خصائص الليست في التصميم كما في الصورة التالية ** وان تركت الفورم بعد ذلك ايضا دون ضبط سوف تظهر لك البيانات بالعكس اي من اليسار الي اليمين ولضبط ذلك يتم تحديد ذلك من خلال خصائص الفورم لتظهر البيانات من اليمين لليسار كما تريد في مثالك ويتم ذلك كما في الصورة التالية ارجو ان اكون وضحت لك المطلوب بشكل دقيق معك دائما باذن الله تقبل خالص تحياتي New folder.rar

السلام عليكم الاستاذ القدير الحبيب / أبو حنين بارك الله فيك وعدت اخي محمود فأوفيت بوعدك تقبل مرور وخالص تحياتي وبالنسبة لرصيد اول المدة اعتقد انه وعلي حسب فهمي للأمر فانه سوف يتم جلبه بنفس الطريقة التي قمتم باحضار اسم الصنف بها وبذلك سيتم زياادة الصف التالي الي الكود لاحضار وجلب رصيد اول المدة من صفحة item الي صفحة itrep Sheets("itrep").Range("K3") = Sheets("Item").Cells.Find(What:=Sheets("itrep").Range("B3")).Offset(0, 4) ارجو ان اكون قد فهمت صح !! تقبلول خالص تحياتي كارته مخزن الكود11.rar

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

السلام عليكم الاخ الكريم / أحمــــد غانـــم بارك الله فيك قمت اخي الكريم بعمل جزء من برنامجك ولكن بطريقة اخري غير المذكورة سابقا حيث وجدتها ستجعل بالملف علي مدار العام اكثر من 320 ورقة وهذا سيكون شئ ( .. !! ) ففكرة الملف تعتمد علي التالي : ** سيكون لكل شهر ورقة او شيت يوجد بها ( 31 ) يوم ... حيث يجب ترحيل كل الايام في نهاية العمل .. حتي ايام العطلات وبالتالي سيكون لدينا في النهاية علي الاكثر ( 15 ) شيت بالبرنامج مما يجعل البرنامج اسهل واكثر مرونة ** بعد القيام بالادخال اليومي في الجدول كما ارفقته انت ... وبعد الانتهاء من التسجيل اليومي .. يتم الضغط علي زر ترحيل تظهر لك شاشة بسيطة ( ترحيل اليوم ) ... نختار من الكومبوبكس الشهر الذي نريد الترحيل اليه حسب التاريخ طبعا سيتم ترحيل الجدول اليومي وبياناته كما هو الي الشهر المختار .. ويقوم بوضع الاجمالي اليومي في الاجمالي الشهري حسب تاريخ اليوم وحسب الشهر المختار ** يوجد شاشة اخري لاضافة شهر جديد ... حيث عند بداية كل شهر ... نضغط علي زر ( اضافة شهر جديد ) ليتم اضافة شيت باسم الشهر المحدد الذي قمت بكتابته وبعد اضافة الشهر الجديد وعند الاختيار من شاشة الترحيل سيتم اضافه الشهر الجديد للقائمة تلقائيا لتختار منها الشهر المطلوب ****** كان هذا بعض الشرح للطريقة التي سنقوم بالعمل عليها ... وانتظر رأيك في ان ما كانت طريقة عملية معك وكما تريد ام انك تحتاج الي شئ آخر وفي انتظار رأيك وتعديلاتك او طلباتك وبعد ان تخبرني برأيك ... هناك اولا اخي الكريم بعض الملاحظات التي يجب الاستفسار عنها منك اولا قبل الشروع في التنفيذ الكامل ثم ان شاء الله ... نبدأ معا خطوة خطوة لانهاء ما تريد تقبل خالص تحياتي دفتر ماكينة التصوير -.rar

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

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

الأخ الحبيب / قنديل الصياد بارك الله فيك مرورك طيب وكريم من شخص كريم ودائما مرورك يشرفني أخي الحبيب تقبل خالص تحياتي

اللهم اتم شفاؤه علي خير اللهم اشفه شفاء لا يغادر سقما اللهم آمين آمين آمين

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

السلام عليكم الاخ الكريم / ابو نبأ بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ابو نبأ بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

الاخ الكريم / dah_med بارك الله فيك شاهد الملف المرفق ... مع العلم انه يحتاج بعض العمل وان كان هو ما تريد نقوم بضبطة تماما مقياس التأهيل لعمال المهنين-sama111.rar