hi Team
Need your support to get the macro for the below request.
Macro to copy the table information from excel to PPT to the desired location in the ppt, to have a dynamic macro, please note that before copying the data, need to delete the existing images and copy and paste the details as it will be helpful for reworks.
Below details in the dimension sheet of the input excel sheet as below:
1. Left
2. Top
3. Width
4. Length
5. STab - Source tab
6. SArray - Range
7. unhide_rows - unhide the rows if hided in the table
8. hide_rows - hide rows as the user specified
9. unhide_cols - unhide the columns if hided in the table
10.hide_cols - hide the columns if hided in the table
Below details will be part of the Macro, user gives the below details.
Input_File_Path - cell location (Excel path)
Out file path - cell location (PPT path)
Enclosed the Input file screen shots for your reference.
Copied the macro related to excel to excel for your easy reference.
Sub MyCopyCode()
Dim r As Long
Dim sTab As String
Dim dTab As String
Dim sRng As String
Dim dRng As String
Sheets("Dimension").Activate
Application.ScreenUpdating = False
' Loop through all rows (count specified in cell A1)
For r = 8 To (Range("A1") + 7)
' Get tab and range values
sTab = Cells(r, "A")
dTab = Cells(r, "B")
sRng = Cells(r, "C")
dRng = Cells(r, "D")
' Copy data
Sheets(sTab).Range(sRng).Copy Sheets(dTab).Range(dRng)
Next r
Application.ScreenUpdating = True
MsgBox "Macro complete!"
End Sub
thanks in advance.
not able to usexl2bb, so enclosed the images of the excel. Hope this can be done.
regards,
Ananthu
Need your support to get the macro for the below request.
Macro to copy the table information from excel to PPT to the desired location in the ppt, to have a dynamic macro, please note that before copying the data, need to delete the existing images and copy and paste the details as it will be helpful for reworks.
Below details in the dimension sheet of the input excel sheet as below:
1. Left
2. Top
3. Width
4. Length
5. STab - Source tab
6. SArray - Range
7. unhide_rows - unhide the rows if hided in the table
8. hide_rows - hide rows as the user specified
9. unhide_cols - unhide the columns if hided in the table
10.hide_cols - hide the columns if hided in the table
Below details will be part of the Macro, user gives the below details.
Input_File_Path - cell location (Excel path)
Out file path - cell location (PPT path)
Enclosed the Input file screen shots for your reference.
Copied the macro related to excel to excel for your easy reference.
Sub MyCopyCode()
Dim r As Long
Dim sTab As String
Dim dTab As String
Dim sRng As String
Dim dRng As String
Sheets("Dimension").Activate
Application.ScreenUpdating = False
' Loop through all rows (count specified in cell A1)
For r = 8 To (Range("A1") + 7)
' Get tab and range values
sTab = Cells(r, "A")
dTab = Cells(r, "B")
sRng = Cells(r, "C")
dRng = Cells(r, "D")
' Copy data
Sheets(sTab).Range(sRng).Copy Sheets(dTab).Range(dRng)
Next r
Application.ScreenUpdating = True
MsgBox "Macro complete!"
End Sub
thanks in advance.
not able to usexl2bb, so enclosed the images of the excel. Hope this can be done.
regards,
Ananthu