عادل حنفي

السلام عليكم اخي هذا شرح فيديو لكيفية القيام بذلك تحياتي vb_pass.rar

السلام عليكم اخي العزيز بدلا من ان يعمل الكود لكل صف ونقول بالكود طبعا الصف الاول اعمل كذا و كذا ثم الصف الثاني وهكذا الي نهاية الصفوف فاننا نرمز للصف ب i و نعرف الكود علي الصفوف التي سنعمل عليها ليكررها بنفسه لذا نقول for i = 3 to 8 او for n=3 to8 او for m= 3 to 8 و كذلك الامر بالنسبة للخليه بدلا ان اقول B3 مثلا ثم B4 و اكرر اجعل الكود هو الذي يكرر الصف الذي اريده و الخلية التي اريده و ايضا هناك حالات تجد فيها for i و for n في نفس الوقت ذلك لانك عندما تذكر الاولي عندما تحتاجها لعمل شئ اخر لابد من تغيير الحرف لا الحرف تم حجزه في بداية الكود المهم ارجو ان اكون قادر ان اوصل الفكره عموما لو فيه اي شيئ اسال علي طول و متحسسش نفسك انك تائه فمرة وراء مره تجد نفسك فاهم فلا تتعجل تحياتي

السلام عليكم اخي gadelrab اشكرك اخي علي كلماتك و الكود يتم علي مرحلتين الاولي عند الضغط علي الزر فيتم نسخ محتوي عمود القائم و ياكتف صفحة ترتيب القوائم ولصقه بها ولكي نجعل الكود الموجود بصفحة ترتيب القوائم يوجد في الكود الموجود ايضا عند الضغط علي الزر ناكتف صفحة1 ثم ناكتف صفحة ترتيب القوائم ليعمل الكود الذي بها ثم ناكتف مرة اخري صفحة 1 و هكذا يكون القائمة المنسدله جاهزه للعمل و الكود الموجود بصفحة تريب القوائم هذا هو و هو منقسم لقسمين احدهما لازالة المكرر و الاخر للترتيب Private Sub Worksheet_Activate() If Range("B1") = "0" Then Exit Sub Else On Error Resume Next Range("A2:A500").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:A100").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub خالص تحياتي

السلام عليكم اخي لم نفهم ماقلته في البداية عموما مرفق ملف به ملفان رقم 1 التعديل الذي قمت به ليكون التغير وفقا للناتج و علي فكره انا جرب ايضا كود الاخ الفاضل ابو اسامه و هو يعمل ايضا مرفق ملف رقم 2 بكود الاخ ابو اسامه تحياتي alaa_color.rar

السلام عليكم اخي العزيز هل تقصد هكذا تحياتي _____.rar

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

السلام عليكم اخي العزيز مرفق الملف بالشرح تحياتي _______.rar

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

السلام عليكم نلحظ بنشاط الاخت israabbasi الي الامام تحياتي

السلام عليك اخي هذا هو ملفك تحياتي alaa.rar

السلام عليكم اخي نقوم بعمل ذلك عن طريق دالة if مرفق مثال مع ملاحظة ان تكون كلمة ذكر و احدة في كامل اوراق العمل و كذلك كلمة انثي تحياتي if.rar

السلام عليكم اخي تم عمل المطلوب عن كريق colorindex مرفق ملفان احدهما اكسل 2007 و الاخر 2003 لشمول الاستفادة خالص تحياتي color.rar

السلام عليكم اخي جرب هذا الملف تحياتي _____.rar

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

السلام عليكم اخي الحبيب و المعلم الفاضل خبور هذا ثناء اتمني ان اكون محله و شهادة اعتز بها منك فلك كل تقديري واحترامي

السلام عليكم اخي aysam بل لمجهودك ايضا يا اخي فالي الامام دائما تحياتي

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

السلام عليكم اخي العزيز tofimoon4 اتمني ان يكون هذا هو طلبك ارجو التجربة و اخباري بالنتيجة تحياتي tofimoon_last.rar

السلام عليكم بارك الله فيك و في اعمالك تحياتي

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

السلام عليكم اخي العزيز هذا محاولة لما تريد ارجو ان يساعدك هذا تحباتي abuzzouz25.rar

السلام عليكم اخي BU3MMAR اخي هذه هي بالفعل نفس الفكرة فالزر الاول ياخذ اسماء الشيتات و يضعها في العمود الاول A و الزر الثاني اذا وجد اسم او رقم في الخلية الموجودة في العمود الثاني و المقابله لاسم الشيت لو وجد بها رقم او اسم (وطبعا هناك مجموعة ممنوعات ك / او بمعني اصح كل مالا يقبله الاكسل في تسمية الشيتات) فهذا معناه انك تريد اعادة تسمية هذا الشيت بالذي موجود في هذه الخلية و ان تركت فارغة لن يغير اسم الشيت ارفقت لك ملف فيديو بشرح العمل مع الملف مرة اخري مع اضافة on error resume next للتماشي مع اي خطأ مع انني قمت بتجربة الملف اكثر من مره و ليس هناك اي خطأ يذكر تحياتي BU3MMAR2.rar

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

عذرا اخي ابو اسامه لم ار مشاركتك خالص تحياتي

السلام عليكم اخي BU3MMAR اتمني ان يكون ما فهمته صحيحا جرب الملف التالي تحياتي BU3MMAR.rar