عادل حنفي

السلام عليكم عذرا اخي فناك خطأ بسيط هذا هو بعد التعديل Private Sub CommandButton1_Click() Range("hh3") = TextBox1.Value If Range("hh2") = Range("hh3") Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub جرب و قولي تحياتي

السلام عليكم اخي عذرا لم اري هذا الطلب عموما تم الاجابة علي بالرابط التالي اضغط هنـــــــا تحياتي

السلام عليكم اخي العزيز هذا هو الكود بعد التعديل البسيط Private Sub CommandButton1_Click() Range("hh3") = TextBox1.Value If Range("hh3") = Range("hh3") Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub وهذا كود اخر دون اللجوء للكتابة داخل خلية بالشيت Private Sub CommandButton1_Click() If TextBox1 = "123" Then MsgBox "that;sright", vbOKOnly, "" Cells.Select Selection.EntireColumn.Hidden = False Rows("10:1010").Select Selection.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Else MsgBox " wrong password " & Chr(13) & "sorry", vbOKOnly + vbMsgBoxRtlReading + vbMsgBoxRight, "" End End If End Sub ارجو اخباري بالنتيجة تحياتي

اليلام عليكم اخي العزيز حاول ان تغير بداية الكود لتكون بدايته هكذا Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next جرب و اذا هناك اي مشكله ارجو ابلاغنا تحياتي

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

السلام عليكم اخي يفضل ارسال مثال يوضح المطلوب تحياتي

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

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

السلام عليكم اخي aysam الكود يعمل و لكن عند عمل التصفية يجب الضغط بالماوس في اي مكان لتفعيل الكود تحياتي

السلام عليكم افادكم الله وزادكم علما تحياتي

السلام عليكم اخي aysam تم عمل المطلوب بطريقة الكود ارجو التجربة اخي bosh احسنت اخي العزيز الي الامام الاخ احمد يعقوب منور خالص تحياتي aysam.rar

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

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

السلام عليكم اخي اتمني ان يكون هذا هو المطلوب تحياتي 22.rar

السلام عليكم الاخ أبو هاجر المصري اجد انك من النوع الي لايصبر حتي يجني مقابل هذا الصبر و اتمني من كل قلبي ان يكون مجهودك الذاتي انجز عملك فالمطلوب من هذا المنتدي المساعدة قدر المكان لكي تستطيع عمل ما تريده بمجهودك الذاتي اي تعلمت شيئا عاد عليك بالنفع ثانيا لم يكن اهمالا فيك بل بالعكس كان فيه عمل اقوم به بجانب عملي علي ملفك الذي كلما اتي لنهايته تظهر لي مشكلة اخري المهم ارجو ان يكون هذا الملف كما اردت فعند كتابة الكود لابد و ان يكتب حتي بند البيان كالسابق و اذا كان هناك بند جديد سيتم انشاء شيتا جديدا باسم هذا البند و علي فكره جرب عمل الملف باحد الدوال و لكني وجدته سيكون ثقيلا جدا في عمله ارجو التجربة و اخباري last_______.rar

السلام عليكم اخي الحبيب محمد عسكر لك كل الشكر اخي الحبيب علي مرورك و كلماتك خالص تحياتي و تقديري

السلام عليكم اخي تم الحل بما استطعت فهمة ارجو ان يكون المطلوب تحياتي _______________.rar

السلام عليكم تفضل اخي تحياتي list.rar

السلام عليكم اخي tofimoon4 اتمني ان يكون هذا هو المطلوب تحياتي s_____.rar

السلام عليكم اخي eladawy_66 و فيك اخي الفاضل و مرفق الملف بهد التعديل لعام 2009 مع اضافة التظليل لايام الجمع تحياتي _______2009.rar

السلام عليكم اخي جرب هذا الملف تم التعديل للاخذ في الاعتبار 20 رقما بالنسبة للاهتزاز قد يحدث و هذا شئ طبيعي لعمل الكود جرب و اخبرني النتيجة تحياتي __________________________20____2.rar

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

السلام عليكم اخي بالنسبة للطلبات الاولي تم عملها ارجو التجربة مع ملاحظة انه عند الضغط علي اي خلية في العمود C اظهار كافة البيانات و مع الضغط علي اي خلية في العمود F سيتم اخفاء الصفوف بعد اخر رقم مسجل في العمود C مع تلوين المكرر في العمودان C & F اما بانسبة للصور قد قمت بعمل ملف مشابه سابقا و ليس امامي الان سارفعة لاحقا تحياتي ________________________.rar

السلام عليكم اخي لاهمية العمل تم عمله و اظهاره بمشاركة مستقلة لافادة اكبر عدد ممكن وهذا هو رابطه إضغط هنـــــــــا تحياتي

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