Add comma separators

[ChristineJ]

Using this code to enter values from columns in row 5 into a comment box. Some values are text and some are numbers. I would like the numbers have comma separators.

For i = 78 To 85
  commentText = commentText & Cells(5, i).Value
  commentText = commentText & vbCrLf
Next

I tried [I]commentText = format(commentText, "#,###") & vbCrLf [/I]on the third line. I did add the comma separators to the numbers, but it also truncated some of the text comments. Is there a way to do it without affecting the text comments?  Thanks

 

[JoeMo]

Untested.

For i = 78 To 85
    If IsNumeric(Cells(5, i)) Then
        commentText = commentText & Format(Cells(5, i), "#,###")
    Else
        commentText = commentText & Cells(5, i)
    End If
    commentText = commentText & vbCrLf
Next i

 

[ChristineJ]

Untested.

For i = 78 To 85
    If IsNumeric(Cells(5, i)) Then
        commentText = commentText & Format(Cells(5, i), "#,###")
    Else
        commentText = commentText & Cells(5, i)
    End If
    commentText = commentText & vbCrLf
Next i

Perfect! Thanks so much. C

 

[JoeMo]

Perfect! Thanks so much. C

You are welcome - thanks for the reply.