Microsoft Office Forums - View Single Post - Macro/VBA code to select ALL text in a textbox in microsoft excel and add a new row

excelledsoftware · 05-30-2015, 11:09 PM

Ok my sincere apologies for the long time this took I had quite the issue with getting my VM up and running but its all good now. Section G had an issue. I am guessing that while I was testing the code I always had a value in the textbox this would have allowed it to work but it needs to be updating a blank textbox. Please replace section G with the new code below and it should work. I tested this 12 times.

Code:

  '***SECTION G***
  Oshp.TextFrame.Characters.Text = ""
  For CheckRow = StartRow To LastRow
    CountData = Oshp.TextFrame.Characters.Count
    If CheckRow <> LastRow Then
      Oshp.TextFrame.Characters(CountData).Insert String:=(dws.Cells(CheckRow, UseCol).Value & vbLf & " ")
    Else
      Oshp.TextFrame.Characters(CountData).Insert String:=(dws.Cells(CheckRow, UseCol).Value)
    End If
  Next CheckRow

This will also fix the issue with an extra line break at the end of your data.

Let me know if this works I will be happy to make it right.

Thanks