Code Consolodating

[Jbelle7435]

Can someone help me round this code down

            Application.Goto Reference:="RANGE1"
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False
        
            Application.Goto Reference:="RANGE2"
   Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False
        
            Application.Goto Reference:="RANGE3"
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False

I have all these Ranges called RANGE1, RANGE2, ETC and copy these three lines all day which is cumbersome. Is it possible if I know how many ranges of data I have to consolodate this code or use the names of the Ranges on the 1st line with some trick..?

[Norie]

What's in the first row of the ranges?

Also, where are they in relation to each other?

If they are column ranges next to each other and have the same length you could perhaps use this,

      Range("RANGE1").Resize(, 3).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False

or perhaps this.

    Range("RANGE1,RANGE2,RANGE3").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False

[Jbelle7435]

They are Ranges on top of each other in the same column ALWAYS . Some vary in size.

EXAMPLES
RANGE 1:CELL A2,A3,A4
RANGE 2:CELL A7,A8,A9,A10
RANGE 3: CELL A15,A16,A17,A18,A19

I wil try what you did see what happens....

ETC..

[Jbelle7435]

  Range("RANGE1").Resize(, 3).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=0.1, Trend:=False

This is the code that CAN work. Now in this do you have only RANGE1 called out or are there multiple? If not where do you add the other Ranges in that 1st line. Then I might have what I am looking for!

it was based off this thread I created a week ago to finish it all off..

http://www.excelforum.com/excel-prog...ng-series.html

[Norie]

The 2nd code I posted will work if the ranges are like that, but I'm not sure it will fill the ranges with the correct values.

Mind you I don't actually know what values they are supposed to be filled with.

[Norie]

That code won't work, it assumed the 3 ranges were side by side and of the same size.

The second code does work, but I don't know if it's filling with the right values because you still haven't said what values the ranges should be filled with.

[Jbelle7435]

That code won't work, it assumed the 3 ranges were side by side and of the same size.

The second code does work, but I don't know if it's filling with the right values because you still haven't said what values the ranges should be filled with.

1
+2
3
+4
5
6
7
8
9
+10


1
2
2.1
2.2
3
4
4.1
4.2
4.3
5
6
7
8
9
10
10.1
10.2
10.3
10.4

Example: + means there is a level 2 group of cells. The Ranges are basically(2,2.1,2.2) & (4,4.1,4.2,4.3) & (10,10.1,10.2,10.3,10.4) <--RANGE1,RANGE2, RANGE3

I will try the 2nd code again...

[Jbelle7435]

See the attachment with the macro inside. Make sure to leave 1 in the 1st cell always!
1. Clear/delete the values below 1
2. Close the level to 1
3. Run the Macro

Now I want to consoldate the code repeated multiple times inside the VBA editor...

[Norie]

Sorry, you've lost me.

That data doesn't seem to correspond to the ranges or code you've posted.

[Norie]

I really don't know what you mean by 'consolidating', do you mean shorten the code?

Dim I As Long
    With Worksheets("PENDING")

        .Outline.ShowLevels RowLevels:=1
         .Range("A2:A56").SpecialCells(xlCellTypeVisible).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
                                                                    Step:=1, Trend:=False
        .Outline.ShowLevels RowLevels:=2

        For I = 1 To 9
            .Range("RANGE" & I).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
                                           Step:=0.1, Trend:=False
        Next I

    End With

[Jbelle7435]

Yes SHORTEN THE CODE! I will always keep on adding ranges to whatever but did not want to copy those 3 lines over and over and I knew it could be done but I am not an expert coder...

I will try this above and see if we have a winner!

SKILLZ....

I incorporated it into what I want and it works!! I knew the For Loop was an Idea but I did so little VBA with this via Record button/Mouse Click Commands. I guess you need the middle ground to get your perfect Macro with neat looking Code! Thanks

my favorite part is the code: .Range("RANGE" & I) <--RANGE1, RANGE2,RANGE3,ETC.... I would never known how to do this! Now I do.