Finding a character in Text.

[charlee63]

Sample of A
A="50 , 267"
A="50"
A="247, 300"

What I need to do is:

IF A has "," then
d=Left(A) to ","
e = Right(A) from ","
Else
d = A
end

 

[Gary McMaster]

Maybe this:

Public Sub Test()

Dim A As String
Dim D As String
Dim E As String
Dim vSplit As Variant

A = "247, 300"

vSplit = Split(A, ",")

If UBound(vSplit) = 1 Then
    D = vSplit(0)
    E = vSplit(1)
Else
    D = A
End If

MsgBox "D=" & D & "   " & "E=" & E

End Sub

Gary

 

[Biz]

Maybe this:

Public Sub Test()
 
Dim A As String
Dim D As String
Dim E As String
Dim vSplit As Variant
 
A = "247, 300"
 
vSplit = Split(A, ",")
 
If UBound(vSplit) = 1 Then
    D = vSplit(0)
    E = vSplit(1)
Else
    D = A
End If
 
MsgBox "D=" & D & "   " & "E=" & E
 
End Sub

Gary

Gary nice little code.

Biz

 

[Gary McMaster]

Gary nice little code.

Biz

Thanks! Not sure if it satisfies the need though. Maybe there is a cleaner / better way to do it too.

Gary

 

[charlee63]

This worked thanks.

 

[Gary McMaster]

Glad it worked. Thanks for the feedback.

Gary