VBA - inserting a variable number of columns in a specific location in a table
up vote
1
down vote
favorite
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 at 8:03
Pᴇʜ
20.1k42650
asked Nov 22 at 17:27
Marv
61
add a comment |
up vote
1
down vote
favorite
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 at 8:03
Pᴇʜ
20.1k42650
asked Nov 22 at 17:27
Marv
61
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 at 17:32
add a comment |
up vote
1
down vote
favorite
up vote
1
down vote
favorite
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 at 8:03
Pᴇʜ
20.1k42650
asked Nov 22 at 17:27
Marv
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 at 8:03
Pᴇʜ
20.1k42650
asked Nov 22 at 17:27
Marv
61
edited Nov 23 at 8:03
Pᴇʜ
20.1k42650
asked Nov 22 at 17:27
Marv
61
edited Nov 23 at 8:03
Pᴇʜ
20.1k42650
edited Nov 23 at 8:03
Pᴇʜ
20.1k42650
edited Nov 23 at 8:03
Pᴇʜ
20.1k42650
20.1k42650
asked Nov 22 at 17:27
Marv
61
asked Nov 22 at 17:27
Marv
61
asked Nov 22 at 17:27
Marv
61
61
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 at 17:32
add a comment |
2
what happens in thecopy_sheet_with_linkssub?
– Kubie
Nov 22 at 17:32
2
2
what happens in the
copy_sheet_with_links sub?– Kubie
Nov 22 at 17:32
what happens in the
copy_sheet_with_links sub?– Kubie
Nov 22 at 17:32
add a comment |
1 Answer
1
active
oldest
votes
up vote
0
down vote
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 at 19:29
DarXyde
23115
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',
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
up vote
0
down vote
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 at 19:29
DarXyde
23115
add a comment |
up vote
0
down vote
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 at 19:29
DarXyde
23115
add a comment |
up vote
0
down vote
up vote
0
down vote
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 at 19:29
DarXyde
23115
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 at 19:29
DarXyde
23115
answered Nov 22 at 19:29
DarXyde
23115
answered Nov 22 at 19:29
DarXyde
23115
answered Nov 22 at 19:29
DarXyde
23115
23115
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.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- 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 at 17:32