• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA Help : How to copy value from one cell to another as a new line with color

anishms

Member
Hi All,
Request somebody to help on the subject
For example in the below code, how do I append the value in B1 to A1 as a new line instead of the space used in the code and with a red color
Code:
Cells(1, 1).Value = Cells(1, 1).Value & " " & Cells(1, 2).Value
Thanks in advance
 

p45cal

Well-Known Member
Code:
Sub blah()
With Cells(1, 1)
  myStart = Len(.Value) + 2
  'If Len(Cells(1, 2).Value) > 0 Then
    .Value = .Value & vbLf & Cells(1, 2).Value
    .Characters(Start:=myStart).Font.Color = vbRed
  'End If
End With
End Sub
 
Last edited:
Top