I have a string variable with values comma seperated ,
How to i read each value in Excel using vb code.

se SPLIT Function:

Sub test()


Dim v As Variant, i As Long
v = Split("A,B,C,D", ",") ' String is "A,B,C,D" with delimeter of ","
For i = 0 To UBound(v)
MsgBox v(i)
Next
End
End Sub

HTH

"Shashi Bhosale" wrote:

I have a string variable with values comma seperated ,
How to i read each value in Excel using vb code.

Hi

If a macro passes the string to this macro it will list the parts to Sheet1
going down from cell A1. If you want the values to go across then change
Cells(j, 1) to Cells(1, j).


Sub ReadCommaSepString(inpString As String)

Dim i As Integer, j As Integer

i = InStr(1, inpString, ",")
j = 1

If i = 0 Then
MsgBox "NO COMMAS IN STRING", 48, ""
Exit Sub
End If

Do While i < 0

ThisWorkbook.Sheets("Sheet1").Cells(j, 1).Value = Left(inpString, i)

j = j + 1

inpString = Right(inpString, Len(inpString) - i)

i = InStr(1, inpString, ",")
Loop

If Not Len(inpString) = 0 Then ThisWorkbook.Sheets("Sheet1").Cells(j,
1).Value = inpString

End Sub


Doug

Shashi Bhosale wrote in message ...
I have a string variable with values comma seperated ,
How to i read each value in Excel using vb code.