Results for "need create chart pivot dashboard"

Hello,

Understand you cannot attach your workbook ... for confidential reasons ...

However, the one thing you could do is insert the code you have created ...

It might be that ... just by looking at your macro ... a solution might pop up ....

Jean-Eric a écrit :

Hello,

can you send us a file ?

We need additional information to help you.

Many thanks for your response!

Here you can see the file, the macro which is the last and the most successful is named "Macro".

The first Worksheet is the data extract that I have and second one is the one where I created the macro.

Waiting for your reply, nd thanks again. Please, let me know if you have any other questions.

Hello,

can you send us a file ?

We need additional information to help you.

James007 a écrit :

Hello,

Your macro looks like being the result of the Macro Recorder ...

In addition, you have performed many actions which are not truly related to your business objective ...

How Urgent is your situation ???

Yes, I was recordng actions, as I don't know visual basic of course

Honestly my main purpose is to create macro which will do for me the following: select data from a big data extract and after make a pivot from it, and then print that pivot.

Looking easy but indeed I can not find the problem with that pivot creation honestly:(

Hello,

Your macro looks like being the result of the Macro Recorder ...

In addition, you have performed many actions which are not truly related to your business objective ...

How Urgent is your situation ???

Many thanks for your reply!

Of course I can paste here the code.

Sub macro11()

'

' macro11 Macro

'

'

Rows("1:1").Select

Range("H1").Activate

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("H1").Select

ActiveCell.FormulaR1C1 = "Column1"

Range("H1").Select

Selection.AutoFill Destination:=Range("H1:M1"), Type:=xlFillDefault

Range("H1:M1").Select

Selection.AutoFill Destination:=Range("H1:N1"), Type:=xlFillDefault

Range("H1:N1").Select

Columns("M:M").Select

Selection.AutoFilter

ActiveSheet.Range("$M$1:$M$159").AutoFilter Field:=1, Criteria1:= _

"CONTENT - [File has been sent to BT]"

Columns("N:N").Select

Selection.TextToColumns Destination:=Range("O1"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 1), Array(7, 1), Array(9, 1), Array(15, 1), Array(63, 1), _

Array(73, 1), Array(187, 1), Array(195, 1)), TrailingMinusNumbers:=True

Columns("P:S").Select

Selection.Delete Shift:=xlToLeft

Range("N1").Select

Selection.AutoFill Destination:=Range("N1:T1"), Type:=xlFillDefault

Range("N1:T1").Select

Range("T1").Select

Selection.ClearContents

Range("S1").Select

Selection.ClearContents

Columns("Q:Q").Select

Selection.Replace What:="=-", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

ActiveWindow.ScrollRow = 3

ActiveWindow.ScrollRow = 39

ActiveWindow.ScrollRow = 41

ActiveWindow.ScrollRow = 43

ActiveWindow.ScrollRow = 44

ActiveWindow.ScrollRow = 46

ActiveWindow.ScrollRow = 48

ActiveWindow.ScrollRow = 50

ActiveWindow.ScrollRow = 52

ActiveWindow.ScrollRow = 54

ActiveWindow.ScrollRow = 57

ActiveWindow.ScrollRow = 58

ActiveWindow.ScrollRow = 60

ActiveWindow.ScrollRow = 62

ActiveWindow.ScrollRow = 64

ActiveWindow.ScrollRow = 67

ActiveWindow.ScrollRow = 68

ActiveWindow.ScrollRow = 71

ActiveWindow.ScrollRow = 72

ActiveWindow.ScrollRow = 74

ActiveWindow.ScrollRow = 77

ActiveWindow.ScrollRow = 78

ActiveWindow.ScrollRow = 82

ActiveWindow.ScrollRow = 84

ActiveWindow.ScrollRow = 86

ActiveWindow.ScrollRow = 88

ActiveWindow.ScrollRow = 90

ActiveWindow.ScrollRow = 93

ActiveWindow.ScrollRow = 94

ActiveWindow.ScrollRow = 96

ActiveWindow.ScrollRow = 98

ActiveWindow.ScrollRow = 100

ActiveWindow.ScrollRow = 103

ActiveWindow.ScrollRow = 104

ActiveWindow.ScrollRow = 106

ActiveWindow.ScrollRow = 108

ActiveWindow.ScrollRow = 110

Sheets.Add

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"To go!R1C17:R1048576C17", Version:=6).CreatePivotTable TableDestination:= _

"Feuil1!R3C1", TableName:="Tableau croisé dynamique2", DefaultVersion:=6

Sheets("Feuil1").Select

Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Column10")

.Orientation = xlRowField

.Position = 1

End With

ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _

PivotTables("Tableau croisé dynamique2").PivotFields("Column10"), _

"Nombre de Column10", xlCount

Range("A3:B10").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlMedium

End With

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Range("B7").Select

Selection.ShowDetail = True

Range("A3:B10").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

Range("A3").Select

With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _

"Column10")

.PivotItems("(blank)").Visible = False

End With

Range("A3").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").CompactLayoutRowHeader = _

"Numéro de lot"

Range("B3").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").DataPivotField.PivotItems( _

"Nombre de Column10").Caption = "Total"

Range("A3:B9").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Thanks again and waiting for your respond.

Hello,

If someone can help, I will be so grateful as I have been striving 2 days with it.

So, I have a source data( Tab "To go") with which I would like to run a macro. So, I have already recorded my macro(see macro22, macro 11, or macro 5 as I have tried several times).

In my macro I have filtered the data, and selected only one column to make a pivot. The final step I want this pivot to be directly printng.

However when I run the macro, the final pivot is not coming how it should be (It is only Total coming), and I don't have any idea what can be n issue.

Please could you see a file and help me, otherwise I will die )

I cannot download the file directly to here, so could you please contact me katia.dmitrenko@gmail.com, and I will send you the file.

Hello and welcome,

try this, select the data and execute this macro.

Sub createcolumnchartwithselection()

    Set ch = ActiveSheet.Shapes.AddChart2(366, xlColumnClustered)
    ActiveSheet.ChartObjects(ch.Name).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartStyle = 201
End Sub

Hi there, i am new to vb excel and i need help.

What would be the macro for making excel create time series chart if two columns are selected where the left column is dates and right column is data

Hello,

Can you provide an example of your data ? We don't need the real datas, but to understand how they are structurated, and what do you want exactly at the end (chart type and content, etc). An example file would be appreciated.

Every month, I download price data from the system and calculate the average price for that month. I then create a chart to visualize the inflation trend for that month. Can you provide a excel VBA code to automate this process?

- Import data - calculate average - build chart

Next month , import data add it to the same last month.. calculate the average . Build chart