VBA totales en cantidad de filas variables y cantidad de columnas variables

18/01/2009 - 15:43 por diana | Informe spam
Hola a todos,
Hace un tiempo Hector Miguel me enseñó en este foro el siguiente código para
contar cantidades en una tabla que tenía número de n filas y 15 columnas
fijas, las 3 primeras eran referencias y las 12 siguientes eran los meses
del año. (Espectacular!! y eternamente agradecida):

With Range("a65536").End(xlUp)
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 3)
.Formula = "=COUNTA(d12:d" & .Row - 1 & ")"
.AutoFill .Resize(, 12), xlFillDefault
End With
End With

Ahora necesito un código similar pero para calcular totales en tablas que
tienen 2 columnas de referencias y a la derecha n columnas. Pueden ser 2, 3
o 4 columnas de valores para contar y sacar el total abajo. Las tablas
siempre empiezan en la celda B11 .No sé cómo modificar el código anterior
para que tome n columnas en lugar de 12.
Gracias!!
 

Leer las respuestas

#1 Héctor Miguel
18/01/2009 - 20:54 | Informe spam
hola, diana !

no estoy seguro de si la fila 11 se debe incluir en la formula (modifica de ser necesario)...
prueba con la siguiente adaptacion al codigo anterior...

Dim Cols As Byte
With Range("b65536").End(xlUp)
Cols = .CurrentRegion.Columns.Count
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 2)
.Formula = "=counta(d11:d" & .Row - 1 & ")"
.AutoFill .Resize(, Cols - 2), xlFillDefault
End With
End With

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
... el siguiente codigo para contar cantidades en una tabla que tenia... n filas y 15 columnas fijas
las 3 primeras eran referencias y las 12 siguientes eran los meses del año...

With Range("a65536").End(xlUp)
.Offset(1) = "Cantidad Clientes por Mes"
With .Offset(1, 3)
.Formula = "=COUNTA(d12:d" & .Row - 1 & ")"
.AutoFill .Resize(, 12), xlFillDefault
End With
End With

Ahora necesito... calcular totales en tablas que tienen 2 columnas de referencias y a la derecha n columnas.
Pueden ser 2, 3 o 4 columnas de valores para contar y sacar el total abajo. Las tablas siempre empiezan en la celda B11.
... modificar el codigo anterior para que tome n columnas en lugar de 12.

Preguntas similares