topic Re: If then VBScript issue in QlikView

If then VBScript issue

Anonymous — Wed, 25 Nov 2020 16:16:04 GMT

I'm trying to format some tables that I paste from qlikview in the export macro. I came up with the following script:

if CycleFlag = 1 then

'Light Brown'

XLDoc.Sheets(1).Range("A1:C22").Interior.Color = RGB(221,217,195)

'Grey'

XLDoc.Sheets(1).Range("D1:D22").Interior.Color = RGB(166,166,166)

else if CycleFlag = 2 then

'Light Brown'

XLDoc.Sheets(1).Range("A1:C62").Interior.Color = RGB(221,217,195)

'Grey'

XLDoc.Sheets(1).Range("D1:D62").Interior.Color = RGB(166,166,166)

end if

end sub

but I keep getting an error at the end sub line: "Expected 'If'". What am I doing wrong?

Re: If then VBScript issue

m_woolf — Mon, 22 Jan 2018 15:24:17 GMT

You don't show a sub at the beginning.

Sub SetColors()

You also don't show a definition for CycleFlag.

Re: If then VBScript issue

Anonymous — Mon, 22 Jan 2018 15:26:09 GMT

I have a sub at the start of the submodule. I didn't pasted the code above the part of the script that might cause problems because that part is working fine.

Re: If then VBScript issue

Anonymous — Mon, 22 Jan 2018 15:36:56 GMT

Apparently the problem was with the "else if" statement. I've corrected it and it's working

Re: If then VBScript issue

m_woolf — Mon, 22 Jan 2018 15:37:07 GMT

I don't see a problem in the script that you posted. Please post your entire script.

Re: If then VBScript issue

Anonymous — Mon, 22 Jan 2018 15:40:56 GMT

I have managed to fix the issue by myself. I keep forgetting that VBA syntax isn't the same as VBScript syntax, despite being similar languages