Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
Hello there.. I was trying to cut the entire row and paste it to another
sheet if date is more than 20 days say date column is 'H' Someone please help me on this.. Thank you.. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
If date is more than 20 days what. In the past? In the future? something else?
-- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Kash" wrote: Hello there.. I was trying to cut the entire row and paste it to another sheet if date is more than 20 days say date column is 'H' Someone please help me on this.. Thank you.. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
I'm sorry.. if date is 20 days behind..
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
Hi,
try this Sub stance() Dim MyRange Dim CopyRange As Range Set sht = Sheets("Sheet1") lastrow = sht.Cells(Cells.Rows.Count, "H").End(xlUp).Row Set MyRange = sht.Range("H1:H" & lastrow) For Each c In MyRange If c.Value < Date - 20 Then If CopyRange Is Nothing Then Set CopyRange = c.EntireRow Else Set CopyRange = Union(CopyRange, c.EntireRow) End If End If Next If Not CopyRange Is Nothing Then CopyRange.Copy Destination:=Sheets("Sheet2").Range("A1") End If End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Kash" wrote: I'm sorry.. if date is 20 days behind.. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
This works great.. Thank you Mike
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
If date more than
Glad I could help and thanks for the feedback
-- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Kash" wrote: This works great.. Thank you Mike |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Concatenate including a date so that the date appears as a date | Excel Worksheet Functions | |||
date in Cell to change colors if the date is beyond today's date | Excel Discussion (Misc queries) | |||
Report Date - Date Recv = Days Late, but how to rid completed date | Excel Worksheet Functions | |||
copy date based on date -refer to date range | Excel Programming | |||
Date updates from worksheet to chart & changes date to a date series! Help!! | Charts and Charting in Excel |