كود اخفاء اى صف يحتوى على كلمة

[abouelhassan]

الاساتذة اخواتى اثقل عليكم بطلباتى لعشمى الشديد فى كرمكم

احتاج كود اخفاء واظهار اى صف فى الملف يحتوى على كلمة سدد فى اى شيت 

مع الشكر من القلب

اظهار واخفاء صفوف.xlsm

[سليم حاصبيا]

جرب هذا الكود

Private Sub CommandButton1_Click()
Dim n%, Ro%, i%, x%
n = Sheets.Count
For i = 1 To n
  With Sheets(i)
      .Cells.EntireRow.Hidden = False
      Ro = .Cells(Rows.Count, "J").End(3).Row
      
      For x = 1 To Ro
          If .Cells(x, "J") = "سدد" Then
             .Cells(x, "J").EntireRow.Hidden = True
          End If
      Next x
  End With
Next i

 Unload Me
End Sub
'++++++++++++++++++++++++++++++++++++++

Private Sub CommandButton2_Click()
Dim n%, i%
n = Sheets.Count
For i = 1 To n
     Sheets(i).Cells.EntireRow.Hidden = False
  Next i
  Unload Me
End Sub

الملف مرفق

 

Abou_hassan.xlsm

[عبدالفتاح في بي اكسيل]

بعد  اذن  استاد  سليم  واثراء  للموضوع 

Private Sub CommandButton1_Click()
Dim i As Worksheet, myLoop As Long
    For Each i In Worksheets
        With i
            For myLoop = 2 To 104
                If .Cells(myLoop, "j").Value = "سدد" Then
                    .Rows(myLoop).Hidden = False
                Else
                    .Rows(myLoop).Hidden = True
                End If
            Next myLoop
        End With
    Next i
    End Sub

Private Sub CommandButton2_Click()
Dim i As Worksheet, myLoop As Long
    For Each i In Worksheets
        With i
            For myLoop = 2 To 104
                If .Cells(myLoop, "j").Value = "سدد" Then
                    .Rows(myLoop).Hidden = True
                Else
                    .Rows(myLoop).Hidden = False
                End If
            Next myLoop
        End With
    Next i
End Sub

 

اظهار واخفاء صفوف.xlsm

تم تعديل مايو 15, 2020 بواسطه عبدالفتاح في بي اكسيل

[abouelhassan]

اقسم بالله انا بدعى لحضرتك استاذنا سليم حاصبيا

من كل قلبى جزاك الله كل خير 

حفظك الله وبارك لك 

والله كل الحب والاحترام من اخيك

اشكرك استاذنا

استاذ عبد الفتاح اكثر الله خيرك وجزيت كل خير

اشكرك

احترام من القلب

اخيك

[سليم حاصبيا]

لقد قمت بحذف الملف من حهازي 

رجاء ارفع ملفاً جديداً يحتوي على قليل من البيانات العشوائية مع الكلمات التي تريدها ان تختفي صفوفها  ( في كل صفحة 10 صفوف  لا أكثر) 

[abouelhassan]

هذا هو الملف استاذنا سليم

بارك الله فيك استاذنا

حبيبي والله

احتاج للتعديل ليتم اخفاء الصفوف التى تحتوى على كلمة تم فى العمود b وانجز بالإضافة إلى كلمة سدد فى العمودj مع خالص تحياتي لشخصك الكريم وبارك الله فيك استاذنا

اخفاء واظهار صفوف بكلمة.xlsm

[سليم حاصبيا]

ربما ينفع هذا الكود

Private Sub CommandButton1_Click()
Dim n%, Ro%, i%, x%
Dim a, b As Boolean, c As Boolean
Dim st1$, st2$, st3$
st1 = "سدد": st2 = "انجز": st3 = "تم"
CommandButton2_Click

n = Sheets.Count
For i = 1 To n
  With Sheets(i)
      .Cells.EntireRow.Hidden = False
      Ro = .Cells(Rows.Count, "J").End(3).Row
    For x = 1 To Ro
      a = Cells(x, "J") = st1: b = .Cells(x, "B") = st2
      c = .Cells(x, "B") = st3
        If b Or c Then .Cells(x, "B").EntireRow.Hidden = True
        If a Then .Cells(x, "J").EntireRow.Hidden = True
    Next x
  End With
Next i

 Unload Me
End Sub
'++++++++++++++++++++++++++++++++++++++

Private Sub CommandButton2_Click()
Dim M%, t%
M = Sheets.Count
For t = 1 To M
     Sheets(t).Cells.EntireRow.Hidden = False
  Next t
  Unload Me
End Sub

 

Hide_Rows.xlsm

[abouelhassan]

اقسم بالله العظيم انا احبك فى الله استاذنا

يعجز الكلام عن شكرك والله من قلبى بارك الله فيك

حبيبي والله

اشكرك جدااا  حفظكم الله وبارك الله فيك استاذنا