يثرب

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

Book4sssss.xlsx

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

السلام عليكم و رحمة الله و بركاته لو سمحتم محتاج الملف ده ضرورى ترتيب من الاكبر سنا الى الاصغر بجميع خاناته يعنى يترتب مع الاسم و السن الكود و الرقم القومى و شكرا مقدما لحضراتكم من الاكبر للاصغر.xlsx

انا استخدم هذا الكود لعمل زر تنقل لابين اوراق العمل واريد التعديل عليه بحيث لا يظهر كل اوراق العمل ولكن يظهر مجموعه احددها له فأرجوا التوضيح على هذا المثال التنقل بين جميع الشيتات بزر واحد.rar

شكرا على استجابتك الكريمه مرفق ملف للتوضيح ليس هذا ما اريده و انا آسف تعبتك معى أخى الفاضل التنقل بين جميع الشيتات بزر واحد.rar

اولاً شكرا على ردك ثانياً ليس هذا ما اريده ولكن اريد كود لزر يظهر فقط اسماء اوراق العمل التى احدده و لمزيد من التوضيح انا بستخدم هذا الكود لكنه يظهر كل اوراق العمل انا اريد تحديد اوراق معينه للظهور Sub SheetList_CP() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If On Error GoTo 0 End Sub

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

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

هذا هو الشيت و شاكر لسرعة الردالرابع.rar

لم استطع تطبيق الشرح على الشيت الخاص بى و اريد ان اعرف ما اغيره فى كود الاخ رجب جاويش ليتناسب مع شيتى علما بان الشيت الخاص بى يبدأ المسلسل من a10 و الدرجات من i10 و كلنة راسب او ناجح تظهر فى الخلية bh10 و اخر الصفوف 300 و آخر خليه فى الشيت هى bh10 و هذا هو كود الاخ رجب جاويش ارجو توضيح ما يجب تغييره ليتناسب مع الشيت الخاص بى و شكرا sub ragab() Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents Application.ScreenUpdating = False x = 9: y = 9 For i = 9 To lr If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" Application.ScreenUpdating = True End Sub

الاخوه الافاضل كل سنه و انتم طيبين حاولت مرارا و تكرارا تطبيق الشرح على شيت خاص بى لترحيل الناجحين و الراسبين و لم استطع علما بان الشيت عندى يبدأ من الخليه a10 مسلسل و الدرجات من الخليه i10 الى bh10 و كلمة راسب او ناجح تظهر فى الخليه bh10 فأرجوا التوضيح فى هذا الكود ما يلزم تغييره و شاكر جدا لردكم مسبقا و هذا كود الاخ رجب جاويش sub ragab() Dim lr As Integer, y As Integer lr = [b10000].End(xlUp).Row Sheets("ناجحون").Range("a9:ho1000").ClearContents Sheets("راسبون").Range("a9:ho1000").ClearContents Application.ScreenUpdating = False x = 9: y = 9 For i = 9 To lr If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("ناجحون").Range("a" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then Range("a" & i).Resize(1, 223).Copy Sheets("راسبون").Range("a" & y).PasteSpecial xlPasteValues Application.CutCopyMode = False y = y + 1 End If Next i MsgBox "تم بحمد الله فصل الناجحين والراسبين فى كشوف منفصلة", vbOKOnly, "ترحيل الناجحون والراسبون" Application.ScreenUpdating = True

شكرا شكرا

الى جميع الأخوه فى المنتدى أسجل إعجابى و إعترافى بجميلكم فما من مرة أبحث عن مشكلة إلا و أجد الحل لديكم فشكرا جزيلا لكم و بارك الله لكم فى صحتكم و رزقكم و أهليكم

انا شاكر جدا لسرعة الرد و سوف اقوم بالمحاولة و ارد على حضرتك