Copy and Paste Macro or Formula

[lorenzoc]

Hello everyone, thanks for the help. Heres the situation,

I would like a formula or macro that would recognize an answer to a question and populate a group of headings in another sheet.My thought is it would be copy and paste related. Specifically, =If(sheet1A1=2013,then show January 2013, February 2013, March 2013 etc in Sheet 2A1-A120. I would have all these months written out somewhere else to be copy and pasted.

Please let me know if anyone has any thoughts or needs clarification.

thanks so much,

Lorenzo

 

[XLfriend777]

Try the code below Lorenzo. It creates a new tab and names it the value in A1 and then enters and formats the months/year as you desire. There are certainly more elegant solutions, but this may work.
Sub LorenzocDates()
Dim start As String
start = Cells(1, 1).Value
Sheets.Add
ActiveSheet.Name = start 'Names the new sheet the value that was in A1
Cells(1, 1).Value = "January " & start
Cells(1, 2).Value = "February " & start
Cells(1, 3).Value = "March " & start
Cells(1, 4).Value = "April " & start
Cells(1, 5).Value = "May " & start
Cells(1, 6).Value = "June " & start
Cells(1, 7).Value = "July " & start
Cells(1, 8).Value = "August " & start
Cells(1, 9).Value = "September " & start
Cells(1, 10).Value = "October " & start
Cells(1, 11).Value = "November " & start
Cells(1, 12).Value = "December " & start
'Format Cells
Range("A1:L1").Select
Selection.NumberFormat = "mmmm yyyy"
End Sub

 

[lorenzoc]

Thanks so much!!

 

[XLfriend777]

You are very welcome. Hope that worked for you.