How to put line break in Concat fuction in VBA












0














I have very specific issue, I am trying to concat values to string using line break, I tried all possibilities, nothing works. I tried vbnewline, vbLf, CHR(10).



Range("M2:M" & AfterDuplastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("M1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"


also I tried like this



ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1," & CHR(10) & ",B2)),"""")"


Thank you for your help










share|improve this question






















  • From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
    – SPlatten
    Nov 23 '18 at 11:16


















0














I have very specific issue, I am trying to concat values to string using line break, I tried all possibilities, nothing works. I tried vbnewline, vbLf, CHR(10).



Range("M2:M" & AfterDuplastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("M1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"


also I tried like this



ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1," & CHR(10) & ",B2)),"""")"


Thank you for your help










share|improve this question






















  • From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
    – SPlatten
    Nov 23 '18 at 11:16
















0












0








0







I have very specific issue, I am trying to concat values to string using line break, I tried all possibilities, nothing works. I tried vbnewline, vbLf, CHR(10).



Range("M2:M" & AfterDuplastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("M1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"


also I tried like this



ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1," & CHR(10) & ",B2)),"""")"


Thank you for your help










share|improve this question













I have very specific issue, I am trying to concat values to string using line break, I tried all possibilities, nothing works. I tried vbnewline, vbLf, CHR(10).



Range("M2:M" & AfterDuplastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("M1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"


also I tried like this



ActiveCell.Formula = _
"=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1," & CHR(10) & ",B2)),"""")"


Thank you for your help







vba newline concat






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked Nov 23 '18 at 11:11









Juraj Kopecky

1




1












  • From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
    – SPlatten
    Nov 23 '18 at 11:16




















  • From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
    – SPlatten
    Nov 23 '18 at 11:16


















From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
– SPlatten
Nov 23 '18 at 11:16






From memory you need a combination of vbCR & vbLF, vbNewLine is the same as vbCR & vbLF.
– SPlatten
Nov 23 '18 at 11:16














2 Answers
2






active

oldest

votes


















0














Use constant vbNewLine:



ActiveCell.Formula = "=IF(F2=""" & meal & """,IF(F1<>F2,B2,Concat(M1," & vbNewLine & ",B2)),"""")"





share|improve this answer





















  • Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
    – Juraj Kopecky
    Nov 23 '18 at 11:25



















0














This sounds like it may be an XY Problem...



Even if you include a New Line (vbNewLine), a Carriage Return (vbCr), a Line Feed (vbLf), or a Carriage Return and a Line Feed (vbCrLf), it will only be visible in a cell if Wrap Text is turned on for that cell.



As such, try this simple change:



Range("M2:M" & AfterDuplastRow).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("M1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Formula = "=IF(F2=""" & meal & """," & _
"IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"
Range("M1").WrapText = True 'This line should fix your issue


(Also, you may want to read up on How to avoid using Select in Excel VBA)






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%2f53445605%2fhow-to-put-line-break-in-concat-fuction-in-vba%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    2 Answers
    2






    active

    oldest

    votes








    2 Answers
    2






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    0














    Use constant vbNewLine:



    ActiveCell.Formula = "=IF(F2=""" & meal & """,IF(F1<>F2,B2,Concat(M1," & vbNewLine & ",B2)),"""")"





    share|improve this answer





















    • Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
      – Juraj Kopecky
      Nov 23 '18 at 11:25
















    0














    Use constant vbNewLine:



    ActiveCell.Formula = "=IF(F2=""" & meal & """,IF(F1<>F2,B2,Concat(M1," & vbNewLine & ",B2)),"""")"





    share|improve this answer





















    • Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
      – Juraj Kopecky
      Nov 23 '18 at 11:25














    0












    0








    0






    Use constant vbNewLine:



    ActiveCell.Formula = "=IF(F2=""" & meal & """,IF(F1<>F2,B2,Concat(M1," & vbNewLine & ",B2)),"""")"





    share|improve this answer












    Use constant vbNewLine:



    ActiveCell.Formula = "=IF(F2=""" & meal & """,IF(F1<>F2,B2,Concat(M1," & vbNewLine & ",B2)),"""")"






    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered Nov 23 '18 at 11:13









    LS_ᴅᴇᴠ

    9,27111437




    9,27111437












    • Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
      – Juraj Kopecky
      Nov 23 '18 at 11:25


















    • Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
      – Juraj Kopecky
      Nov 23 '18 at 11:25
















    Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
    – Juraj Kopecky
    Nov 23 '18 at 11:25




    Hello, unfortunatell, it doesn't help. after running code run time error 1004 appears: application-defined or object defined error
    – Juraj Kopecky
    Nov 23 '18 at 11:25













    0














    This sounds like it may be an XY Problem...



    Even if you include a New Line (vbNewLine), a Carriage Return (vbCr), a Line Feed (vbLf), or a Carriage Return and a Line Feed (vbCrLf), it will only be visible in a cell if Wrap Text is turned on for that cell.



    As such, try this simple change:



    Range("M2:M" & AfterDuplastRow).Select
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
    Range("M1").Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Formula = "=IF(F2=""" & meal & """," & _
    "IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"
    Range("M1").WrapText = True 'This line should fix your issue


    (Also, you may want to read up on How to avoid using Select in Excel VBA)






    share|improve this answer


























      0














      This sounds like it may be an XY Problem...



      Even if you include a New Line (vbNewLine), a Carriage Return (vbCr), a Line Feed (vbLf), or a Carriage Return and a Line Feed (vbCrLf), it will only be visible in a cell if Wrap Text is turned on for that cell.



      As such, try this simple change:



      Range("M2:M" & AfterDuplastRow).Select
      With Selection
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = True
      .Orientation = 0
      .AddIndent = False
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
      End With
      Range("M1").Select
      ActiveCell.Offset(1, 0).Select
      ActiveCell.Formula = "=IF(F2=""" & meal & """," & _
      "IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"
      Range("M1").WrapText = True 'This line should fix your issue


      (Also, you may want to read up on How to avoid using Select in Excel VBA)






      share|improve this answer
























        0












        0








        0






        This sounds like it may be an XY Problem...



        Even if you include a New Line (vbNewLine), a Carriage Return (vbCr), a Line Feed (vbLf), or a Carriage Return and a Line Feed (vbCrLf), it will only be visible in a cell if Wrap Text is turned on for that cell.



        As such, try this simple change:



        Range("M2:M" & AfterDuplastRow).Select
        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        End With
        Range("M1").Select
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Formula = "=IF(F2=""" & meal & """," & _
        "IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"
        Range("M1").WrapText = True 'This line should fix your issue


        (Also, you may want to read up on How to avoid using Select in Excel VBA)






        share|improve this answer












        This sounds like it may be an XY Problem...



        Even if you include a New Line (vbNewLine), a Carriage Return (vbCr), a Line Feed (vbLf), or a Carriage Return and a Line Feed (vbCrLf), it will only be visible in a cell if Wrap Text is turned on for that cell.



        As such, try this simple change:



        Range("M2:M" & AfterDuplastRow).Select
        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        End With
        Range("M1").Select
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Formula = "=IF(F2=""" & meal & """," & _
        "IF(F1<>F2,B2,Concat(M1,CHR(10),B2)),"""")"
        Range("M1").WrapText = True 'This line should fix your issue


        (Also, you may want to read up on How to avoid using Select in Excel VBA)







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 23 '18 at 11:23









        Chronocidal

        2,6881216




        2,6881216






























            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.





            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.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53445605%2fhow-to-put-line-break-in-concat-fuction-in-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

            A CLEAN and SIMPLE way to add appendices to Table of Contents and bookmarks

            Calculate evaluation metrics using cross_val_predict sklearn

            Insert data from modal to MySQL (multiple modal on website)