اخفاء أو حذف الاسطر التي بها عمود محدد خالي

[محمد طاهر عرفه]

هذا الكود يقوم باخفاء الاسطر التي لا توجد بها أي قيم فى العمود B

و يعتمد علي تسمية مجال محدد يسمي Myrange

لتحديد عدد الصفوف المطلوب ادراء هذه العملية عليها

Sub hidemptyRow_basedonthiscol()

'

' hideemptyRow Macro

' Macro recorded 25-12-02 by taher to hide empty rows in aselection



Application.ScreenUpdating = False


Application.Goto Reference:="myrange"


  Myrows = Selection.Rows.Count

  origraw = Myrows


ActiveCell.Select

For i = 1 To Myrows - 1

 If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate

    If ActiveCell.Value = "" Then

    ActiveCell.EntireRow.Hidden = -1

    ActiveCell.Offset(1, 0).Activate

      Myrows = Myrows - 1

    End If

   Application.StatusBar = " checking ...." & _

   Format(i / origraw, "0.0%") & "       Please Wait......."


Next i


    Application.ScreenUpdating = True

    Application.StatusBar = False

End Sub[/sql]

HideEmptyRows.zip

[محمد طاهر عرفه]

و هذا الكود المناظر لحذف الاسطر

و هنا لم يتم اختيار مجال باسم محدد ، و لكن يتم التنفيذ بناء علي اختيار المستخدم للخلاية selection

Sub deleteemptyRow()

'

' deleteemptyRow Macro

' Macro recorded 19/07/2000 by taher to delete empty rows in aselection

Application.ScreenUpdating = False


 Dim MyRow As Long, origraw As Long  ' Z As String

  MyRow = Selection.Rows.Count

  origraw = MyRow


ActiveCell.Select

'MsgBox MyRow

For i = 1 To MyRow

 If ActiveCell.Value <> "" Then ActiveCell.Offset(1, 0).Activate


 If ActiveCell.Value = "" Then

 ActiveCell.EntireRow.Delete

 MyRow = MyRow - 1

 End If



   Application.StatusBar = "Parsing / deleting ...." & _

   Format(i / origraw, "0.0%") & "       Please Wait......."


Next i


    Application.ScreenUpdating = True

    Application.StatusBar = False

End Sub[/sql]

DeleteemptyRows.zip

[احمد فضيله]

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