............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Agrupar Columnas en varias páginas de una hoja

Ver el tema anterior Ver el tema siguiente Ir abajo

Agrupar Columnas en varias páginas de una hoja

Mensaje por rubaniktec el Jue Mayo 07, 2015 4:53 am

hola a todos

vereis, os cuento

tengo el siguiente archivo excel (Aquí lo dejo para que os lo descargueis) donde se construye una tabla en la hoja 2 con una serie de valores en la columna C (Un cuenteo de los si)

Hasta aquí todo bién, el problema está en que quisiera reagrupar los datos de la columna C según el numero de páginas que se hayan creado en la hoja 2 tal y como se ve en la hoja resultados.

En el archivo he ido dejando comentarios para explicaros el problema

Muchísimas gracias de antemanno por vuestra ayuda

Disculpad, he tenido problemas al subir el archivo, aquí os dejo un link para descargar

Código:
mega.co.nz/#!f0lSEDxT!leddGeVPvWzhbahNtP7o5EpfHgNY46TMGuERNNd8SZw

Pido disculpas de antemano por lo del link

rubaniktec

Masculino Cantidad de envíos : 1
Edad : 28
Ciudad - Pais : ESP
Version de Excel : Excel 2010
Fecha de inscripción : 07/05/2015

Volver arriba Ir abajo

Re: Agrupar Columnas en varias páginas de una hoja

Mensaje por moises melgar el Sáb Mayo 09, 2015 4:20 pm

Buen dia
Dentro del modulo "Sub Contar()" colocar entre "Application.CutCopyMode = False" y "mFila = mFila + 33" las lineas de codigo que muestro al final del mensaje.
Código:
Sub Contar() 
....
...      
       Application.CutCopyMode = False
<--------------------------------------Aqui agregar el codigo que menciono abajo
       mFila = mFila + 33
....
..
End Sub


codigo que se va a agregar:

Código:
       'seccion agregada por moises
       Hoja2.Range("B2:B" & mRenfin).Copy Destination:=Hoja3.Range("B2") 'letras
       Hoja3.Range("C2").Value = "Total" 'encabezado Total
       If cont_1 = cuenta Then ' suma de conteo
       Hoja3.Range("C3").Formula = "=SUM(D3:" & Cells(3, cuenta + 3).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"
       Hoja3.Range("C3:C" & mRenfin).FillDown
       End If
       Hoja3.Cells(2, cont_1 + 3).Value = cont_1 'encabezado de hojas
       Hoja2.Range("C" & mRenIni + mFila & ":C" & mRenfin + mFila).Copy Destination:=Hoja3.Cells(3, cont_1 + 3) 'copia valores de hojas
       'termina seccion agregada

Ya que el Sub contar posee los datos y realiza las aciones necesarias para poder pasar valores a la hoja 3.
Ademas que la hoja de resultados se llena en el mismo tiempo que se efectua el calculo.

saludos
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 526
Edad : 28
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.