I have to Macros. The first one will copy data from one sheet and
paste it to another. The second one will then change the data in
certain cells to the proper Month Name.

What I would like to do is have one macro for each month. After it
inputs the proper month name, it then runs the copy and paste macro.
Is there a way to do this???

Any help is MUCH appreciated!

First Module:

Public Sub CopyPaste()

'
Sheets("Forecast Report").Select 'Copies Total Yards from
currenct Forecast and pastes
Range("E105").Select 'to LST FRCST PRDCT
Total for the new Forecast Report
Selection.Copy
Range("AL105").PasteSpecial xlPasteValues




End Sub

Second Module:

Sheets("Worksheet").Select
'Pastes "January" in Month headers
Range("B4").Select
ActiveCell.FormulaR1C1 = "January"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Sheets("Forecast Report").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "January"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Range("B4:B6").Select
End Sub

I need to run one module and then the other. The order doesn't matter.
However, I will have 12 modules similar to module 2, one for each
month. I don't want to just paste the code from module 1 into two
because I will be adding to it later.
Jim Thomlinson wrote:
Post your code...
--
HTH...

Jim Thomlinson


"cheeser83" wrote:

I have to Macros. The first one will copy data from one sheet and
paste it to another. The second one will then change the data in
certain cells to the proper Month Name.

What I would like to do is have one macro for each month. After it
inputs the proper month name, it then runs the copy and paste macro.
Is there a way to do this???

Any help is MUCH appreciated!

Thank You! I figured out what I was doing wrong in the second module
with your help with it. I was not putting the Call CopyPaste within
the same Sub routine.

As far as shortening my code goes, I will try that out also. Thank you
for the help!

Jim Thomlinson wrote:
Try this... Your code can be really shortened up a whole pile...

Public Sub CopyPaste()
With Sheets("Forecast Report")
.Range("AL105").Value = .Range("E105").Value
End With
End Sub

Second Module:

'Pastes "January" in Month headers
With Sheets("Worksheet").Range("B4")
.Value = "January"
.Font.FontStyle = "Bold"
.Font.ColorIndex = 2
End With
With Sheets("Forecast Report").Range("B3").
.Value = "January"
.Font.FontStyle = "Bold"
.Font.ColorIndex = 2
End With
Sheets("Forecast Report").Range("B4:B6").Select
Call CopyPaste 'Call the CopyPaste Routine
End Sub

--
HTH...

Jim Thomlinson


"cheeser83" wrote:

First Module:

Public Sub CopyPaste()

'
Sheets("Forecast Report").Select 'Copies Total Yards from
currenct Forecast and pastes
Range("E105").Select 'to LST FRCST PRDCT
Total for the new Forecast Report
Selection.Copy
Range("AL105").PasteSpecial xlPasteValues




End Sub

Second Module:

Sheets("Worksheet").Select
'Pastes "January" in Month headers
Range("B4").Select
ActiveCell.FormulaR1C1 = "January"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Sheets("Forecast Report").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = "January"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Range("B4:B6").Select
End Sub

I need to run one module and then the other. The order doesn't matter.
However, I will have 12 modules similar to module 2, one for each
month. I don't want to just paste the code from module 1 into two
because I will be adding to it later.
Jim Thomlinson wrote:
Post your code...
--
HTH...

Jim Thomlinson


"cheeser83" wrote:

I have to Macros. The first one will copy data from one sheet and
paste it to another. The second one will then change the data in
certain cells to the proper Month Name.

What I would like to do is have one macro for each month. After it
inputs the proper month name, it then runs the copy and paste macro.
Is there a way to do this???

Any help is MUCH appreciated!