الغاء او اخفاء الصف الذي به خليه ملونه

[عادل حنفي]

السلام عليكم

ارجوا التجربة وابداء المقترحات

تحياتي

______________________________________.rar

[احمدزمان]

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

الأخ الفاضل عادل

عمل جميل ورائع

جزاك الله خيرا

[عادل حنفي]

السلام عليكم

الاخ الحبيب احمد يعقوب اشكرك علي مرورك

و كلماتك التي اعتز بها

[khokhah]

لو سمحت عرفنا عملتها ازاى اكرمك الله

[عادل حنفي]

السلام عليكم

لشرح العمل

يوجدملف مرفق يشرح كيفية ادراج زر و ربطه بماكرو والدخول علي محرر الاكواد و ادراج Module جديد و لصق الكود فيه

'اولا كود الاخفاء
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/9/2008 by Adel
'

'
With Sheets("Sheet1")
    i = 1
      For i = 1 To 1000
  Rows(i).Select
      For Each cell In Selection
  If cell.Interior.ColorIndex > 0 Then
With Selection.EntireRow.Hidden = True
       Rows(i).Hidden = True
       End With
    End If
        
        Next
          Next
             End With
             Range("A1").Select
             MsgBox ("تـــم")
End Sub

'ثانيا كود الالغاء
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 10/9/2008 by Adel
'

'
With Sheets("Sheet1")
    i = 1
      For i = 1 To 1000
  Rows(i).Select
      For Each cell In Selection
  If cell.Interior.ColorIndex > 0 Then
      

Selection.Delete Shift:=xlUp
       'Rows(i).deleted
       'End With
    End If
        
        Next
          Next
             End With
             Range("A1").Select
MsgBox ("تـــم")
End Sub

اضافه الي الامر

call Macro1

تحياتي

hid_or_delet.rar

[عادل حنفي]

السلام عليكم

هذا فقط ليكتمل الموضوع

فانه يتم اضافة ملف لالغاء اي صف واي عمود في نطاق

معين ليس به خليه ملونه او ليس به خليه بها conditional formatting

color_final.rar

تم تعديل أكتوبر 17, 2008 بواسطه aah_aah2008