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!!

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 Diana
18/01/2009 - 21:42 | Informe spam
Hola Héctor Miguel,

Funcionó de maravillas.
Modifiqué la fila 11 por 12 porque omití aclarar que la fila 11 contiene los
encabezados de la tabla.
Mil gracias!!!!


"Héctor Miguel" escribió en el mensaje
news:
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.




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida