Snasui Excel Forum

Code: Select all

    'ActiveCell.FormulaR1C1 = "January - January 2013"
    'ActiveCell.FormulaR1C1 = "January - February 2013"
    ActiveCell.FormulaR1C1 = "January - March 2013"
    'ActiveCell.FormulaR1C1 = "January - April 2013"
    'ActiveCell.FormulaR1C1 = "January - May 2013"
    'ActiveCell.FormulaR1C1 = "January - June 2013"
    'ActiveCell.FormulaR1C1 = "January - July 2013"
    'ActiveCell.FormulaR1C1 = "January - August 2013"
    'ActiveCell.FormulaR1C1 = "January - October 2013"
    'ActiveCell.FormulaR1C1 = "January - September 2013"
    'ActiveCell.FormulaR1C1 = "January - November2013"
    'ActiveCell.FormulaR1C1 = "January - December 2013"

Code: Select all

ActiveCell.Value = InputBox("Please enter period.")

Code: Select all

Dim month As String
Dim m As String
Dim y As Single
Dim yc As String
Dim formula As String

Sub Test_Change_Month()

'''''''''''''''''''' WWA Index
  Application.ScreenUpdating = False
Worksheets("WWA Index").Select
        Range("A9:K9").Select

m = "January - "
y = Worksheets("WORKSHEET_20110128").Range("L2").Value
yc = Worksheets("WORKSHEET_20110128").Range("L3").Value
formula = Worksheets("WORKSHEET_20110128").Range("K2").Value

    m = Worksheets("WORKSHEET_20110128").Range("M2").Value
    y = Worksheets("WORKSHEET_20110128").Range("L2").Value
    formula = Worksheets("WORKSHEET_20110128").Range("K2").Value
        ActiveSheet.Range("A9:K9").Value = m & formula & " " & y

    Range("A1").Select