رجب جاويش

أخى الفاضل / الجواد الأبيض جزاك الله كل خير أخى الفاضل على كلماتك الطيبة

أخى الحبيب / أبو حنين تسلم ايديك دائما ابداعاتك لا تنتهى

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

الأخ الفاضل / محود الشريف الأخ الفاضل / عمرو موضوع بالفعل مميز ويحتاجه الكثير جزاكما الله خيراً

أخى الحبيب / أبو حنين شكرا جزيلا أخى الحبيب على مرورك العطر وكلماتك الطيبة

السلام عليكم تفضل أخى Sub Ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "الشيت الاساسي " Then sh.Range("A1:F1000").ClearContents End If Next LR = Cells(Rows.Count, 2).End(xlUp).Row For Each cl In Range("C2:C" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x With Sheets(x) .Move After:=Sheets(Sheets.Count) .DisplayRightToLeft = True End With End If Sheets("الشيت الاساسي ").Range("A1:F1").Copy With Sheets(x) .Range("A1").PasteSpecial xlPasteValues .Range("A1").PasteSpecial xlPasteFormats End With cl.Offset(0, -2).Resize(1, 6).Copy With Sheets(x) .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats .Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths .Cells(Sheets(x).Cells(Rows.Count, 2).End(xlUp).Row, 1) = Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 2).End(xlUp).Row, 1).Row - 1 End With Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("الشيت الاساسي ").Select Application.ScreenUpdating = False End Sub المبيعات الشهرية1.rar

أخى الحبيب / محمد أبو البراء شكرا جزيلا أخى الحبيب على هذا المرور العطر والكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / محمود الشريف شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة وجزاك الله كل خير

أخى الحبيب / أبو محمد عباس تسلم ايديك وتسلم أفكارك الشرف لى أنا فى معرفة شخص محترم مثلك

أخى الفاضل أرجو مزيد التوضيح أعذرنى لأنى مش تمام فى الأمور الرياضية بالقدر الكافى

أستاذى الحبيب / عبد الله باقشير تسلم ايديك أخى الحبيب / أبو حنين تسلم ايديك ولشرف المشاركة معكم هذا كود آخر لتظليل الأسماء المتشابهه بين عمودين فكرة الكود ليست نهائية ولكنها تحتاج لبعض التعديلات حيث تكون غير دقيقة عند كثرة الأسماء وتكرارها فى العمود الواحد ( ولكنها فكرة للبداية ) Sub ragab() Sheets("sheet1").UsedRange.Font.ColorIndex = 1 xx = 7 Application.ScreenUpdating = False For i = 1 To [A1000].End(xlUp).Row For ii = 0 To UBound(Split(Cells(i, 1))) x = Split(Cells(i, 1))(ii) For T = 1 To [B1000].End(xlUp).Row R = InStr(1, Range("B" & T), x) If R >= 1 Then Cells(T, 2).Characters(Start:=R, Length:=Len(x)).Font.ColorIndex = xx For TT = 1 To [A1000].End(xlUp).Row RR = InStr(1, Range("A" & TT), x) If RR >= 1 Then Cells(TT, 1).Characters(Start:=RR, Length:=Len(x)).Font.ColorIndex = xx End If Next End If Next xx = xx + 1 Next Next Application.ScreenUpdating = True End Sub تظليل الأسماء المتشابهه فى عمودين.rar

السلام عليكم تفضل أخى Rank.rar

شكرا جزيلا أخى الفاضل أحمد على هذا الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / عادل ابو زيد جزاك الله كل خير على هذه الكلمات الطيبة

السلام عليكم تفضل أخى جرب المرفق نتائج المستويات.rar

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

أخى الفاضل / محمود الشريف شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / محمود الشريف جزاك الله كل خير على هذه الكلمات الطيبة

السلام عليكم تفضل أخى الفاضل لعل هذا الحل يفى بالغرض وهو يعتمد على استخدام أرقام الأعمدة المكتوبة فى الصف الثالث شيت اعدادى.rar

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

أخى الحبيب / محمد هى فعلا ثلاث شهادات فقط يتم من خلالها عرض الشهادات الثلاث الأولى وعن طريق تغير المسلسل يتم عرض الشهادات الثلاث التالية وهكذا أما الكود المستخدم للطباعة الكل فهو كالاتى Sub طباعة_الكل_شهادات() Range("h3").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 3 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value = Range("d1").Value Range("a1").Select End Sub

أخى الحبيب / محمد كما فى الصورة المرفقة يتم بدالة vlookup البحث عن درجات الطالب باستخدام المسلسل الموجود بالخلية H3 وذلك فى الشهادة الأولى والشهادة الثانية فى نفس الصفحة نزيد واحد على الرقم الموجود فى الخلية H3 وكذلك فى الشهادة الثالثة وعن طريق الكود يتم زيادة الرقم الموجود فى الخلية H3 ليتم عرض الشهادات الثلاث التالية وهكذا لتتم الطباعة يمكنك التجربة فى الشيت وملاحظة التغير الذى يحدث للرقم الموجود فى الخلية H3 ويمكنك تغيره يدويا بدون طباعة لتلاحظ الفرق

أخى الحبيب / محمد بالفعل هى صفحة واحدة فقط للشهادات يتم جلب البيانات اليها من الشيت ولا يوجد شهادات مخفيه

أخى الفاضل / احمد الحاوى جزاك الله كل خير على كلماتك الطيبة

أخى الحبيب / محمد أبو البراء جزاك الله كل خير أرجو توضيح طلبك أكثر