اذهب الي المحتوي
أوفيسنا

يثرب

عضو جديد 01
  • Posts

    17
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 Neutral

عن العضو يثرب

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    teacher

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. مليار شكرا اخى العزيز و جعله الله فى ميزان حسناتك استاذ محمد صالح
  2. الاخ الفاضل محمد صالح بحثت بالفعل و وجدت مواضيع مفيده و لكن عند محاولة التطبيق على الملف الخاص بى اجد نصف العدد فقط و لكن باقى الصفوف للاسفل اجد خطأ فى المعادلة و لا اعرف السبب
  3. السلام عليكم و رحمة الله و بركاته لو سمحتم محتاج الملف ده ضرورى ترتيب من الاكبر سنا الى الاصغر بجميع خاناته يعنى يترتب مع الاسم و السن الكود و الرقم القومى و شكرا مقدما لحضراتكم من الاكبر للاصغر.xlsx
  4. انا استخدم هذا الكود لعمل زر تنقل لابين اوراق العمل واريد التعديل عليه بحيث لا يظهر كل اوراق العمل ولكن يظهر مجموعه احددها له فأرجوا التوضيح على هذا المثال التنقل بين جميع الشيتات بزر واحد.rar
  5. شكرا على استجابتك الكريمه مرفق ملف للتوضيح ليس هذا ما اريده و انا آسف تعبتك معى أخى الفاضل التنقل بين جميع الشيتات بزر واحد.rar
  6. اولاً شكرا على ردك ثانياً ليس هذا ما اريده ولكن اريد كود لزر يظهر فقط اسماء اوراق العمل التى احدده و لمزيد من التوضيح انا بستخدم هذا الكود لكنه يظهر كل اوراق العمل انا اريد تحديد اوراق معينه للظهور 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
  7. أريد عمل زر تنقل بين اوراق محدده مثلا شيت به 20 ورقه اريد عمل زر مخصص لكل خمس ورقات
  8. اللهم اجعل هذا العمل فى ميزان حسناتك لا استطيع ان اوفيك حقك فى سرعة الرد و حل مشكلتى بارك الله لك فى رزقك و عافيتك
  9. لم استطع تطبيق الشرح على الشيت الخاص بى و اريد ان اعرف ما اغيره فى كود الاخ رجب جاويش ليتناسب مع شيتى علما بان الشيت الخاص بى يبدأ المسلسل من 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
  10. الاخوه الافاضل كل سنه و انتم طيبين حاولت مرارا و تكرارا تطبيق الشرح على شيت خاص بى لترحيل الناجحين و الراسبين و لم استطع علما بان الشيت عندى يبدأ من الخليه 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
  11. الى جميع الأخوه فى المنتدى أسجل إعجابى و إعترافى بجميلكم فما من مرة أبحث عن مشكلة إلا و أجد الحل لديكم فشكرا جزيلا لكم و بارك الله لكم فى صحتكم و رزقكم و أهليكم
  12. انا شاكر جدا لسرعة الرد و سوف اقوم بالمحاولة و ارد على حضرتك
×
×
  • اضف...

Important Information