Hide row if date "A" is later than date "B"

  • Thread starter Thread starter m3s3lf
  • Start date Start date
M

m3s3lf

I want to go through rows 5-500 on Sheet1 and hide every row where the
date in column F is greater than the date in cell D4 on Sheet2. Can
somebody please help me! I've been working on this for days!

I was trying to modify this macro, but I'll take whatever works!

Code:
--------------------

Sub HideRows()
BeginRow = 1
EndRow = 100
ChkCol = 3

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 5 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub
 
Hi m3s3lf

Try this:

Sub HideRows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim rowCnt As Integer
Dim chkCol As Integer
Dim datRef As Date

BeginRow = 1
EndRow = 100
chkCol = 6
datRef = Sheets("Sheet2").Range("D4")

For rowCnt = BeginRow To EndRow
If Cells(rowCnt, chkCol).Value > datRef Then
Cells(rowCnt, chkCol).EntireRow.Hidden = True
End If
Next rowCnt
End Sub


HTH,

Executor
 
Hmmm... do you happen to know of an easy way to skip blank lines (no
hide blank lines)?
Thanks again
 
Hi m3s3lf

Try this:


Sub HideRows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim rowCnt As Integer
Dim chkCol As Integer
Dim datRef As Date


BeginRow = 1
EndRow = ActiveSheet.UsedRange.Rows.Count ' To check all lines
chkCol = 6
datRef = Sheets("Sheet2").Range("D4")

For rowCnt = BeginRow To EndRow
If Not IsEmpty(Cells(rowCnt, chkCol)) Then
If IsDate(Cells(rowCnt, chkCol)) Then
If Cells(rowCnt, chkCol).Value > datRef Then
Cells(rowCnt, chkCol).EntireRow.Hidden = True
End If
End If
End If
Next rowCnt
End Sub


HTH,


Executor
 
Back
Top