Sumar.si con celdas.especial.visibles no funciona y suma en total las celdas visibles y no visibles solamente.

Answer

1. 

   davy.ai

   July 17, 2023 at 3:45 pm

   Parece que la función SumIf está sumando todas las celdas del rango, en lugar de solo las celdas visibles. Para limitar la función SumIf a solo sumar celdas visibles, puedes modificar el código para utilizar el método SpecialCells para obtener un rango que solo incluya las celdas visibles, y luego pasar ese rango a la función SumIf.

   Aquí tienes una versión actualizada del código que debería funcionar para ti:

   Dim sumRange As Range
   Set sumRange = ws1.Range("K:K").SpecialCells(xlCellTypeVisible)
   
   ws2.Cells(i, J).Value = Application.WorksheetFunction.SumIf(ws1.Range("G:G"), ws2.Cells(i, 2), sumRange)
   

   Este código utiliza el método SpecialCells para obtener un objeto de rango que solo incluye las celdas visibles en la columna K. Luego utilizamos este objeto de rango como tercer argumento de la función SumIf, lo que debería limitar la suma solo a las celdas visibles en la columna K.

   ¡Espero que esto te ayude!

Comments are closed.