Using VB to locate a comma

[apgriffiths]

Hi all

I have some code but i need to put a logical argument in that is looking for a comma within a string.
Can this be done??


Cheers

Antony

 

[Norie]

Antony

Can we see your current code?

strval = "Test , String"

MsgBox strval & " has a comma at position " & InStr(strval, ",")

 

[apgriffiths]

Hi

Here is a snippet of the code. Where i have put a * in the first If statement is where i want it to have looked for a comma but it cant find one.

<font face=Courier New>stFullNames = Cells(1, "D").Value
iCommaLoc = InStr(1, stFullNames, ",")

<SPAN style="color:#00007F">If</SPAN> * <SPAN style="color:#00007F">Then</SPAN>
bComma = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
bComma = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">If</SPAN> bComma = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>
<SPAN style="color:#00007F">GoTo</SPAN> NoComma
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN></FONT>

 

[Norie]

Antony

Why not just check the value of iCommaLoc?

If iCommaLoc>0 Then
   bComma = True
Else
   bComma = False
End If

Or even this.

bComma = iCommaLoc>0

By the way why are you using Goto?

 

[apgriffiths]

The GoTo was just something i took from another line from error handling i just havent got rid of it yet.

That code has worked. I feel so stupid cause that was a simply solution that i have used many times. Anyway cheers for that.

Antony

 

[just_jon]

Do NOT duplicate threads...

http://www.mrexcel.com/board2/posting.php?mode=reply&t=231319