How to Add columns to a current range
0
Is there any example of excel VBA that adds 2 columns to the current range then insert data in those columns.
Thank you.
microsoft-excel vba
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
add a comment |
0
Is there any example of excel VBA that adds 2 columns to the current range then insert data in those columns.
Thank you.
microsoft-excel vba
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
I think you are looking forOffset.
– Rey Juna
Jan 27 at 3:41
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42
add a comment |
0
0
0
Is there any example of excel VBA that adds 2 columns to the current range then insert data in those columns.
Thank you.
microsoft-excel vba
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
Is there any example of excel VBA that adds 2 columns to the current range then insert data in those columns.
Thank you.
microsoft-excel vba
microsoft-excel vba
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
asked Jan 25 at 22:39
SNipErHexSNipErHex
11
11
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
I think you are looking forOffset.
– Rey Juna
Jan 27 at 3:41
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42
add a comment |
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
I think you are looking forOffset.
– Rey Juna
Jan 27 at 3:41
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
I think you are looking for
Offset.– Rey Juna
Jan 27 at 3:41
I think you are looking for
Offset.– Rey Juna
Jan 27 at 3:41
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42
add a comment |
1 Answer
1
active
oldest
votes
1
An easy example based on the dimensions of the original set of data:
Sub qwerty()
Dim r As Range, rNew As Range, rCombined As Range
Dim nLastRow As Long, nFirstRow As Long
Dim nLastColumn As Long, nFirstColumn As Long
Set r = Range("B2:D7")
nLastRow = r.Rows.Count + r.Row - 1
nLastColumn = r.Columns.Count + r.Column - 1
nFirstRow = r.Row
nFirstColumn = r.Column
Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
Set rCombined = Union(r, rNew)
r.Value = "x"
rNew.Value = "y"
MsgBox rCombined.Address
End Sub
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "3"
};
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
});
}
});
draft saved
draft discarded
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%2fsuperuser.com%2fquestions%2f1398597%2fhow-to-add-columns-to-a-current-range%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
1
An easy example based on the dimensions of the original set of data:
Sub qwerty()
Dim r As Range, rNew As Range, rCombined As Range
Dim nLastRow As Long, nFirstRow As Long
Dim nLastColumn As Long, nFirstColumn As Long
Set r = Range("B2:D7")
nLastRow = r.Rows.Count + r.Row - 1
nLastColumn = r.Columns.Count + r.Column - 1
nFirstRow = r.Row
nFirstColumn = r.Column
Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
Set rCombined = Union(r, rNew)
r.Value = "x"
rNew.Value = "y"
MsgBox rCombined.Address
End Sub
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
add a comment |
1
An easy example based on the dimensions of the original set of data:
Sub qwerty()
Dim r As Range, rNew As Range, rCombined As Range
Dim nLastRow As Long, nFirstRow As Long
Dim nLastColumn As Long, nFirstColumn As Long
Set r = Range("B2:D7")
nLastRow = r.Rows.Count + r.Row - 1
nLastColumn = r.Columns.Count + r.Column - 1
nFirstRow = r.Row
nFirstColumn = r.Column
Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
Set rCombined = Union(r, rNew)
r.Value = "x"
rNew.Value = "y"
MsgBox rCombined.Address
End Sub
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
add a comment |
1
1
1
An easy example based on the dimensions of the original set of data:
Sub qwerty()
Dim r As Range, rNew As Range, rCombined As Range
Dim nLastRow As Long, nFirstRow As Long
Dim nLastColumn As Long, nFirstColumn As Long
Set r = Range("B2:D7")
nLastRow = r.Rows.Count + r.Row - 1
nLastColumn = r.Columns.Count + r.Column - 1
nFirstRow = r.Row
nFirstColumn = r.Column
Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
Set rCombined = Union(r, rNew)
r.Value = "x"
rNew.Value = "y"
MsgBox rCombined.Address
End Sub
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
An easy example based on the dimensions of the original set of data:
Sub qwerty()
Dim r As Range, rNew As Range, rCombined As Range
Dim nLastRow As Long, nFirstRow As Long
Dim nLastColumn As Long, nFirstColumn As Long
Set r = Range("B2:D7")
nLastRow = r.Rows.Count + r.Row - 1
nLastColumn = r.Columns.Count + r.Column - 1
nFirstRow = r.Row
nFirstColumn = r.Column
Set rNew = Range(Cells(nFirstRow, nLastColumn + 1), Cells(nLastRow, nLastColumn + 2))
Set rCombined = Union(r, rNew)
r.Value = "x"
rNew.Value = "y"
MsgBox rCombined.Address
End Sub
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
answered Jan 27 at 18:00
Gary's StudentGary's Student
13.9k31731
13.9k31731
add a comment |
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Super User!
- 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.
draft saved
draft discarded
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%2fsuperuser.com%2fquestions%2f1398597%2fhow-to-add-columns-to-a-current-range%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
Using the macro recorder will give you some rudimentary code that can be edited to suit your requirements.
– Mark Fitzgerald
Jan 25 at 22:56
I think you are looking for
Offset.– Rey Juna
Jan 27 at 3:41
@ReyJuna any example plz?!
– SNipErHex
Jan 27 at 4:42