Macro command button to add a row below a clicked row and copy its only formula to a new row












0















I am working on a time sheet where user can click on the + command button, it will add a new row below the clicked command button row and copy the formula to the new row. Users need to enter their hour worked for different funding sources on the same day on several rows.



The macro below works fine however, it adds a row ABOVE the clicked row instead of BELOW the clicked row. I am posting this question with hope that some experts from this forum can help me. Thank you very much in advance. 



Sub Macro1()



    Dim row As Long



    'Insert new row on button row

    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row

    Rows(row).Insert



    'AutoFill from 1 row above new row for 1 row down

    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault



    'Clear cells A-S on new row

    Range("A" & row & ":F" & row).ClearContents

    Range("H" & row & ":P" & row).ClearContents





End Sub





excel vba







share|improve this question




















  • 2





    Rows(row + 1).Insert

    – K.Dᴀᴠɪs
    Nov 13 '18 at 21:11











  • Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

    – TOMBN
    Nov 13 '18 at 22:40


















0















I am working on a time sheet where user can click on the + command button, it will add a new row below the clicked command button row and copy the formula to the new row. Users need to enter their hour worked for different funding sources on the same day on several rows.



The macro below works fine however, it adds a row ABOVE the clicked row instead of BELOW the clicked row. I am posting this question with hope that some experts from this forum can help me. Thank you very much in advance. 



Sub Macro1()



    Dim row As Long



    'Insert new row on button row

    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row

    Rows(row).Insert



    'AutoFill from 1 row above new row for 1 row down

    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault



    'Clear cells A-S on new row

    Range("A" & row & ":F" & row).ClearContents

    Range("H" & row & ":P" & row).ClearContents





End Sub





excel vba







share|improve this question




















  • 2





    Rows(row + 1).Insert

    – K.Dᴀᴠɪs
    Nov 13 '18 at 21:11











  • Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

    – TOMBN
    Nov 13 '18 at 22:40
















0












0








0








I am working on a time sheet where user can click on the + command button, it will add a new row below the clicked command button row and copy the formula to the new row. Users need to enter their hour worked for different funding sources on the same day on several rows.



The macro below works fine however, it adds a row ABOVE the clicked row instead of BELOW the clicked row. I am posting this question with hope that some experts from this forum can help me. Thank you very much in advance. 



Sub Macro1()



    Dim row As Long



    'Insert new row on button row

    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row

    Rows(row).Insert



    'AutoFill from 1 row above new row for 1 row down

    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault



    'Clear cells A-S on new row

    Range("A" & row & ":F" & row).ClearContents

    Range("H" & row & ":P" & row).ClearContents





End Sub





excel vba







share|improve this question
















I am working on a time sheet where user can click on the + command button, it will add a new row below the clicked command button row and copy the formula to the new row. Users need to enter their hour worked for different funding sources on the same day on several rows.



The macro below works fine however, it adds a row ABOVE the clicked row instead of BELOW the clicked row. I am posting this question with hope that some experts from this forum can help me. Thank you very much in advance. 



Sub Macro1()



    Dim row As Long



    'Insert new row on button row

    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row

    Rows(row).Insert



    'AutoFill from 1 row above new row for 1 row down

    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault



    'Clear cells A-S on new row

    Range("A" & row & ":F" & row).ClearContents

    Range("H" & row & ":P" & row).ClearContents





End Sub





excel vba




excel vba






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 13 '18 at 21:04









BigBen

6,1072618




6,1072618










asked Nov 13 '18 at 21:01









TOMBNTOMBN

11




11








  • 2





    Rows(row + 1).Insert

    – K.Dᴀᴠɪs
    Nov 13 '18 at 21:11











  • Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

    – TOMBN
    Nov 13 '18 at 22:40
















  • 2





    Rows(row + 1).Insert

    – K.Dᴀᴠɪs
    Nov 13 '18 at 21:11











  • Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

    – TOMBN
    Nov 13 '18 at 22:40










2




2





Rows(row + 1).Insert

– K.Dᴀᴠɪs
Nov 13 '18 at 21:11





Rows(row + 1).Insert

– K.Dᴀᴠɪs
Nov 13 '18 at 21:11













Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

– TOMBN
Nov 13 '18 at 22:40







Thank you very much Davis. It works. Here is my complete macro. Sub Macro1() Dim row As Long 'Insert new row below button row row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row Rows(row + 1).Insert 'AutoFill new row down Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault 'Clear cells A:F and H:M on new row Range("A" & row + 1 & ":F" & row + 1).ClearContents Range("H" & row + 1 & ":M" & row + 1).ClearContents End Sub

– TOMBN
Nov 13 '18 at 22:40














1 Answer
1






active

oldest

votes


















0














Thank you very much Davis. It works. Here is my complete macro. 



Sub Macro1()



    Dim row As Long



    'Insert new row on button row

    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row

    Rows(row + 1).Insert



    'AutoFill new row

    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault



    'Clear cells A:F and H:M on new row

    Range("A" & row + 1 & ":F" & row + 1).ClearContents

    Range("H" & row + 1 & ":M" & row + 1).ClearContents



End Sub





share|improve this answer

























    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%2f53289436%2fmacro-command-button-to-add-a-row-below-a-clicked-row-and-copy-its-only-formula%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









    0














    Thank you very much Davis. It works. Here is my complete macro. 



    Sub Macro1()
    

    
    Dim row As Long
    

    
    'Insert new row on button row
    
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
    
    Rows(row + 1).Insert
    

    
    'AutoFill new row
    
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault
    

    
    'Clear cells A:F and H:M on new row
    
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
    
    Range("H" & row + 1 & ":M" & row + 1).ClearContents
    

    
End Sub





    share|improve this answer






























      0














      Thank you very much Davis. It works. Here is my complete macro. 



      Sub Macro1()
      

      
    Dim row As Long
      

      
    'Insert new row on button row
      
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
      
    Rows(row + 1).Insert
      

      
    'AutoFill new row
      
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault
      

      
    'Clear cells A:F and H:M on new row
      
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
      
    Range("H" & row + 1 & ":M" & row + 1).ClearContents
      

      
End Sub





      share|improve this answer




























        0












        0








        0







        Thank you very much Davis. It works. Here is my complete macro. 



        Sub Macro1()
        

        
    Dim row As Long
        

        
    'Insert new row on button row
        
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
        
    Rows(row + 1).Insert
        

        
    'AutoFill new row
        
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault
        

        
    'Clear cells A:F and H:M on new row
        
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
        
    Range("H" & row + 1 & ":M" & row + 1).ClearContents
        

        
End Sub





        share|improve this answer















        Thank you very much Davis. It works. Here is my complete macro. 



        Sub Macro1()
        

        
    Dim row As Long
        

        
    'Insert new row on button row
        
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
        
    Rows(row + 1).Insert
        

        
    'AutoFill new row
        
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault
        

        
    'Clear cells A:F and H:M on new row
        
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
        
    Range("H" & row + 1 & ":M" & row + 1).ClearContents
        

        
End Sub






        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited Nov 13 '18 at 22:51









        K.Dᴀᴠɪs

        7,189112439




        7,189112439










        answered Nov 13 '18 at 22:47









        TOMBNTOMBN

        11




        11






























            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%2f53289436%2fmacro-command-button-to-add-a-row-below-a-clicked-row-and-copy-its-only-formula%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

            Florida Star v. B. J. F.

            Image
            Florida Star v. B. J. F. From Wikipedia, the free encyclopedia Jump to navigation Jump to search United States Supreme Court case Florida Star v. B. J. F. Supreme Court of the United States Argued March 21, 1989 Decided June 21, 1989 Full case name The Florida Star v. B. J. F. Citations 491 U.S. 524 ( more ) 109 S. Ct. 2603; 105 L. Ed. 2d 443; 1989 U.S. LEXIS 3120; 57 U.S.L.W. 4816; 16 Media L. Rep. 1801 Prior history The Florida Star v. B.J.F., 530 So.2d 286 (1988) Supreme Court of Florida; Florida Star v. B.J.F., 499 So.2d 883 (1986) Fla. Dist. Court of Appeals Holding Florida Stat. § 794.03 is unconstitutional to the extent it makes the truthful reporting of information that was a matter of public record unlawful, as it violates the First Amendment. Court membership Chief Justice William Rehnquist Associate Justices William J. Brennan Jr.  · Byron White Thurgood Marshall  · Harry Blac
            Read more

            Danny Elfman

            Image
            Danny Elfman From Wikipedia, the free encyclopedia Jump to navigation Jump to search Danny Elfman Elfman at the 2010 San Diego Comic-Con Born Daniel Robert Elfman ( 1953-05-29 ) May 29, 1953 (age 65) Los Angeles, California, U.S. Spouse(s) Bridget Fonda ( m.  2003) Children 1 Musical career Genres Rock [1] ska [2] new wave film music video game music Occupation(s) Composer, singer, songwriter, record producer Instruments Trombone guitar percussion vocals keyboards [3] Years active 1972–present Associated acts Oingo Boingo James Newton Howard Daniel Robert Elfman (born May 29, 1953) is an American composer, singer, songwriter, and record producer. Elfman first became known for being the lead singer and songwriter for the band Oingo Boingo from 1974 to 1995. He is well known for scoring films and television shows, particularly his frequent collabora
            Read more

            Retrieve a Users Dashboard in Tumblr with R and TumblR. Oauth Issues

            Image
            .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 0 I am trying to use the TumblR package in R to set up the Oauth Authentication to Retrieve a user's dashboard using the second example in tumblR documentation However I get the following error, it seems that using twitter others have been able to use a different function to get around this, but I am not finding the same function available for Tumblr. See twitter package for R authentication: error 401 My code consumer_key <- OKey consumer_secret <- SKey appname <- App_name tokenURL <- 'http://www.tumblr.com/oauth/request_token' accessTokenURL <- 'http://www.tumblr.com/oauth/acces_token'
            Read more