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

[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

 

[Executor]

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

 

[m3s3lf]

IT'S PERFECT! THANK YOU SOOOOO MUCH! I REALLY APPRECIATE YOUR HELP!

 

[m3s3lf]

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

 

[Executor]

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