VBA - Help - Count visible cells between range [Autofilter/For/If/VisibleCells]

[ImaginationAU]

Hi,

Pretty much I'm attempting to count visible cells (after an autofilter) which exist between two amounts to find the total count for that region.

Sec6Tot = the count
Sec6Test = row for visible data
CurrentSett(9,1) = Lower limit
CurrentSett(10,1) = Upper Limit


This line is currently the issue, however the debugger hasnt gone through the rest yet so there may be more.
If Sheet2.Range("A" & Sec6Test).SpecialCells(xlCellTypeVisible).Value <> "" Then

Sec6Tot = 0
                                                                
                                For Sec6Test = 2 To LastRow
                                
                                    If Sheet2.Range("A" & Sec6Test).SpecialCells(xlCellTypeVisible).Value <> "" Then
                                        If Sheet2.Range("F" & Sec6Test).Value = "INV" Then
                                            If Sheet2.Range("BZ" & Sec6Test).Value > CurrentSett(9, 1) Then
                                                If Sheet2.Range("BZ" & Sec6Test).Value <= CurrentSett(10, 1) Then
                                                
                                                Sec6Tot = Sec6Tot + 1
                                                
                                                End If
                                            End If
                                        End If
                                    End If
                                
                                Next Sec6Test
                            
                                Sheets(SheetName).Range("K63").Value = Sec6Tot

Any assistance on this one would be great, pretty keen to have this project complete

 

[JLGWhiz]

If Sheet2.Range("A" & Sec6Test).SpecialCells(xlCellTypeVisible).Value <> "" Then

It won't let you do this. You will have to do something like:

If Sheet2.Range("A" & Sec6Test).Visible = True And Sheet2.Range("A" & Sec6Test).Value <> "" Then