Ошибка при использовании SpecialCells AutoFilter для получения видимых ячеек в VBA
Моя главная цель - скопировать видимые ячейки автофильтра, а затем скопировать размеры видимых ячеек на новый лист. Я использую этот код:
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
В последней строке я хочу проверить значение ячейки. Если я используюCells(2,11)
вместоSpecialCells
Я вижу, что ячейки имеют все ячейки листа, видимые и не видимые. Поэтому я хочу использоватьSpecialCells
.
Если я использую специальные ячейки, я получаю следующую ошибку:
error '-2147417848 (80010108) in runtime. Automatization error.
В то время как тип выполнения, кажется, входит в цикл, и, наконец, дает эту ошибку. Возможно, SpecialCells модифицируют автофильтр, а затем в каждой модификации снова запускают автофильтр?