Posts by Raf_sia

Raf_sia · Jul 31st 2015

Hi Guys, I recorded a macro just to refresh the charts. My file consists of 5 sheets with different charts on every sheets. below code is perfectly working but im looking forward to simplify it and avoid visible loading progress. Hope you can help me.
thank you in advance.

Code

Sub Macro2()
'
' Macro2 Macro
'
'
    Sheets("CCP").Select
    ActiveSheet.ChartObjects("Chart 18").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 9").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 14").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 15").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 16").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 17").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    
    Sheets("PCC").Select
    ActiveSheet.ChartObjects("Chart 17").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 18").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 21").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 22").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 24").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 26").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    
    Sheets("TCP").Select
    ActiveSheet.ChartObjects("Chart 30").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 31").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 34").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 35").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 36").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 38").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    
    Sheets("PST").Select
    ActiveSheet.ChartObjects("Chart 18").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 21").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 22").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 23").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 24").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 25").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''
        Sheets("MPA").Select
    ActiveSheet.ChartObjects("Chart 18").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 21").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 22").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 23").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 24").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
    ActiveSheet.ChartObjects("Chart 25").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
MsgBox "File has been refreshed, Charts have been updated"
End Sub

Display More

Raf_sia · Jul 21st 2015

Hi Guys,
I need a little help here.
My file has existing VBA code that fetch information from SQL.
So what I need is a table that can expand and collapse depending on the data I get from SQL server.
I believe there must be a way to have it in VBA?

thank you in advance guys.

Raf_sia · Nov 14th 2014

Im trying to create IF formula, from A1 to M1.
A1 to M1 could have a value of : "N/A", "PASSED"or any value
now what im trying to do is to have a formula that will show O1, If the user gets all passed fields, Or at lease one failed.
Formula logic should look like:

IF A1: M1 = PASSED or N/A then O1 = Passed
IF A1:M1= N/A or Any value then O1 = Failed

Passed if A1:M1 is just showing N/A or Passed, other than that is should show FAILED.

Thanks in advance!

Raf_sia · Sep 9th 2014

Please help me how to add command with my button1 , Button1 should save the data continually going to 2nd sheet of the workbook.
--If I clear the sheet 1 Data, and input another data, and click save again this new data will be added to the 2nd sheet and so on...

Data save range is C8:K8 - C103:K103

Raf_sia · Sep 9th 2014

Re: Please Help with Multipage

Thank you so much royUK, It works! you're amazing!

Raf_sia · Sep 8th 2014

Hi Guys,

Attached is my SS with code, I am using Multipage, I have 5 textboxes, (date, Name, Last Name, age, sex). I want the value of page one to display to sheet 2 and the page 2 goes to Sheet 3. It is working but the date value is copying for both sheets whenever i click "SAVE button", please help me on how to fix this.

Thanks in advance!forum.ozgrid.com/index.php?attachment/62204/

Posts by Raf_sia

VBA to update Charts in a workbook.

To do auto "format as table" that adjust depends on the length of data

HELP with IF formula

Button command to save data to another sheet.

Please Help with Multipage

Please Help with Multipage