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

muchas gracias Fernando
siempre tan oportuno


"Fernando Arroyo" wrote:

"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