subtotales pero VBA

"fredy" escribió en el mensaje news:

hola grupo
quisiera saber si se puede hacer algo como
CASAs = Application.Subtotal(9,c10)

sin tener que escribir la formula (subtotales9,J:J)en una celda de excel
sino calculando desde el codigo directamente en una variable...
muchas gracias

Puedes usas el objeto WorksheetFunction, por ejemplo:

CASAs = WorksheetFunction.Subtotal(9, Worksheets("Hoja1").Range("C1:C10"))

o, usando la sintaxis abreviada (si sabes las direcciones absolutas):

CASAs = WorksheetFunction.Subtotal(9, [Hoja1!C1:C10])

Otra posibilidad sería usar el método Evaluate...
Un saludo.


Fernando Arroyo
MS MVP - Excel