Include "OR" condition in Instr command

[mtheriault2000]

Hello

A line in my worksheet as individual data in each cells like
"A4 B4 C4 D4 E4 F4 G4 H4"
"EURUSD" "Stop" "If" "Bid" "Buy" "35" "000" "1.4523"

I want to rebuilt the string that is separated by individual cells

To do so, i want to loop until string variable TS as cell value = "Sell" Or "Buy".

Read the value of a sell, built a string.

       While [B][U][I][COLOR=red]InStr(1, TS, ( "Sell" Or "Buy") = 0[/COLOR][/I][/U][/B]
         TS = RANGE("a1").Offset(r, CC).Value
         CT = CT & Space(1) & TS
         CC = CC + 1
       Wend

My Instr command line is erroneous and gave me an incompatibility error.

Hope i'm clear enough

Martin

 

[jbeaucaire]

List each separately:

While InStr(1, TS, "Sell") = 0 And InStr(1, TS, "Buy") = 0

 

[mtheriault2000]

Thank you

I did test them separatly to resolve my problem, but i prefer your solution

Do
         TS = RANGE("a1").Offset(r, CC).Value
        [COLOR=red] If InStr(1, TS, "Buy") > 0 Then Exit Do
         If InStr(1, TS, "Sell") > 0 Then Exit Do
[/COLOR]         RT = RT & Space(1) & TS
         CC = CC + 1
       Loop
       RANGE("a1").Offset(r, c).Value = Trim(RT)

Martin