Split Long Code

[howard]

I have been trying to set up formula below on 3 line using a _ in between but code changes to red

 "=IF(ISNUMBER(MATCH(RC[-7],'[BR1 Import Template." & C & ".xlsm]Data Import'!C1,0)),VLOOKUP(RC[-7],'[BR1 Import Template." & C & ".xlsm]Data Import'!C1:C7,7,FALSE),VLOOKUP(RC[-7]+0,'[BR1 Import Template." & C & ".xlsm]Data Import'!C1:C7,7,FALSE))"

It would be appreciated if someone could assist me to have code on 3 lines below each other

 

[tyija1995]

Hey, I think you have to use quotes before the list separator _ symbol, as well as an ampersand (&)

Sub FormHelp()
     Range("A1").Formula = "=IF(ISNUMBER(MATCH(RC[-7],'[BR1 Import Template." & C & ".xlsm]Data Import'!C1,0))," & _
     "VLOOKUP(RC[-7],'[BR1 Import Template." & C & ".xlsm]Data Import'!C1:C7,7,FALSE)," & _
     "VLOOKUP(RC[-7]+0,'[BR1 Import Template." & C & ".xlsm]Data Import'!C1:C7,7,FALSE))"
End Sub

Does this work?

EDIT: Take out the Range("A1").Formula part to suit your situation - I used it as a template for testing purposes.

 

[howard]

thanks for the help. it works perfectly

 

[DanteAmor]

You can use variables

Sub test4()
    Dim wB As String
    wB = "BR1 Import Template." & c & ".xlsm"
    Range("A1").Formula = "=IF(ISNUMBER(MATCH(RC[-7],'[" & wB & "]Data Import'!C1,0))," & _
     "VLOOKUP(RC[-7],'[" & wB & "]Data Import'!C1:C7,7,FALSE)," & _
     "VLOOKUP(RC[-7]+0,'[" & wB & "]Data Import'!C1:C7,7,FALSE))"
End Sub

Or

Sub test5()
    Dim wB As String, sH As String
    wB = "BR1 Import Template." & c & ".xlsm"
    sH = "Data Import"
    Range("A1").Formula = "=IF(ISNUMBER(MATCH(RC[-7],'[" & wB & "]" & sH & "'!C1,0))," & _
     "VLOOKUP(RC[-7],'[" & wB & "]" & sH & "'!C1:C7,7,FALSE)," & _
     "VLOOKUP(RC[-7]+0,'[" & wB & "]" & sH & "'!C1:C7,7,FALSE))"
End Sub

 

[howard]

thanks for your code. Much appreciated

 

[DanteAmor]

thanks for your code. Much appreciated

I'm glad to help you. Thanks for the feedback.