sub macro1()
range("b2").select
do while activecell.row < 100
if activecell.value = "" and activecell.offset(0,1).value = "" then
Selection.EntireRow.Hidden = True
endif
activecell.offset(1,0).select
loop
end sub
Cells.Select
Selection.EntireRow.Hidden = Fals
Sub sbUnHideRows()
Rows("4:204").EntireRow.Hidden = False
End Sub
Sub Hide()
Application.ScreenUpdating = False
Dim A As Range
z1 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "b").End(xlUp).Row
z2 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "f").End(xlUp).Row
If z1 >= z2 Then
With ActiveSheet.Range("B1:B126")
Do
Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If A Is Nothing Then Exit Do
A.EntireRow.Hidden = True
Loop
End With
Else
With ActiveSheet.Range("f1:f126")
Do
Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
MatchCase:=False)
If A Is Nothing Then Exit Do
A.EntireRow.Hidden = True
Loop
End With
End If
Application.ScreenUpdating = True
End Sub
Sub Hide()
Application.ScreenUpdating = False
Range("A4").Select
Do Until ActiveCell.Offset(1, 0) = ""
ActiveCell.Offset(1, 0).Select
Loop
Z1 = ActiveCell.Row+1
Range("E4").Select
Do Until ActiveCell.Offset(1, 0) = ""
ActiveCell.Offset(1, 0).Select
Loop
Z2 = ActiveCell.Row+1
If Z1 >= Z2 Then
Rows(Z1 & ":" & Z1).Select
Range(Selection, Cells(250, 1)).Select
Selection.EntireRow.Hidden = True
Else
Rows(Z2 & ":" & Z2).Select
Range(Selection, Cells(250, 1)).Select
Selection.EntireRow.Hidden = True
End If
Rows("251:256").EntireRow.Hidden = False
Range("F256").Select
Application.ScreenUpdating = True
End Sub
کامنت