vba help - break line

[Mallesh23]

Hi Team,

I am Unable to break lenghty code into next line, suing & _

Sub Break_Line()

Dim s As String
s = "ABC USD 145,356"
if instr(s,"JAN")>0 & _   'Error here unable to break the line. 
    OR instr(s,"USD") > 0 then
    dict.Add s, s
End If

End Sub

Thanks
mg

 

[Rick Rothstein]

You cannot split a quoted text string in the middle like that. What you have to do is put an end quote after the first part of the text, then an ampersand, then your space/underline, then put another quote mark in front of the second part of the text. So...

if instr(s,"JAN")>0" & _
    "OR instr(s,"USD") > 0 then

Note: I cannot tell from your text whether I dropped a space character between the two text substrings or not, so you may have to put one in if I did.

 

[Mallesh23]

Hi Rick,

Thanks for your information very nice.
I tried different combination in the code suggested by you, its not working for me.

unable to fix it. Can you try from your end plz



Thanks
mg

 

[Fluff]

Just remove the & from your code.

 

[Rick Rothstein]

What I posted about breaking text strings in the middle was correct BUT, now that I look more closely, IT DOES NOT APPLY to your problem. The problem was that you tried to use an ampersand (used to join text strings) on two stand-alone functions which are not text strings. Simply remove the ampersand...

if instr(s,"JAN")>0 Or _
    instr(s,"USD") > 0 then

 

[Mallesh23]

Hi Rick and Fluff,

it worked ! Really I learned something interesting here tricky one. thanks for your help ?


Thanks
mg

 

[Fluff]

Glad we could help & thanks for the feedback.