أبو حنــــين

اخي هذا يتطلب تغيير جذري و ان شاء الله ساقوم بذلك في القريب العاجل

السلام عليكم اخي ضاحي الغريب جزاك الله خيرا

السلام عليكم هذا مثال ارجو ان يفي بالغرض ملاحظة ثم تعديل الملف بعد رفعه قاطرات2.rar

السلام عليكم بعد اذن الخت الفاضلة ام عبد الله و اخي محمود قم بتظليل النطاق الذي تريده و اعتقد انه كل الخلايا ثم من التنسيق الشرطي اكتب التالي =AND($C7>0;$BG7<>0)

بارك الله فيكم شعار قمة في الجمال جزيت خيرا

الأخت الفاضلة : أم عبد الله أخي الأستاذ : أحمد فضيله جزاكم الله خيرا

اخي ايو خليل جرب الملف و ان كان هناك بعض الملاحظات اذكرها لي ابو خليل3.rar

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

بسم الله الرحمان الرحيم لا حول و لا قوة الا بالله العلي العظيم انا لله و انا اليه راجعون نسأل الله له الرحمة و المغفرة و الجنة و لذويه الصبر و السلوان عظم الله اجركم

السلام عليكم السؤال غير واضح انظر المرفق هل بهذه الطريقة Book1.rar

نعم و ذلك باستخدام التحقق من صحة البيانات

السلام عليكم اخي ابو خليل هذه مجرد محاولة لكنها تتطلب التعديل Compressed.rar

السلام عليكم اعتقد ان الخلل في تنسيق الخلية شاهد الصورة

اخي الحبيب : / رجب جزاك الله خيرا على المختصر المفيد تقبل تحياتي

جزاك الله خيرا الأخت الفاضلة ام عبد الله عمل متقن

أخي محمود الشريف جزاك الله خيرا تقبل تحياتي

*********************************************** جزاك الله خيرا اخي : محمود الشريف على المرور *********************************************** بالنسبة للسؤال الأخ Private Sub CommandButton1_Click() With Columns("E:E").EntireColumn If .Hidden = False Then .Hidden = True Else .Hidden = False End With End Sub

للاخفاء نستعمل Columns("E:E").EntireColumn.Hidden = True و للاظهار نستعمل Columns("E:E").EntireColumn.Hidden = False على اعتبار ان العمود المعني هو E

السلام عليكم ارسل مثالا على طلبك

السلام عليكم لا ادري ان كان العمل صحيح او لا جرب المرفق ************************************************* نسيت ان اكتب معادلة في صفحة : حفظ الحافظة و هذه المعادلة تكتب امام كلمة اجمالي في الخلية F1 =SUM(F3:F50000) حوافظ مصرفية.rar

السلام عليكم لماذا لا تعمل التنسيق الشرطي للخلايا الاقل من الصفر او الشرط الذي تريده

أخي حمادة عمر جزاك الله خيرا

السلام عليكم جزاك الله خيرا أخي : محمود الشريف ******************************************************** شرح الكود : هذا السطر فيه التصريح بالمتغيرات Dim lr As Long, Last As Long, Last1 As Long, i As Long هذا السطر معناه اذا كان مربع البحث فارغا فلا تعمل اي شيئ If TextBox1 = "" Then Exit Sub هذا السطر لمنع اهتزاز الشاشة Application.ScreenUpdating = False هذا السطر لمعرفة آخر خلية تحتوي على بيانات lr = Cells(Rows.Count, "C").End(xlUp).Row + 1 هذا السطر معناه اننا سنقوم باسناد بعض الاشياء للنطاق الذي يحتوي على بيانات With Range("B6:D" & lr) الاشياء التي اسندناها هي : 1 مسح المحتوي .ClearContents 2 مسح الاطارات .Borders.Value = 0 3 جعل الخط عادي وليس سميك .Font.Bold = False 4 حجم الخط =11 .Font.Size = 11 5 الخلفية بدون لون .Interior.ColorIndex = 0 6 تنسيق الخلايا عام .NumberFormat = "General" نهاية الاسناد End With ******************************************************************************* تعيين آخر خلية مكتوبة في صفحة البيانات Last = Sheets("AAA").Cells(Rows.Count, "C").End(xlUp).Row تعيين رقم الصف الذي ستنقل اليه البيانات x = 6 انظر في الخلايا من أول خلية الى آخر خلية مكتوبة For i = 1 To Last اذا كانت الخلية في العمود الرابع تساوي ما هو مكتوب في مربع النص و بعدها بخليتين لا تساوي الحرف : غ If Sheets("AAA").Cells(i, 4).Value = TextBox1.Text And Sheets("AAA").Cells(i, 4).Offset(0, 2) <> "غ" Then قم بنسخ العمود الثالث و الخامس والسادس Union(Sheets("AAA").Range("C" & i), Sheets("AAA").Range("E" & i), Sheets("AAA").Range("F" & i)).Copy قم بالصق ابتداءا من الصف السادس Range("B" & x).PasteSpecial xlPasteValues ثم ارسم الاطار لكل خلية Range("B6:D" & x).Borders.Value = 1 و اكتب كلمة الاجمالي في الاخير Range("B" & x + 1) = "الاجمـــــــالي" و اجمع ما هو موجود في العمود : C Range("C" & x + 1) = Application.WorksheetFunction.Sum(Range("C6:C" & x)) ارسم اطار الكلمة اجمالي و المجموع Range("B" & x + 1).Borders.Value = 1 Range("C" & x + 1).Borders.Value = 1 اكمل باقي الخلايا x = x + 1 نهاية الشرط End If اكمل Next ***************************************************************************************** الجزئية التالية للتنسيق Last1 = Cells(Rows.Count, "C").End(xlUp).Row If Last1 < 6 Then Exit Sub With Range("B" & Last1 & ":" & "C" & Last1) .Font.Bold = True: .Font.Size = 14: .Interior.ColorIndex = 43: .NumberFormat = "#,##0" End With Application.ScreenUpdating = True Application.CutCopyMode = False و السلام عليكم

السلام عليكم جرب المرفق 210_.rar

او استعمل هذا الكود Sub sCopy_To_Sheets1() Application.ScreenUpdating = False Last = Sheets("الرئيسية").Cells(Rows.Count, "A").End(xlUp).Row For j = 1 To Last For i = 1 To Sheets.Count If CStr(Sheets("الرئيسية").Cells(j, 7)) = Sheets(i).Name Then x = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets("الرئيسية").Range("A" & j).Resize(1, 8).Copy Sheets(i).Range("A" & x).PasteSpecial xlPasteValues x = x + 1 End If Next Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub