حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك. 1. اضغط Ctrl + H لفتح نافذة "استبدال". 2. أدخل القيمة التي تبحث عنها في حقل "البحث عن". 3. اترك حقل "استبدال بـ" فارغًا. 4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ". 5. اختر لون التعبئة (Fill color) الذي تريده. 6. اضغط "موافق" (OK). 7. اضغط "استبدال الكل" (Replace All). سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.

جزاكم الله خيرا اخى وجعله الله في ميزان حسناتك يوم القيامة

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

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

ما الفائده من هذه التقسيمات

تفضل Sub Clean_Trim() Dim rng As Range Set rng = sheet1.Range("C2:C46023") rng.Value = Evaluate("INDEX(CLEAN(TRIM(" & rng.Address & ")),)") End Sub

وعليكم السلام ورحمة الله وبركاته اخي عبدالله بشير تعديل بسيط للكود Private Sub Worksheet_Calculate() Application.EnableEvents = False Application.ScreenUpdating = False Dim cell As Range Dim rngHide As Range For Each cell In Me.Range("E6:E12") If cell.Value = 0 Then If rngHide Is Nothing Then Set rngHide = cell Else Set rngHide = Union(rngHide, cell) End If End If Next cell Me.Range("E6:E12").EntireRow.Hidden = False If Not rngHide Is Nothing Then rngHide.EntireRow.Hidden = True End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub

وعليكم السلام ورحمة الله وبركاته استخدم هذا المعادله واسحبها الي قدر ما تحتاج من الصفوف =CLEAN(TRIM(C2))

وعليكم السلام ورحمة الله وبركاته حضرتك محتاج توزيعهم من اجل الطباعه فقط اي تاتي ب اول ٩٠ اسم ويتم طباعتهم كما في الصورة التاليه ثم يتم طباعتها ثم تاتي الدفعه الثانيه من الاسماء من ٩١ الي ١٨٠ في نفس الخلايا الأولى ام ماذا يرجي الاستفاضه في شرح المطلوب

وعليكم السلام ورحمة الله وبركاته ارفق ملف اخي

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

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

وعليكم السلام ورحمة الله وبركاته تم رفع الملف بالمشاركه الاولي في الموضوع جزى الله عنا خيرا استاذنا الغالي ياسر خليل

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

اسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما طهور ان شاء الله