Results for "need macro very grateful"

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.

Hi ! Lisa Nguyen,

Here, your Excel File is back, with automatic conversion.

If you agree, you can display the corresponding color with your VBA Module3. Sub RGB_TO_HEX_COLOR()

See my Note in Sheet1.

Breaking News,

Excel File Version2 is coming Now.

Best Regards.

Re,

A Power Query proposal to study.

Regards.

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

Good evening Lisa,

I propose you here a fully automated version of the macro, meaning that :

When you modify the hexa color, it will both change the RGB values accordingly and change the color of the colored cell automatically too.

When you modify one of the RGB value, it will both change the Hexadecimal value accordingly and change the color of the colored cell automatically too.

No need for any button to apply the tranformations.

Wow really thanks for what you did! I saw the message you left on the excel file!

I will now try to analyze and understand what you have written in the code.

Thank you again and if you manage to switch from RGB to HEX it would be amazing !

Hello,

For my internship, I have to create an excel macro to convert a color value in hexa code to rgb and vice versa.

I have already done a lot of research on google and in general I find excel formulas (use of boxes in the formulas to convert) instead of a VBA code. In addition, it takes usually 2 tables, one from hex to rgb and another from rgb to hex.

But I'm looking for an automatic conversion, that is to say to make a modification of the hex value, the rgb value is updated and vice versa, all in the same table.

All these data are organized by columns and you need a third one to display the corresponding color.

For the moment I have fulfilled my specifications but it is not optimal, I have indeed two tables. I call for your help today to help me to optimize my code.

Tell me if it's not clear haha, I did the best I could. I put in attachment the excel file as is.

Thanks in advance !

Jean-Eric

I love you, I love you, I love you...

Thank very much.

Much thanks to you and your patience, working with me especially with my English language.

You should become my excel teacher.

Greatly appreciated

Thank you again. God Bless You.

Hello Jean-Eric,

Thank you for your swift response.

Please view the sample file below.

Please note: the raw data is on cell "A1" and

The extracted data example is on cell "N" and cell "O"

There are many excel workbook I need to extract data.

How can I create a universal code to extract each one.

Thanks in advance. Greatly appreciated.

Hello,

Please attach a small file at your request.

Regards

Hello Fans.

Currently I have Many Raw Data as an example below to section out.

What's beautiful, all the following data are similar:

Here is an example in row "1", in column "A" only :

0: {c: 9, close: 9, yield: null, referenceDate: null, date: "1997-03-01T00:00:00", …}

In this Case: How can I Keep the values of The following:

9 1997-03-01

I have multiple data similar like above. The comparison with the others are, values and dates.

What is the effective way to get the data?

Or what code can I use? How do you want me to proceed?

Thanks in advance

Hello,

When it comes to these kinds of errors ... you do have to make sure your spelling of your various folders' names is 100% correct ...

Hope this will help