paste special with date

[tlindeman]

Please supply me with the vba code for the following, if today()>05/01/11 then copy A2:A4 paste special to A2:A4, if today()>06/01/11 then copy A2:A11 paste special to A2:A11 etc.

Thank You
Tony

 

[sahild05]

wouldn't copying/pasting special to the same range be redundant? and paste what - format/ values/ borders/ add etc. ?

 

[MrKowz]

Perhaps:

If Date > DateSerial(2011, 6, 1) Then
    Range("A2:A11").Value = Range("A2:A11").Value
ElseIf Date > DateSerial(2011, 5, 1) Then
    Range("A2:A4").Value = Range("A2:A4").Value
End If

 

[tlindeman]

Thank you , I need to paste special values because I have formulas I need to overwrite each month.

Tony