Untitled
unknown
vbscript
a year ago
935 B
2
Indexable
Option Explicit Sub Macro1() ' ' Macro1 Macro ' ' Range("B2:W48").Select ActiveWorkbook.Worksheets("Filtered_Data").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Filtered_Data").Sort.SortFields.Add2 Key:=Range( _ "I3:I48"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Filtered_Data").Sort .SetRange Range("B2:W48") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Sub Macro2() ' ' Macro2 Macro ' ' ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Filtered_Data!$I$2:$I$58") ActiveChart.FullSeriesCollection(1).XValues = "=Filtered_Data!$E$3:$E$58" ActiveChart.ChartTitle.Text = "blabla" Range("L27").Select End Sub
Editor is loading...
Leave a Comment