If - Then - Else statement being ignored when running code

[Seraph84]

Hi,

I have the following code:

Please Login or Register  to view this content.

I'm trying to define and execute two cases : if a cell in column A contains "FTT" then extract a string of text using mid in column O, else if no "FTT" is found then extract the string starting with the second With range after Else.

The problem is the code is ignoring the If statement and going straight to the second With .Range piece of code (the "=mid(a1,89,19)") and using that for all the rows in the sheet.

What am I doing wrong?

[HaHoBe]

Hi, Seraph,

what is rnum and where is it assigned?

Ciao,
Holger

[Seraph84]

rnum = 1, the first row of the worksheet, I have it defined as Long:

Please Login or Register  to view this content.

[HaHoBe]

Hi, Seraph84,

please check if Range A1 in Sheets MySheet only holds FTT or maybe an additional trailing blank and that itīs all capitals as this check is case sensitive.

Ciao,
Hiolger

[Seraph84]

Hi Hiolger

FFT is all caps, however it is part of a string with spaces and dashes eg. Filename - FTT - text

Some cells will have FTT in the string while others will not.

[Norie]

Try this.

Please Login or Register  to view this content.

[HaHoBe]

Hi, Seraph84,

either use the textfunction Left(theCell, 3) to check the first three characters to match or

Please Login or Register  to view this content.

if FTT may be located anywhere else in the cell.

Ciao,
Holger

[Seraph84]

Thanks for the suggestions, but I just cant get it to work. it still skipping the IF statement and going straight to the second With.

Maybe I'm explaining it wrong or my code is not right.

I've attached a sample of the file with the end result I'm looking for in Column B using normal excel formulas, for this specific section of the macro. The code should check Column A and if it contains FTT, extract the text starting as per the MID formula, and if not found extract using the second MID formulas as in Column B.

I've included the code in Macro1 for this part of the sub, the rest of it runs fine. I cant seem to remove this workbook, please ignore this one and see the one in my post further down below.

Thanks

[romperstomper]

Your code is looking for FTT but the cells contain FFT

[Seraph84]

Your code is looking for FTT but the cells contain FFT

Sorry that's a typo in the attached workbook. My code in my macro is consistent though (FTT), and I still can't get it to work.

[romperstomper]

Then please post a workbook which:
1. Is actually representative of your data; and
2. Contains the code you are using.

[Seraph84]

Amended workbook with code attached.

[Philb1]

Hi
You can change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

It looks like you're testing A1 to see if it's got FTT in it somewhere & entering ts.xls in C26

Cheers

[HaHoBe]

Hi, Seraph84,

Norie suggested top use asteriks around FTT to search while you compare the string to only FTT.

Please Login or Register  to view this content.

Ciao,
Holger