Excel macros
Closed
bkballer2000
Posts
1
Registration date
Thursday 12 February 2009
Status
Member
Last seen
13 February 2009
-
13 Feb 2009 à 14:06
Helper - 13 Feb 2009 à 15:10
Helper - 13 Feb 2009 à 15:10
Related:
- Excel macros
- Excel online macros - Guide
- Excel mod apk for pc - Download - Spreadsheets
- Unlock excel vba and excel macros - Guide
- Vat calculation excel - Guide
- Kernel for excel repair - Download - Backup and recovery
1 response
This assumes that the word "YES" is in column A.
Private Sub HideRows()
Dim intLastRow As Integer
Dim intRow As Integer
intLastRow = Range("A65536").End(xlUp).Row
For intRow = intLastRow To 1 Step -1
Rows(intRow).Select
If Cells(intRow, 1).Value <> "YES" Then
Cells(intRow, 1).Select
Selection.EntireRow.Hidden = True
End If
Next intRow
End Sub
Private Sub HideRows()
Dim intLastRow As Integer
Dim intRow As Integer
intLastRow = Range("A65536").End(xlUp).Row
For intRow = intLastRow To 1 Step -1
Rows(intRow).Select
If Cells(intRow, 1).Value <> "YES" Then
Cells(intRow, 1).Select
Selection.EntireRow.Hidden = True
End If
Next intRow
End Sub
