How to Update Logitech Drivers? : Troubleshooter of Error: Creating an update sheet

Friday 23 September 2016

Troubleshooter of Error: Creating an update sheet

Creating an update sheet

I have large files to update with many sheets.  I have created a VBA subprocedure that updates two graphs that are on each sheet. However, rather than opening up the VBA module and pressing the "run sub / user form" button, I would like to create a button
within a seperate sheet on my excel file that I can press and automatically run the sub procedure that updates my graphs. The problem is that my sub procedure is created on the premise that each sheet has the same two graphs that should be updated, meaning
it will get confused if I have one sheet that only has an update button. How can I instruct the VBA sub procedure to ignore this one update sheet (the current VBA sub procedure is below)?
Option Explicit
Private Sub ChangeAxisScales()

    Dim wksSheet As Worksheet

    For Each wksSheet In Sheets

    wksSheet.Activate


    With wksSheet.ChartObjects("Chart 1").Chart
                ' Value (Y) Axis
        With .Axes(xlValue)
            .MaximumScale = ActiveSheet.Range("Overall_AxisMax").Value
            .MinimumScale = ActiveSheet.Range("Overall_AxisMin").Value

        End With
    End With
   With wksSheet.ChartObjects("Chart 2").Chart
                ' Value (Y) Axis
        With .Axes(xlValue)
            .MaximumScale = ActiveSheet.Range("ByIncome_AxisMax").Value
            .MinimumScale = ActiveSheet.Range("ByIncome_AxisMin").Value
        End With
    End With

    Next wksSheet

End Sub

Solutions to the Problem Creating an update sheet

Download SmartPCFixer to Fix It (Free)

Try this:
Private Sub ChangeAxisScales()
Dim wksSheet As Worksheet
For Each wksSheet In Sheets
    If wksSheet.Name <> "ButtonSheet" Then ' change the sheet name to suit
        wksSheet.Activate

        With wksSheet.ChartObjects("Chart 1").Chart
                    ' Value (Y) Axis
            With .Axes(xlValue)
                .MaximumScale = ActiveSheet.Range("Overall_AxisMax").Value
                .MinimumScale = ActiveSheet.Range("Overall_AxisMin").Value
            End With
        End With

        With wksSheet.ChartObjects("Chart 2").Chart
                  ' Value (Y) Axis
            With .Axes(xlValue)
                .MaximumScale = ActiveSheet.Range("ByIncome_AxisMax").Value
                .MinimumScale = ActiveSheet.Range("ByIncome_AxisMin").Value
            End With
        End With
    End If
Next wksSheet
End Sub

Machine Throttling

Go to the Start button.
In the Search box, type "regedit" (without quotes) and press Enter.
Look for the following registry key: "HKEY_LOCAL_MACHINE\SOFTWARE\ Microsoft\ SQMClient\Windows\DisabledSessions".
On the right window pane, delete the subkey: "Machine Throttling".
Reboot your computer.

Recommended Method to Fix the Problem: Creating an update sheet:

How to Fix Creating an update sheet with SmartPCFixer?

1. Click the button to download Error Fixer . Install it on your computer. Run it, and it will scan your system. The errors will be shown in the scan result.