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







share|improve this question




















  • 1





    Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.

    – QHarr
    Nov 21 '18 at 7:55


















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







share|improve this question




















  • 1





    Use explicit parent sheet references throughout and possibly add a check that Lastrow is >= 9.

    – QHarr
    Nov 21 '18 at 7:55
















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







share|improve this question
















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






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 21 '18 at 7:54









QHarr

35.7k82144




35.7k82144










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
















  • 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














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





share|improve this answer


























  • 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











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


















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





share|improve this answer


























  • 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
















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





share|improve this answer


























  • 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














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





share|improve this answer















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






share|improve this answer














share|improve this answer



share|improve this answer








edited Nov 21 '18 at 12:51

























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



















  • 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




















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














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





















































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







-

Popular posts from this blog

Guess what letter conforming each word

Image
6 $begingroup$ This is an entry in the Fortnightly Topic Challenge #41: Short and Sweet. 1 letter only could be mean anything . With an additional letter in front , could be used as medicine component and something you definitely learn or at least heard once. Add another letter in front , you would possibly hear that many times . Add an additional letter in front , you would found an independent country . With an additional letter, in the end , you would found something related to apple . Add another letter in the end , you would found something bad . Hint: Each letter is unique . word knowledge letters chemistry share | improve this question ...
Read more

Port of Spain

Image
For ports in the country of Spain, see List of ports in Spain. City in City of Port of Spain, Trinidad and Tobago Port of Spain City City of Port of Spain Top to bottom (left to right): Skyline of Port of Spain from Gulf of Paria; National Academy for the Performing Arts, Independence Square, Eric Williams Plaza; MovieTowne, Port of Port of Spain Motto(s):  "We Gather Strength As We Go Along" Port of Spain Coordinates: 10°40′N 61°31′W  /  10.667°N 61.517°W  / 10.667; -61.517 Coordinates: 10°40′N 61°31′W  /  10.667°N 61.517°W  / 10.667; -61.517 Country   Trinidad and Tobago Jurisdiction City of Port of Spain Settled 1560 Incorporated (town) 1853 Incorporated (city) 1914 Government  • Mayor Joel Martinez  • Governing body City Corporation Area [1]  • City 12 km 2 (5 sq mi) Elevation [2] 66 m (217 ft) Population (2011) [1]  • City 37,074  • Rank 3rd  • Density 3,090/km 2 (8,000/sq mi)...
Read more

Run scheduled task as local user group (not BUILTIN)

Image
0 I am trying to run a scheduled task with User Group (not a single user). This is working fine when I in the field "when running a task, use the following user account:" insert BUILTIN User Group (for example: Administrators or Users). But when I try it with the created Local User Group (example: TestGroup) it is not working. The Users in the TestGroup are the same as in the Administrators group. What could be the problem? Are there some restrictions to the Created User Group compared to BUILTINUsers? scheduled-tasks taskscheduler windowstaskschedule share | improve this question asked Nov 15 '18 at 15:36 Far...
Read more