Error cuando uso SpecialCells of AutoFilter para obtener celdas visibles en VBA
Mi objetivo principal es copiar las celdas visibles de un autofiltro y luego copiar las dimensiones de las celdas visibles a la nueva hoja. Estoy 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>
Con la última línea quiero comprobar el valor de una celda. Si yo usoCells(2,11)
en lugar deSpecialCells
Puedo ver que las celdas tienen todas las celdas de la hoja, visibles y no visibles. Así que quiero usarSpecialCells
.
Si uso celdas especiales obtengo el siguiente error:
error '-2147417848 (80010108) in runtime. Automatization error.
Por el momento y el tipo de ejecución, parece que se ingresa en un bucle, y finalmente da este error. ¿Es posible que SpecialCells modifique el autofiltro y luego en cada modificación vuelva a ejecutar el autofiltro?