خالد الرشيدى

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

السلام عليكم جرب الملف التالى جيداً علة المطلوب تماماً القيد العام.rar

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

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

إخوتى الكرام .. الملف التالى يتناول الطرق المختلفة لتعبئة الـــــــComboBox .. اتمنى ان يمثل إضافه بسيطة .. وكل عام وانتم بخير .. المرفقـــات Khaled-elrashedy -Combobox.rar

جزاك الله خيرا الحمد لله الذي بنعمته تتم الصالحات

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

اخى ناصر اعتقد ان ملف ا/ محمد لا يحتاج لازالة التسطير واعادته لانه قام بتنسيق عدد كبير من السطور - بالاضافه انه لم يطلب ذلك هذا بجانب اني اعتقد انه لا يريد الكود المقدم منى ( وهو كود استاذى ابو البراءانا فقط عدلت عليه بما يناسب الملف ) لانى بعد اضافته تجاهل المشاركه بطلب التعديل على كود اخر تقبل مرورى وتحياتى

السلام عليكم جرب المعادلة التالية جيداً عله المطلوب =IF(C9=0,"",IF(MIN(IF(اليومية!$D$2:$AN$25=C9,COLUMN($D:$AN)-3))<>0,INDEX(اليومية!$D$1:$AN$1,,MIN(IF(اليومية!$D$2:$AN$25=C9,COLUMN($D:$AN)-3))),INDEX(اليومية!$C$2:$C$25,MIN(IF(اليومية!$D$2:$BC$25=C9,ROW($D$2:$BC$25)-1))))) ولا تنسي انها معادلة صفيف بعد وضعها بالخلية يتم الضغط على Ctrl + Shift + Enter وليس Enter وحدها

السلام عليكم ا / محمد حضرتك حددت الاعمده المطلوب ترحيلها والى اين ولكن -- حضرتك حددت العمودين T - Y ( المجموع ) - والعمود C - كأعمدة لا يراد ترحيلها في حين انها موجوده في شيت الدور الثاني - ؟؟؟؟؟؟؟ العمود N على الرغم من ان حضرتك محدده كعمود يراد ترحيله الا انه غير موجود بشيت الدور الثاني ؟؟؟؟؟؟ انظر المرفق وابدي ملاحظاتك 4.rar

السلام عليكم اخى الكريم رغم محاولتى الاطلاع على كافة التعليقات والاكواد التى جاءت بها - الا ان مطلوبك غير واضح - ارجو ان تدرج ملف - موضح به ارقام الاعمده المطلوب ترحيلها - والى اى اعمده - هل اللصق الى اعمده متجاورة ام الى اعمده متفرقة ايضأ - اى ان تحدد اى اعمده تريد نسخها والى اى اعمده تريد لصقها ؟ تقبلوا مرورى وتحياتى

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

السلام عليكم اخى الكريم ادرج الملف لمعرفة السبب - تقبل مرورى وتحياتى

السلام عليكم حقيقة اخى الكريم لم افعل شيئاً - كل ما في الامر ضغطت بالماوس على الفورم فظهر لى الخطأ التالى وهو ناتج من اننا لا نستطيع ان نكتب إجراء بداخل اجراء - لاحظ ان حضرتك كتبت الاجراء ()sub form بداخل الاجراء () Private sub userform_ click - وبالتالى تمكنت من الدخول الى الاكواد وتعديلها .. الفت انتباه حضرتك ان هناك ما يسمي بإستدعاء اجراء بداخل اجراء - ولكن ليست كتابه اجراء بداخل الاخر بالنسبة للمواقع - لو شروحات هتلاقيها بشكل اوفر على المواقع الاجنبية - لان المواقع العربيه فقيره بالشروحات الخاصه بهذه اللغه - وان كانت كثيره ولكن لم تتناول اللغه بشكل مرتب ومفصل -

السلام عليكم تفضل اخى الكريم - انتبه لابد قبل غلق الاكسيل - من وجود زر يمكنك خلاله الدخول الى الشيت -- اضغط زر الخروج اذا اردت الدخول الى الشيت -- 1 - Copy.rar

السلام عليكم بعد اذن استاذي القدير / أبو البراء اعتقد مع كثرة البيانات سيكون الكود الذي ادرجة استاذي ابو البراء جزاه الله عنا خيراً هو الخيار الافضل - ومع ذلك اليك حل اخر بالمعادلات test 000_2.rar =IFERROR(INDEX(Sheet1!$B$2:$B$1000,SMALL(IF(Sheet1!$A$2:$A$1000=$A2,ROW($A$2:$A$1000)-ROW($A$2)+1),COLUMN(A1))),"")

السلام عليكم اخى الكريم حقيقة لا افهم المطلوب جيداً اتقصد هذا - ضع المعادلة التالية F1 - ام لم يكن المطلوب يرجي مزيد من التوضيح =E1/1000

السلام عليكم بعد اذن استاذي / سليم حاصبيا اخى الكريم جرب الكود التالى كأحد طرق الحل Sub Khaled() Dim cll As Range ,Dim Lr As Long Range("C3:C1000").ClearContents For Each cll In Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row) Lr = Cells(Rows.Count, "C").End(xlUp).Row cll.Copy Destination:=Range("C" & Lr + 1 & ":C" & Lr + cll.Offset(, 1).Value) Next End Sub

السلام عليكم جرب المرفق علة المطلوب - وان كان كذلك يرجي تحديد الموضوع كمجاب القيد العام_3.rar

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

السلام عليكم اخى الكريم اعذرنى فلم اقصد اى شئ سوي ان تقوم بتوضيح المطلوب - وان كان كلامى ضايق حضرتك فانا اعتذر منك حقاً لم اقصد - جرب المرفق جيداً وبمختلف الحالات المحتملة عله المطلوب تماماً =IF(A9>0,INDEX(اليومية!$AP$1:$BB$1,,IF(MIN(IF(اليومية!$AP$2:$BB$25=A9,COLUMN($A:$M)))<>0,MIN(IF(اليومية!$AP$2:$BB$25=A9,COLUMN($A:$M))),MIN(IF(اليومية!$AP$2:$BB$25=MAX(INDIRECT("'"&"اليومية"&"'!"&"AP"&(MIN(IF(اليومية!$D$2:$BC$25=A9,ROW($D$2:$BC$25))))&":BB"&(MIN(IF(اليومية!$D$2:$BC$25=A9,ROW($D$2:$BC$25)))))),COLUMN($A:$M))))),"") New Microsoft Excel Worksheet_3_2 (2) (1)_3.zip

اخى الكريم لما الاسف - انا فقط طلبت منك الشرح التفصيلى للمطلوب توفيراً للجهد والوقت ليس إلا ولكن انت هنا بين اخوانك ولك ان تطلب ما تشاء - بل يهمنى ايضاً ان تصل الى المطلوب تماما كي لا يضيع ما بذل من مجهود ووقت فى تسطير المعادلات السابقة هباءاً هل المطلوب الان - ان كان الرقم بالاعمدة Ap الى BB يأتى بعنوان العمود - وان لم يكن يتم البحث عنه بالعمود Bc وياتى بعنوان العمود صاحب اكبر قيمه بهذا الصف من Ap الى BB - وان لم يكن موجود يتم البحث من D الى an وياتى باكير رقم بالاعمده Ap الى BB لهذا الصف ؟؟ ؟

اخى الكريم الم تقل ان البحث من العمود Ap الى العمود BB ? الرقم الذي تبحث عنه بالعمود f فكرة المعادلة الحاليه انها بتبحث عن الرقم ضمن الاعمده Ap الى BB وتأتى بعنوان العمود الموجود به وان لم يكن موجود بتبحث عنه في العمود Bc وان وجدته بتجيب اكبر رقم في صف الاعمدة من Ap الى bb وتضع عنوانه -- الان انت تبحث عن قيمة بالعمود f لذا يرجي التوضيح - ما الفكره الاخري التى تريد من المعادلة تنفيذها وارجو الشرح التفصيلى

ادرج ملف به الطريقه التي طبقت بها ووضح به المطلوب.. لان اخر ملف انا ارسلته اختبرته جيدا وهو يؤدي المطلوب تماما

بالفعل المعادله تبحث من ap1 الي bb1 وان لم تجد بيتم وضع اكبر قيمه موزعه بالنسبه للرقم ?????