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

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

--------------------

Thank You!


--
m3s3lf
------------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...o&userid=34874
View this thread: http://www.excelforum.com/showthread...hreadid=551619

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

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 wrote:
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

--------------------

Thank You!


--
m3s3lf
------------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...o&userid=34874
View this thread: http://www.excelforum.com/showthread...hreadid=551619

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

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

Executor Wrote:
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 wrote:
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

--------------------

Thank You!


--
m3s3lf

------------------------------------------------------------------------
m3s3lf's Profile:
http://www.excelforum.com/member.php...o&userid=34874
View this thread:
http://www.excelforum.com/showthread...hreadid=551619


--
m3s3lf
------------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...o&userid=34874
View this thread: http://www.excelforum.com/showthread...hreadid=551619

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

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

--
m3s3l
-----------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...fo&userid=3487
View this thread: http://www.excelforum.com/showthread.php?threadid=55161

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

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



m3s3lf wrote:
Hmmm... do you happen to know of an easy way to skip blank lines (not
hide blank lines)?
Thanks again!


--
m3s3lf
------------------------------------------------------------------------
m3s3lf's Profile: http://www.excelforum.com/member.php...o&userid=34874
View this thread: http://www.excelforum.com/showthread...hreadid=551619