VBA - inserting a variable number of columns in a specific location in a table
I need help inserting a variable number of columns into a table using VBA. What I have so far is:
Private Sub copy_data(filename As String)
disable_updates
If Not filename = "False" Then
Set dest_workbook = ActiveWorkbook
Set src_workbook = Workbooks.Open(filename, True, True)
test = copy_sheet_with_links(src_workbook.Worksheets("Main"), dest_workbook.Worksheets("Reference"), 0, 0)
test = copy_sheet_with_links(src_workbook.Worksheets("PMP"), dest_workbook.Worksheets("PMP"), 1, 1)
src_workbook.Close False
Set src_workbook = Nothing
dest_workbook.RefreshAll
dest_workbook.Worksheets("PMP").Select
End If
enable_updates
End Sub
The number of columns to be inserted is in cell B19 on the "Reference" worksheet. The columns are to be inserted in a table called PMPTable on the "PMP" worksheet.
excel vba excel-vba
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
add a comment |
I need help inserting a variable number of columns into a table using VBA. What I have so far is:
Private Sub copy_data(filename As String)
disable_updates
If Not filename = "False" Then
Set dest_workbook = ActiveWorkbook
Set src_workbook = Workbooks.Open(filename, True, True)
test = copy_sheet_with_links(src_workbook.Worksheets("Main"), dest_workbook.Worksheets("Reference"), 0, 0)
test = copy_sheet_with_links(src_workbook.Worksheets("PMP"), dest_workbook.Worksheets("PMP"), 1, 1)
src_workbook.Close False
Set src_workbook = Nothing
dest_workbook.RefreshAll
dest_workbook.Worksheets("PMP").Select
End If
enable_updates
End Sub
The number of columns to be inserted is in cell B19 on the "Reference" worksheet. The columns are to be inserted in a table called PMPTable on the "PMP" worksheet.
excel vba excel-vba
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 '18 at 17:32
add a comment |
I need help inserting a variable number of columns into a table using VBA. What I have so far is:
Private Sub copy_data(filename As String)
disable_updates
If Not filename = "False" Then
Set dest_workbook = ActiveWorkbook
Set src_workbook = Workbooks.Open(filename, True, True)
test = copy_sheet_with_links(src_workbook.Worksheets("Main"), dest_workbook.Worksheets("Reference"), 0, 0)
test = copy_sheet_with_links(src_workbook.Worksheets("PMP"), dest_workbook.Worksheets("PMP"), 1, 1)
src_workbook.Close False
Set src_workbook = Nothing
dest_workbook.RefreshAll
dest_workbook.Worksheets("PMP").Select
End If
enable_updates
End Sub
The number of columns to be inserted is in cell B19 on the "Reference" worksheet. The columns are to be inserted in a table called PMPTable on the "PMP" worksheet.
excel vba excel-vba
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
I need help inserting a variable number of columns into a table using VBA. What I have so far is:
Private Sub copy_data(filename As String)
disable_updates
If Not filename = "False" Then
Set dest_workbook = ActiveWorkbook
Set src_workbook = Workbooks.Open(filename, True, True)
test = copy_sheet_with_links(src_workbook.Worksheets("Main"), dest_workbook.Worksheets("Reference"), 0, 0)
test = copy_sheet_with_links(src_workbook.Worksheets("PMP"), dest_workbook.Worksheets("PMP"), 1, 1)
src_workbook.Close False
Set src_workbook = Nothing
dest_workbook.RefreshAll
dest_workbook.Worksheets("PMP").Select
End If
enable_updates
End Sub
The number of columns to be inserted is in cell B19 on the "Reference" worksheet. The columns are to be inserted in a table called PMPTable on the "PMP" worksheet.
excel vba excel-vba
excel vba excel-vba
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
edited Nov 23 '18 at 8:03
Pᴇʜ
24.4k63052
24.4k63052
asked Nov 22 '18 at 17:27
MarvMarv
61
asked Nov 22 '18 at 17:27
MarvMarv
61
asked Nov 22 '18 at 17:27
MarvMarv
61
61
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 '18 at 17:32
add a comment |
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 '18 at 17:32
2
2
what happens in the
copy_sheet_with_links sub?– Kubie
Nov 22 '18 at 17:32
what happens in the
copy_sheet_with_links sub?– Kubie
Nov 22 '18 at 17:32
add a comment |
1 Answer
1
active
oldest
votes
You didn't mention where about in your PMP sheet want to add the new columns... however, assuming that is starting at column C, i would do something like this:
Assign the number of the columns to a variable
Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value
Resize the range starting at column C with the nrCols value, and insert the columns.
With src_workbook.Sheets("PMP")
.Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53435842%2fvba-inserting-a-variable-number-of-columns-in-a-specific-location-in-a-table%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
You didn't mention where about in your PMP sheet want to add the new columns... however, assuming that is starting at column C, i would do something like this:
Assign the number of the columns to a variable
Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value
Resize the range starting at column C with the nrCols value, and insert the columns.
With src_workbook.Sheets("PMP")
.Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
add a comment |
You didn't mention where about in your PMP sheet want to add the new columns... however, assuming that is starting at column C, i would do something like this:
Assign the number of the columns to a variable
Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value
Resize the range starting at column C with the nrCols value, and insert the columns.
With src_workbook.Sheets("PMP")
.Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
add a comment |
You didn't mention where about in your PMP sheet want to add the new columns... however, assuming that is starting at column C, i would do something like this:
Assign the number of the columns to a variable
Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value
Resize the range starting at column C with the nrCols value, and insert the columns.
With src_workbook.Sheets("PMP")
.Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
You didn't mention where about in your PMP sheet want to add the new columns... however, assuming that is starting at column C, i would do something like this:
Assign the number of the columns to a variable
Dim nrCols As Long
nrCols = dest_workbook.Sheets("Reference").Range("B19").Value
Resize the range starting at column C with the nrCols value, and insert the columns.
With src_workbook.Sheets("PMP")
.Range("C:C").Resize(, nrCols).EntireColumn.Insert
End With
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
answered Nov 22 '18 at 19:29
DarXydeDarXyde
26427
26427
add a comment |
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53435842%2fvba-inserting-a-variable-number-of-columns-in-a-specific-location-in-a-table%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
2
what happens in the
copy_sheet_with_linkssub?– Kubie
Nov 22 '18 at 17:32