excel header formula with VBA
0
I'm using following subprocedure to fill some cells starting with cell AS9
but somehow the subprocedure modifies also the header from AS8. I don't want to modify the header when I run the subprocedure
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("AS9:AS" & Lastrow).Formula = _
"=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
excel vba excel-vba
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
add a comment |
0
I'm using following subprocedure to fill some cells starting with cell AS9
but somehow the subprocedure modifies also the header from AS8. I don't want to modify the header when I run the subprocedure
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("AS9:AS" & Lastrow).Formula = _
"=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
excel vba excel-vba
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
1
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55
add a comment |
0
0
0
I'm using following subprocedure to fill some cells starting with cell AS9
but somehow the subprocedure modifies also the header from AS8. I don't want to modify the header when I run the subprocedure
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("AS9:AS" & Lastrow).Formula = _
"=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
excel vba excel-vba
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
I'm using following subprocedure to fill some cells starting with cell AS9
but somehow the subprocedure modifies also the header from AS8. I don't want to modify the header when I run the subprocedure
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
Lastrow = Range("L" & Rows.Count).End(xlUp).Row
Range("AS9:AS" & Lastrow).Formula = _
"=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
excel vba excel-vba
excel vba excel-vba
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
edited Nov 21 '18 at 7:54
QHarr
35.7k82144
35.7k82144
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
asked Nov 21 '18 at 7:46
D.AlexD.Alex
113
113
1
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55
add a comment |
1
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55
1
1
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55
add a comment |
1 Answer
1
active
oldest
votes
1
You should add one to last row. This way you will add your formula starting from next row (one below). Try this:
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1
Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
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
});
}
});
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%2fstackoverflow.com%2fquestions%2f53407361%2fexcel-header-formula-with-vba%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
You should add one to last row. This way you will add your formula starting from next row (one below). Try this:
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1
Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
add a comment |
1
You should add one to last row. This way you will add your formula starting from next row (one below). Try this:
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1
Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
add a comment |
1
1
1
You should add one to last row. This way you will add your formula starting from next row (one below). Try this:
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1
Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
You should add one to last row. This way you will add your formula starting from next row (one below). Try this:
Sub actualizareformule()
Dim Lastrow As Long
Application.ScreenUpdating = False
'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1
Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
edited Nov 21 '18 at 12:51
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
answered Nov 21 '18 at 7:53
Pawel CzyzPawel Czyz
7432819
7432819
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
add a comment |
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
it's working with the header but now the formula is completed with one extra row
– D.Alex
Nov 21 '18 at 12:49
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
Edited - check now (I have corrected LastRow value)
– Pawel Czyz
Nov 21 '18 at 12:53
add a comment |
draft saved
draft discarded
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.
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%2fstackoverflow.com%2fquestions%2f53407361%2fexcel-header-formula-with-vba%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
1
Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.
– QHarr
Nov 21 '18 at 7:55