Meu objetivo principal é copiar as células visíveis de um autofiltro e depois copiar as dimensões das células visíveis para a nova planilha. Eu estou usando este código:

<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>

Com a última linha, quero verificar o valor de uma célula. Se eu usarCells(2,11) ao invés deSpecialCells Eu posso ver que as células têm todas as células da folha, visíveis e não visíveis. Então eu quero usarSpecialCells.

Se eu usar células especiais, recebo o seguinte erro:

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

No momento em que o tipo de execução, parece entrar em um loop e, finalmente, dá esse erro. Talvez o SpecialCells modifique o autofiltro e, em seguida, em cada modificação, execute novamente o autofiltro?