PPT Macro to delete column

[sksanjeev786]

Hi Team,

I need to delete Ctrl column from 2nd to end and output need as per image 2. with same format...
curretly row 1 and last row are in merge so need as per image to output
Selection pane "Content placeholder 8"

 

[eiloken]

Hi Team,

I need to delete Ctrl column from 2nd to end and output need as per image 2. with same format...
curretly row 1 and last row are in merge so need as per image to output
Selection pane "Content placeholder 8"

View attachment 101061

to do this, i need to see address of all columns and first row of table

 

[sksanjeev786]

to do this, i need to see address of all columns and first row of table

Sure!! I Eiloken,
Thanks for your support on this

So i need columns 2,3,5,7 column asper image 2 and the current 1st-row header is in merge so those also need in 2,3,5,7 ( if i split the cell then the header position is 2,4,6 and the same applies for the last row.

Let me know if you need more information Basically i need same output as image 2

Regards
Sanjeev

 

[sksanjeev786]

Sure!! I Eiloken,
Thanks for your support on this

So i need columns 2,3,5,7 column asper image 2 and the current 1st-row header is in merge so those also need in 2,3,5,7 ( if i split the cell then the header position is 2,4,6 and the same applies for the last row.

Let me know if you need more information Basically i need same output as image 2

Regards
Sanjeev

Hi Sir,

Could you please provide an update on this

Regards
Sanjeev

 

[Alex Blakenburg]

I am guessing your example is an oversimplication but in case its not lets start with this.

Sub UnmergeAndRemoveCols()

    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    With ws
        .Rows(1).MergeCells = False
        .Cells(1, 5).Value = .Cells(1, 4).Value
        .Cells(1, 7).Value = .Cells(1, 6).Value
        .Columns(6).Delete
        .Columns(4).Delete
    End With
End Sub

 

[sksanjeev786]

I am guessing your example is an oversimplication but in case its not lets start with this.

Sub UnmergeAndRemoveCols()

    Dim ws As Worksheet
    Set ws = ActiveSheet
   
    With ws
        .Rows(1).MergeCells = False
        .Cells(1, 5).Value = .Cells(1, 4).Value
        .Cells(1, 7).Value = .Cells(1, 6).Value
        .Columns(6).Delete
        .Columns(4).Delete
    End With
End Sub

Hi Alex,

Thanks for looking into this just wanted to let you know i have a table on PPT (Content placeholder 8 Under Selection pane)
and need to delete the column

So i need columns 2,3,5,7 column asper image 2 and the current 1st-row header is in merge so those also need in 2,3,5,7 ( if i split the cell then the header position is 2,4,6 and the same applies for the last row.

Let me know if you need more information Basically i need same output as image 2

Could you please see images on post 1

Regards
Sanjeev

 

[Alex Blakenburg]

Unfortunately repeating what you had in post #3 doesn't help us very much.
What does PPT mean ? If Power Point is involved I probably can't help you.

Did you try the macro ?
If so show us the output and point out what is wrong with the output.
Is the only issue the last row ?

 

[sksanjeev786]

Unfortunately repeating what you had in post #3 doesn't help us very much.
What does PPT mean ? If Power Point is involved I probably can't help you.

Did you try the macro ?
If so show us the output and point out what is wrong with the output.
Is the only issue the last row ?

Hey Alex,

Yes, I have tried the Macro that you have provided us, and this works perfectly on Excel but i need the same thing on PowerPoint table
my table shape is Content Placeholder 8

Regards
Sanjeev

 

[Alex Blakenburg]

I'm afraid that I can't help you with a Power Point macro. Hopefully someone else on the Forum will offer assistance.

 

[sksanjeev786]

I'm afraid that I can't help you with a Power Point macro. Hopefully someone else on the Forum will offer assistance.

np! Alex I am still looking for an opportunity if I get any solution on this.

Regards
Sanjeev