+ Reply to Thread
Results 1 to 9 of 9

Command Button Not working in new file

Hybrid View

  1. 12-05-2013, 08:36 PM #1
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Command Button Not working in new file

    Hi,

    I'm a bit of a novice when it comes to Macro's and VBA, so I don't know why this is not working...

    I have created 3 Macro's - 1 to Unhide some sheets, 1 to Hide them again once I've viewed them, and 1 to run the Monthly Updates (this is for posting results for each month to month for the directors)

    The first 2 work when I save files from Month to Month, but the 3rd doesn't?? I have to go into VBA and change a few cell references before I run it.

    Is there anything straight forward that I might be missing, or is there anything that I need to post on here for someone to look at?

    Any help is much appreciated

    Thanks,
    Reply With QuoteRegister To Reply
  2. 12-05-2013, 08:45 PM #2
    alansidman
    alansidman is online now
    Forum Moderator alansidman's Avatar
    Join Date
    02-02-2010
    Location
    Steamboat Springs, CO
    MS-Off Ver
    MS Office 365 insider Version 2504 Win 11
    Posts
    24,698

    Re: Command Button Not working in new file

    Suggest you post your code here for the one that is not working. Tell us what is not happening that you want to happen.
    Alan עַם יִשְׂרָאֵל חַי


    Change an Ugly Report with Power Query
    Database Normalization
    Complete Guide to Power Query
    Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
    Reply With QuoteRegister To Reply
  3. 12-05-2013, 08:54 PM #3
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Re: Command Button Not working in new file

    Well it's a long code, hence I didn't really want to post it at first... (And I can't post all of it, as it's too long!! So I've posted the 2nd half of it in a separate post.)

    Basically it Unhides/Hides/Changes References throught about 20 worksheets in a Workbook. It worked in the October File But when I renamed the file to November and changed some of the column reference in VBA, the command button doesn't work.

    Thanks,

    Sub Month_Updates()
'
' Month_Updates Macro
' Formatting of boardpack for each month for each department
'
' Keyboard Shortcut: Ctrl+w
'
    Range("A9:N9").Select
    ActiveCell.FormulaR1C1 = _
        "        CORPORATE FINANCIAL REPORTS TO THE 30th November 2013"
    Range("B43").Select
    ActiveCell.FormulaR1C1 = "8) SOLVENCY STATEMENT AS AT THE 3OTH NOVEMBER 2013"
    ActiveSheet.Next.Select
    Range("K5:K56").Select
    Selection.Copy
    Range("M5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q5:Q12,Q18:Q23,Q31:Q35,Q41,Q49:Q54").Select
    Range("Q49").Activate
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("H5:H12,H18:H23,H31:H35,H41,H49:H54").Select
    Range("H49").Activate
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Cons Profit & Loss").Select
    Columns("B:N").Select
    Selection.EntireColumn.Hidden = False
    Columns("G:M").Select
    Selection.EntireColumn.Hidden = True
    Columns("E:E").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("N4").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("W:W").Select
    Selection.EntireColumn.Hidden = True
    Range("D9").Select
    Selection.AutoFill Destination:=Range("d9:e9"), Type:=xlFillDefault
    Range("E9:F9").Select
    Range("E9").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("D7:G15").Select
    Range("F9").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
    Range("E41:E43").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("d41:e43"), Type:=xlFillDefault
    Range("E41:F43").Select
    Range("E41:E43").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F41:F43").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434828
        .TintAndShade = 0
        .PatternTintAndShade = 0
    Sheets("Aust Summary").Select
    Range("E8:E13,E16:E19,E23,E27:E30").Select
    Range("E27").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Detail Aust Opers Results").Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q7").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q17:Q378").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R378").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17").Select
    Range("H366").Select
    Selection.AutoFill Destination:=Range("H366:I366"), Type:=xlFillDefault
    Range("H366:I366").Select
    Range("H366").Select
    Selection.Copy
    ActiveSheet.Paste
    Sheets("Detail Aust Dept Results").Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q6").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q10").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q12").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q17:Q175").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R177").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Range("I17:I161").Select
    Selection.Copy
    Range("I17").Select
    ActiveSheet.Paste
    Range("I17:I161").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("AH:AK").Select
    Selection.EntireColumn.Hidden = False
    Range("AJ17:AJ161").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q160").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R160").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Columns("C:O").Select
    Selection.EntireColumn.Hidden = False
    Range("F15:F161").Select
    Selection.Copy
    Range("G15").Select
    ActiveSheet.Paste
    Range("F15:F161").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("H:N").Select
    Selection.EntireColumn.Hidden = True
    Columns("F:F").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("O7").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("X:X").Select
    Selection.EntireColumn.Hidden = True
    Range("O15:O139").Select
    Selection.Replace What:="X", Replacement:="Y", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("P15:P139").Select
    Selection.Replace What:="F", Replacement:="G", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("Q15").Select
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q15:Q115").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R15:R115").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q15:Q115").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R15:R115").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q7").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q10").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Last edited by Fletch74; 12-05-2013 at 08:57 PM.
    Reply With QuoteRegister To Reply
  4. 12-05-2013, 08:56 PM #4
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Re: Command Button Not working in new file 

    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q12").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q17:Q185").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R137").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q17:Q117").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R117").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q106").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R86").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q16:Q106").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R105").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q145").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R145").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q6").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q15:Q313").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R15:R288").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q17:Q117").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17").Select
    ActiveSheet.Next.Select
    ActiveSheet.Previous.Select
    Range("R17:R92").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q145").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R145").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Detail Aust Opers Results").Select
    Range("AM1").Select
    ActiveCell.FormulaR1C1 = "30th November 2013"
    Range("AK1").Select
    ActiveCell.FormulaR1C1 = "5"
    Sheets("Consolidated Profit & Loss").Select
    Range("E35,K35").Select
    Range("K35").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("H28,H17,H11").Select
    Range("H11").Activate
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("I11,I17,I28").Select
    Range("I28").Activate
    Selection.Replace What:="!U", Replacement:="!V", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("N35:N36").Select
    Selection.Replace What:="!F", Replacement:="!G", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("I60,I66,I77").Select
    Range("I77").Activate
    Selection.Replace What:=":U", Replacement:=":V", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Australia Summary").Select
    Range("A1:U1").Select
    ActiveCell.FormulaR1C1 = "Month (November 13)"
    Range( _
        "B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5,N7,N13,P5,P7,P13,R5,R7,R13" _
        ).Select
    Range("R13").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "D30,F22,F24,F30,K22,K24,K30,N22,N24,N30,P22,P24,P30,B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5" _
        ), Range("N7,N13,P5,P7,P13,R5,R7,R13,B22,B24,B30,D22,D24")).Select
    Range("P30").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Australian Summary (1)").Select
    Range("B5,B7,B13").Select
    Range("B13").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range( _
        "B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5,N7,N13,P5:P6,P7,P13,R5,R7,R13,B22,B24" _
        ).Select
    Range("B24").Activate
    ActiveWindow.SmallScroll Down:=3
    Union(Range( _
        "D30,F22,F24,F30,K22,K24,K30,N22,N24,N30,P22,P24,P30,B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5" _
        ), Range("N7,N13,P5:P6,P7,P13,R5,R7,R13,B22,B24,B30,D22,D24")).Select
    Range("P30").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Range("E8:E9,E12,E17:E20").Select
    Range("E17").Activate
    ActiveWindow.SmallScroll Down:=9
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Reply With QuoteRegister To Reply
  5. 12-05-2013, 08:56 PM #5
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Re: Command Button Not working in new file 

        ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Range("D3:D85").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-3
    Range("H8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "LAST MONTH"
    Range("H9").Select
    ActiveWindow.LargeScroll Down:=1
    Range("H27").Select
    ActiveCell.FormulaR1C1 = "LAST MONTH"
    Range("H28").Select
    ActiveWindow.LargeScroll Down:=1
    Range("H55").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("H46").Select
    ActiveCell.FormulaR1C1 = "LAST MONTH"
    Range("H65").Select
    ActiveCell.FormulaR1C1 = "LAST MONTH"
    Range("H66").Select
    Sheets("Solvency Statement").Select
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "as at 30th November 2013"
    Range("D10:D16,D21:D25,D30:D35,D40,D48:D52").Select
    Range("D48").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    ActiveWindow.SmallScroll Down:=3
    Range("A29:H29").Select
    Selection.AutoFill Destination:=Range("A29:H30"), Type:=xlFillDefault
    Range("A29:H30").Select
    ActiveWindow.SmallScroll Down:=-9
    Rows("5:5").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=15
    Range("B29:D29,F29,G29").Select
    Range("G29").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Rows("4:4").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=15
    Range("A27:G27").Select
    Selection.AutoFill Destination:=Range("A27:G28"), Type:=xlFillDefault
    Range("A27:G28").Select
    Range("B27:G27").Select
    Selection.Copy
    Range("B27").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B29").Select
    ActiveSheet.Next.Select
    Range("A5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "11/1/2013"
    Range("A6").Select
End Sub
    Reply With QuoteRegister To Reply
  6. 12-05-2013, 09:11 PM #6
    alansidman
    alansidman is online now
    Forum Moderator alansidman's Avatar
    Join Date
    02-02-2010
    Location
    Steamboat Springs, CO
    MS-Off Ver
    MS Office 365 insider Version 2504 Win 11
    Posts
    24,698

    Re: Command Button Not working in new file

    Are you getting error messages? If so, what is the message and what line of code is highlighted?

    Which lines of code did you change? It is difficult to diagnose a patient if you don't know the symptoms.
    Reply With QuoteRegister To Reply
  7. 12-05-2013, 09:32 PM #7
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Re: Command Button Not working in new file

    No, no error messages. It just doesn't respond.

    I changed quite a few lines. Last month I did this and it worked, but I didn't have the command button. I used a Shortcut Ctrl + w. Then I created the command button and it's not working, when it worked last month.

    I just tried the Ctrl + w I get an error "Compile error - Expected End with" With End Sub highlighted if that helps.
    Reply With QuoteRegister To Reply
  8. 12-05-2013, 11:17 PM #8
    alansidman
    alansidman is online now
    Forum Moderator alansidman's Avatar
    Join Date
    02-02-2010
    Location
    Steamboat Springs, CO
    MS-Off Ver
    MS Office 365 insider Version 2504 Win 11
    Posts
    24,698

    Re: Command Button Not working in new file

    You have several With.Selection.Interior lines that have no End With. I would start there and see if that resolves your issue. I suspect that when you replaced your lines of code, you may have inadvertently removed them.

    Additionally, if you wish for your code to run more efficiently, you may want to combine lines of code.

    for example, lines like this

    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    could be replaced with 
    Columns("E:Q").EntireColumn.Hidden = False
    and lines like this:
        Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    could be replaced with
        Range("Q8").FormulaR1C1 = "=RC[-8]"
    It will take a bit of work to do this, but it will make your code shorter and faster.

    Alan
    Reply With QuoteRegister To Reply
  9. 12-05-2013, 11:41 PM #9
    Fletch74
    Fletch74 is offline
    Forum Contributor
    Join Date
    11-11-2013
    Location
    Melbourne, Australia
    MS-Off Ver
    Excel 2010
    Posts
    129

    Re: Command Button Not working in new file

    Cheers Alan. Thanks for your help

    I'm not really sure what "End With" means as I just Recorded a Macro to do this. The code was obviously created as a result of that.

    I've copied both last months file and this months file into a spreadsheet. They are identical, so I don't know why they didn't work...

    I will have a look at reducing the lines as you mentioned as well.

    I'm just going to re-save the old file and try again after I change one or two bits of code to see if it works then.
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Disable command button not working in excel 2010
    By cneha1991 in forum Excel Programming / VBA / Macros
    Replies: 7
    Last Post: 11-30-2011, 07:36 AM
  2. Command button code not working
    By mariposa in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 08-06-2011, 05:03 AM
  3. [SOLVED] Command button is not working by using VBA
    By Webtekr in forum Outlook Programming / VBA / Macros
    Replies: 1
    Last Post: 03-28-2009, 02:22 AM
  4. Command button not working properly on different sheet
    By Strikez in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 12-07-2007, 12:36 AM
  5. [SOLVED] command button isn't working
    By Nydia in forum Excel - New Users/Basics
    Replies: 1
    Last Post: 04-29-2005, 06:06 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1