Moim głównym celem jest skopiowanie widocznych komórek autofiltru, a następnie skopiowanie wymiarów widocznych komórek do nowego arkusza. Używam tego kodu:

<code>Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio

MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value
</code>

W ostatnim wierszu chcę sprawdzić wartość komórki. Jeśli używamCells(2,11) zamiastSpecialCells Widzę, że komórki mają wszystkie komórki arkusza, widoczne i niewidoczne. Więc chcę użyćSpecialCells.

Jeśli używam specjalnych komórek, pojawia się następujący błąd:

error '-2147417848 (80010108) in runtime. Automatization error.

Na razie typ wykonania wydaje się wejść w pętlę i ostatecznie podaje ten błąd. Być może SpecialCells modyfikują autofiltr, a następnie w każdej modyfikacji wykonują ponownie autofiltr?