Trying to accommodate IF ELSE within Set Cells for SpecialCellsVisible

Hello,

My problem is that my below Macro stops at “Set f3 = f1.SpecialCells(xlCellTypeBlanks)” because there are no non-Blank cells visible after the first Auto-Filter – but I still need to be able to add the name of the second pattern where those filtered cells were labelled by a previous Pattern eg. f = f & "//2ndUpStAfterWin". The entire Code I am using is below & I have attached the Starting Spreadsheet & the Desired Result (highlighted).

Is there any tweak I can make to this code so that it can cope with where there are no cells existing according to those Set f2 and set f3.
IF ELSE doesn’t work on my spreadsheets as they are very large (it stops halfway). Very keen to see what solutions may be and appreciate very much anyone's help.

Please Login or Register  to view this content.

Hello,

I inserted that code above but it is still stopped at “Set f3 = f1.SpecialCells(xlCellTypeBlanks)” because f3 does not find any Blank cells. Not sure whether counting Visible cells is a solution because the visible cells in column E are still going to be either Blank or Non-Blank.

Basically what I am trying to do is:
- For Blank Visible Cells, cell = "Pattern Name"; and
- For Non-Blank Visible Cells, cell = cell.value&"//PaternName"

I've just tried using Count Blank Visible rows as part of an inserted IF ELSE (as follows) but this also stopped as an error "BlankCounter2 = f1.SpecialCells(xlCellTypeBlanks).Rows.Count".
Running out of ideas...help!

Please Login or Register  to view this content.

That worked. Amazing. So that I am learning, can you tell me what is that section of code actually doing. I've never used some of those commands.Looks like Err.Clear seems to prevent the macro from stopping after Set blanks but I don't know what that code means.

Please Login or Register  to view this content.