Jump to content

Tabla dinamica con dos totales generales


Recommended Posts

Hola,

Tengo una tabla dinamica que cuando filtro uno de los campos el total general que hace es la suma de los valores por lo que esta filtrado, pero necesito que debajo me aparezca otro total general con la suma de todos los datos filtrados y no filtrados.

Os adjunto un ejemplo. He probado con unir dos tablas dinámicas y tampoco soy capaz o igual es que no se puede.

Saludos.

Ejemplo tabla dinamica.xlsx

Link to post
Share on other sites
  • 2 weeks later...

Hola,

Gracias por la respuesta, pero no es exactamente lo que busco o no entiendo el ejemplo que me anexas.

Lo que busco es los dos totales, uno del filtro y el otro el general, uno debajo del otro.

Saludos.

Link to post
Share on other sites

Hola, si es eso pero en la tabla dinamica. Si te fijas en el archivo que envié a la derecha de la tabla de datos puse una tabla dinamica, pero el total lo coloque a mano por que no se como hacer para que me aparezcan el parcial y el total.

Saludos

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • JSDJSD muchas gracias mas que excelente saludos
    • ¡¡¡¡ El archivo Libro1-1.xlsm
    • Prueba la macro, la solución en BD Solucion2de2, sin pasar por BD Solucion1de2. Sub FillRate() Application.ScreenUpdating = False With Sheets("BD Solución2de2") Sheets("BD").Cells.Copy .Cells .Select For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If x Mod 500 = 0 Then Application.StatusBar = "Tratando fila " & x If Not .Range("A" & x) = "" Then If .Range("C" & x) > 0 Then Base = "C" & x .Range("I" & x).Formula = "=D" & x & "/" & Base If .Range("I" & x) > 1 Or .Range("I" & x) < 0 Then .Rows(x).Delete x = x - 1 End If End If Next End With Application.StatusBar = False End Sub En la línea de estado de Excel se muestra un pequeño avance del proceso.
    • Un saludo a ambos, aquí te dejo otra opción
    • Private Sub TextBox1_Change() ActiveSheet.Range("C6").Value = TextBox1.Text TextBox3 = Range("C8").Text End Sub Private Sub TextBox2_Change() ActiveSheet.Range("C7").Value = TextBox2.Text TextBox3 = Range("C8").Text End Sub Private Sub CommandButton1_Click() TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty TextBox1.SetFocus End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy