Copiar / Pegar / Calcular celdas visibles de una columna de una tabla filtrada
estoy usandoAutoFilter
para ordenar una tabla en VBA, lo que resulta en una tabla de datos más pequeña. Solo quiero copiar / pegar las celdas visibles de una columna después de aplicar el filtro. Además, me gustaría promediar los valores filtrados de una columna y colocar el resultado en una celda diferente.
He encontrado este fragmento en Stack que me permite copiar / pegar todos los resultados visibles del filtro, pero no sé cómo modificarlo u otra forma de obtener solo el valor de una columna de datos (sin el encabezado) de eso.
Range("A1",Cells(65536,Cells(1,256).End(xlToLeft).Column).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Suma a la respuesta (para calcular con los valores filtrados):
tgt.Range("B2").Value =WorksheetFunction.Average(copyRange.SpecialCells(xlCellTypeVisible))