Copy paste based on current month

[austin350s10]

Is there a way to copy a range of cells based on the current month?

Something like this maybe:

if systemMonth=12 then
      Range("A1:D12").Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

else systemMonth=11 then
      Range("A1:D11").Select
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

'so on.....through the months of the year

end if

 

[VoG]

Try

Range("A1:D" & Month(Date)).Copy

 

[austin350s10]

How would I modify this so if the system month = 12 it copy/pastes a certain range but if the system month = 11 it copy/pastes a different range?

EXAMPLE:

if system month=12, then copy/paste range = "A1:D12"
if system month=11, then copy/paste range = "A1:D11"
if system month=10, then copy/paste range = "A1:D10"
if system month=9, then copy/paste range = "A1:D9"
if system month=8, then copy/paste range = "A1:D8"
if system month=7, then copy/paste range = "A1:D7"
if system month=6, then copy/paste range = "A1:D6"
if system month=5, then copy/paste range = "A1:D5"
if system month=4, then copy/paste range = "A1:D4"
if system month=3, then copy/paste range = "A1:D3"
if system month=2, then copy/paste range = "A1:D2"
if system month=1, then copy/paste range = "A1:D1"

I was thinking a giant if then statement but Im not too sure :-\

Thank You For Your Help

 

[VoG]

No need for If

Sub atest()
With Range("A1:D" & Month(Date))
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With
End Sub

 

[austin350s10]

Cool that works really good. My bad though. I was taking a closer look at the application I plan on using this script in and the range order is a bit different. Can't seem to adjust your code to fit.

Should be:

if system month=12, then copy/paste A1:L12
if system month=11, then copy/paste A1:K12
if system month=10, then copy/paste A1:J12
if system month=9, then copy/paste A1:I12
.......

Any ideas?

Sorry....

 

[VoG]

Try

Sub atest()
With Range(Cells(1, 1), Cells(12, Month(Date)))
    .Copy
    .PasteSpecial Paste:=xlPasteValues
End With
End Sub

 

[austin350s10]

Perfect!!!!! Thanks a ton