Hi,
I have the below range from A-D, where the first row depicts the title of each column.
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TD="width: 86"]Title[/TD]
[TD="width: 75"]Deadline[/TD]
[TD="width: 75"]Status[/TD]
[TD="width: 125"]Segment/Category[/TD]
x1_1
[/td]
[TD="align: right"]1/1/2018[/TD]
closed
[/td][td]ict
[/td][/tr][tr][td]x1_2
[/td]
[TD="align: right"]2/1/2018[/TD]
open
[/td][td]ipvpn
[/td][/tr][tr][td]x1_3
[/td]
[TD="align: right"]3/1/2018[/TD]
closed
[/td][td]b2b
[/td][/tr][tr][td]x1_4
[/td]
[TD="align: right"]4/1/2018[/TD]
open
[/td][td]ict
[/td][/tr][tr][td]x1_5
[/td]
[TD="align: right"]5/1/2018[/TD]
closed
[/td][td]ipvpn
[/td][/tr][tr][td]x1_6
[/td]
[TD="align: right"]6/1/2018[/TD]
open
[/td][td]b2b
[/td][/tr]
[/TABLE]
I want to insert to ppt, in two slides, the above table, for example x1_1-x1_3 ->slide 1, x1_4-x1_6 -> slide 2 but in each new sub table i want to keep the titles (=row1)
I have isolated below, a vba piece of my code that haddles the insertion of each sub range
[VBA] MySlideArray = Array(1, 2)
MyRangeArray = Array(Sheet6.Range("A1:D4"), Sheet6.Range("A1:D1", "A5:D7"))
For x = LBound(MySlideArray) To UBound(MySlideArray)
MyRangeArray(x).Copy[/VBA]
The part = Sheet6.Range("A1:D1", "A5:D7")), brings all the table instead of the union of row1+rows4,5,6
I used the Union function but i had the same result
Any ideas???
The desirable result is:
Slide 1 [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TD="width: 86"]Title[/TD]
[TD="width: 75"]Deadline[/TD]
[TD="width: 75"]Status[/TD]
[TD="width: 125"]Segment/Category[/TD]
x1_1
[/td]
[TD="align: right"]1/1/2018[/TD]
closed
[/td][td]ict
[/td][/tr][tr][td]x1_2
[/td]
[TD="align: right"]2/1/2018[/TD]
open
[/td][td]ipvpn
[/td][/tr][tr][td]x1_3
[/td]
[TD="align: right"]3/1/2018[/TD]
closed
[/td][td]b2b
[/td][/tr]
[/TABLE]
Slide 2 [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TD="width: 86"]Title[/TD]
[TD="width: 75"]Deadline[/TD]
[TD="width: 75"]Status[/TD]
[TD="width: 125"]Segment/Category[/TD]
x1_4
[/td]
[TD="align: right"]4/1/2018[/TD]
open
[/td][td]ict
[/td][/tr][tr][td]x1_5
[/td]
[TD="align: right"]5/1/2018[/TD]
closed
[/td][td]ipvpn
[/td][/tr][tr][td]x1_6
[/td]
[TD="align: right"]6/1/2018[/TD]
open
[/td][td]b2b
[/td][/tr]
[/TABLE]
Thanks