| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| creating a "date selector box" or "pull down box" in a cell | Excel Worksheet Functions | |||
| Convert numbers to date: "586" to read "May 1986" | Excel Worksheet Functions | |||
| Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
| change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
| Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
![m3s3lf[_4_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Hybrid Mode
