يثرب

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

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

شكرا شكرا

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

 

يمكنك عمل موقع مجانى باستخدام هذا الرابط https://sites.google.com

 إضغط على كلمة إنشاء

 

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

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

بارك الله لك في علمك و جعل عملك صالحا و في ميزان حسناتك