How to set a skip a step when filter result is 0?

[Martin1991]

Hello,
I m trying to figure out, how to set my formula to skip a similar step after filtering out any values with 0 results. I m searching second day and can´t find any tip for this specific case. I´m beginner with VBA, so i hope it´ll be easy question for you.

To clarify, i got small simple macro, which should fill special cells with some "memo" according the criterial values.
1. Macro filters out, what i need.
2. Fills special cells with "memo".
3. Reset my filters.

Problem is step 2. When filter can´t find defined criteria (because i work daily with another documents, and sometimes there are those criterias, sometimes not), it fills up not only special cells, but every single cell (not only visible) in current column except the first raw, which is header.

Sub HQstatuses()

    Sheets("Data").Select
    ActiveSheet.UsedRange.AutoFilter Field:=88, Criteria1:=Array( _
        "HQ can´t support*", "HQ pending - shortage*"), Operator:=xlFilterValues
    
    ActiveSheet.UsedRange.AutoFilter Field:=65, Criteria1:=Array( _
        "Y"), Operator:=xlFilterValues
        
    x = ActiveWorkbook.Sheets("Data").Range("CA1").CurrentRegion.Rows.Count


    vzoreccheck = "oow/cid-HQ pending - shortage, please choose a sub with different color"
    
    Range(Cells.SpecialCells(xlCellTypeVisible)(2, 79), Cells.SpecialCells(xlCellTypeVisible)(x, 79)).Value = vzoreccheck
    ActiveSheet.Calculate
    ActiveSheet.ShowAllData
    
End Sub

What kind of changes would you recommend to me? I think, its about some IF condition, tryed to set it by IF with another formula "y": y = SpecialCells(xlCellTypeVisible).Count ---> If y > 1 Then calculate, but it doesn´t work.

I´m new to the Forum, read all board rules, so i hope its all understandable.

 

[Fluff]

In that case try

Dim x As Long, c As Range
x = ActiveWorkbook.Sheets("Sheet1").Range("BZ1").CurrentRegion.Rows.Count
    
    For Each c In Worksheets("Sheet1").Range("BZ1:BZ" & x).SpecialCells(xlVisible)
     If c.Value > 88 Then
        c.EntireRow.Style = "Bad"
     End If
    Next c

 

[Martin1991]

I tryed and unfortunately, its marking again even non-filtered cases, which is a bit weird. It seems like everything is allright.

 

[Fluff]

I tryed and unfortunately, its marking again even non-filtered cases, which is a bit weird. It seems like everything is allright.

This is a bit confusing
Are you saying everything is ok?
Or are you saying it's not working correctly?

 

[Martin1991]

At first. I´m sorry for late reply, but i hadn´t access to my work notebook, so i couldn´t check with excel. Then I´m sorry for confusing answer.
I used it, and on the first testing, it seemed, that it doesn´t work. So i wrote it, but the end of the sentence was my point of view, when i checked the code.

Finally i tested it for a while, tried some combines of this code and it works perfectly! So, yes everything is allright. Thank you very much!

 

[Fluff]

Glad it's sorted & thanks for the feedback