string concatenate

[Guest]

New to VBA so I'm not sure if this is possible. In a program, I’m trying to
concatenate string variables with comma after each variable, but the number
of occurrences of string variable can be different from time to time. ????

 

[STEVE BELL]

This code will check column A,
rows 1 to 25 and make a string
see if this helps...

=================================
Sub StringCreat()
Dim rw As Long, str As String

For rw = 1 To 25
If Len(Cells(rw, 1)) > 0 Then
If Len(str) > 0 Then
str = str & ", " & Cells(rw, 1).Text
Else
str = Cells(rw, 1).Text
End If
End If
Next
MsgBox str
End Sub
====================================

 

[Guest]

Hi Steve;

Thank you for your help. I modify the code to what I needed to do in my
program and it works.

DorisM

 

[STEVE BELL]

Doris,

Am happy to hear that you got it to work! You are very Welcome!

keep on Exceling...