DiegoLG 272 Report post Posted June 12 Hola amigos buen día. Alguien sabe si en power query puedo hacer suma por grupos, Lo que pretendo realizar es hacer suma de acuerdo al Clave en cantidades de 6 en 6. es que es un mundo de información que tengo y la verdad no quiero trabajar en la tabla dinámica. Gracias Saludos, Share this post Link to post Share on other sites
Gerson Pineda 3,450 Report post Posted June 12 Hola Si es posible, puedes agrupar por mas de una columna, pero sin un archivo de muestra, no es fácil saber que es "agrupar" para ti Selecciona las columna [a agrupar] / Clic Derecho - Agrupar por / En la lista desplegable "Operación", elige "Suma" / y en "Columna" elige la que tiene los valores Saludos Share this post Link to post Share on other sites
DiegoLG 272 Report post Posted June 12 Adjunto el archivo. Se me olvidó adjuntar 😉 Libro9.xlsx Share this post Link to post Share on other sites
johnmpl 2,329 Report post Posted June 13 ¡Hola, @DiegoLG! (y @Gerson Pineda) Puedes usar la herramienta "Group By" (Agrupar por) en la ficha Transformar de la cinta de opciones de Power Query. let Origen = Excel.CurrentWorkbook(){[Name="Tabla1"]}[Content], #"Tipo cambiado" = Table.TransformColumnTypes(Origen,{{"Clave", Int64.Type}, {"Factura", type text}, {"Importe", Int64.Type}}), #"Filas agrupadas" = Table.Group(#"Tipo cambiado", {"Clave"}, {{"Importe Total", each List.Sum([Importe]), type number}}) in #"Filas agrupadas" Revisa el adjunto. ¡Bendiciones! Libro9.xlsx Share this post Link to post Share on other sites
DiegoLG 272 Report post Posted June 13 Hola amigo, de echo ya lo intente pero me globaliza todo el importe, lo que pretendo realizar es agrupar por partes (6 en 6). Share this post Link to post Share on other sites
johnmpl 2,329 Report post Posted June 13 ¡Hola de nuevo, @DiegoLG! ¿Cuál es el resultado esperado? sube un ejemplo con antes y después de forma manual, para no entrar en soluciones que no van al caso. Tu colocas que con Tabla Dinámica no... entonces... ¿cómo esperarías que quede el resultado con Power Query? ¡Bendiciones! Share this post Link to post Share on other sites
Gerson Pineda 3,450 Report post Posted June 13 Hola para ambos Hace 1 hora, DiegoLG dijo: Hola amigo, de echo ya lo intente pero me globaliza todo el importe, lo que pretendo realizar es agrupar por partes (6 en 6). Diego, solo recordarte que PQ, siempre, pero siempre nos dará como resultado una tabla estructurada, no relaciones siempre lo que podemos hacer a nuestro antojo con Vba Y como menciona @johnmpl es mejor un antes y un después Saludos! Share this post Link to post Share on other sites
Silvia 1,711 Report post Posted June 13 hola chicos Hace 51 minutos , johnmpl dijo: u colocas que con Tabla Dinámica no... entonces... ¿cómo esperarías que quede el resultado con Power Query? yo entendí que lo quería igualito como le sale con la TD, solo que con PQ ______________________________________ Hace 39 minutos , Gerson Pineda dijo: siempre, pero siempre nos dará como resultado una tabla estructurada ah caray.. y yo estuve tratando como dos horas de sacar algo como su TD con PQ, porqué avisas tan tarde.. ah? 😕 🤪 Hace 40 minutos , Gerson Pineda dijo: no relaciones siempre lo que podemos hacer a nuestro antojo con Vba 😨 yo no sé nada de vba 😡 Diego, mejor utiliza una columna auxiliar y continúa con tu TD 😅 2 Leopoldo Blancas and Gerson Pineda reacted to this Share this post Link to post Share on other sites
johnmpl 2,329 Report post Posted June 13 ¡Hola, a todos! Mientras @DiegoLG se manifiesta... dejo una posible opción. let Origen = Excel.CurrentWorkbook(){[Name="Tabla1"]}[Content], #"Tipo cambiado" = Table.TransformColumnTypes(Origen,{{"Clave", Int64.Type}, {"Factura", type text}, {"Importe", Int64.Type}}), #"Filas agrupadas" = Table.Group(#"Tipo cambiado", {"Clave"}, {{"Todo", each _, type table [Clave=number, Factura=text, Importe=number]}}), #"Personalizada agregada" = Table.AddColumn(#"Filas agrupadas", "Personalizado", each Table.AddIndexColumn([Todo], "Índice", 1, 1)), #"Columnas quitadas" = Table.RemoveColumns(#"Personalizada agregada",{"Todo"}), #"Se expandió Personalizado" = Table.ExpandTableColumn(#"Columnas quitadas", "Personalizado", {"Factura", "Importe", "Índice"}, {"Factura", "Importe", "Índice"}), #"División entera insertada" = Table.AddColumn(#"Se expandió Personalizado", "Grupo", each "Grupo " & Text.From(1 + Number.IntegerDivide([Índice] - 1, 6)), type text), #"Filas agrupadas1" = Table.Group(#"División entera insertada", {"Clave", "Grupo"}, {{"Todo", each List.Sum([Importe]), type number}}) in #"Filas agrupadas1" ¡Bendiciones! Libro9.xlsx 1 Silvia reacted to this Share this post Link to post Share on other sites
Gerson Pineda 3,450 Report post Posted June 13 Hace 4 minutos , Silvia dijo: Diego, mejor utiliza una columna auxiliar y continúa con tu TD 😅 Aun no me queda claro, que desea @DiegoLG 1 Silvia reacted to this Share this post Link to post Share on other sites
Silvia 1,711 Report post Posted June 13 En la clave 1 tiene 8 unos, los que quiere separar de 6 en 6 osea , Clave 1, grupo 1 seria del A1 hasta A6 clave 1, grupo 2, sería del A7 al A8 y así con la clave2 Clave2 grupo 1, desde A1 hasta A6 Clave2 grupo2 desde A7 hasta A7 🤨 Share this post Link to post Share on other sites
Silvia 1,711 Report post Posted June 13 Diego una pregunta.. en la TD, aparece como campo Factura2, pero eso no está en tu Tabla.. ¿cómo lograste agregar ese campo con los grupos 1 y 2 ? Share this post Link to post Share on other sites
johnmpl 2,329 Report post Posted June 13 Hola Sil! Se que no me preguntaste a mí... pero eso puede hacer agrupando manualmente en la TD... seleccionas los elementos, clic derecho, agrupar. Así continúas con los demás. Para los subtotales, haces clic derecho en el nuevo campo generado (grupo 1, grupo 2) y luego, muestras Subtotal. ¡Bendiciones! 1 Silvia reacted to this Share this post Link to post Share on other sites
Silvia 1,711 Report post Posted June 13 Gracias John ♥♥♥ ah ya entendí otro problema de Diego.. que lata estar agrupando esto de 6 en 6, cuando agrupé la primera, (clave1), automáticamente se creó la de la clave 2, pero cuando agregué clave 3 con 20 filas.. y actualicé.. pues.. fué una lata volver a acomodar.. mmm Share this post Link to post Share on other sites
Leopoldo Blancas 453 Report post Posted June 13 Hola a todos, Mi aporte: Sub FormarGrupos_LBV() Dim nFila&, Celda As Range, Uf&, nGrupo&, nItems As Byte, nSuma As Double, nSumaT As Double, m& Uf = Sheets("Datos").Range("A" & Rows.Count).End(xlUp).Row Sheets("Resul_LBV").Range("A2:C200").ClearContents nGrupo = Sheets("Datos").Range("A2"): nItems = 0: m = 2 For Each Celda In Sheets("Datos").Range("A2:A" & Uf) If nGrupo = Celda.Value And nItems <= 5 Then Sheets("Resul_LBV").Cells(m, 1) = Celda Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1) Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2) nSuma = nSuma + Celda.Offset(, 2) m = m + 1: nItems = nItems + 1 ElseIf nGrupo = Celda.Value And nItems > 5 Then Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:" Sheets("Resul_LBV").Cells(m, 3) = nSuma nSuma = 0: nItems = 0: m = m + 1: nGrupo = Celda.Value Sheets("Resul_LBV").Cells(m, 1) = Celda Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1) Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2) nSuma = nSuma + Celda.Offset(, 2) m = m + 1: nItems = nItems + 1 ElseIf nGrupo <> Celda.Value Then Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:" Sheets("Resul_LBV").Cells(m, 3) = nSuma nSuma = 0: m = m + 1: nGrupo = Celda.Value Sheets("Resul_LBV").Cells(m, 1) = Celda Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1) Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2) nSuma = nSuma + Celda.Offset(, 2) m = m + 1: nItems = 1 End If nSumaT = nSumaT + Celda.Offset(, 2) Next Celda Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:" Sheets("Resul_LBV").Cells(m, 3) = nSuma Sheets("Resul_LBV").Cells(m + 1, 2) = "Total:" Sheets("Resul_LBV").Cells(m + 1, 3) = nSumaT Sheets("Resul_LBV").Range("C2:C200").Style = "Currency" End Sub Pulsa sobre la flecha y los resultados en la otra hoja. Saludos Libro9_LBV.xlsm 3 Sergio, DiegoLG and Silvia reacted to this Share this post Link to post Share on other sites
Leopoldo Blancas 453 Report post Posted June 13 Hace 2 horas, Silvia dijo: yo no sé nada de vba 😡 Con mis escasos conocimientos voy a impartir un curso de VBA-Básico, inicia 6 de julio, son 4 sábados, CDMX. Yo quiero tomar uno de Funciones... 😂😂😂 Saludos. 1 Silvia reacted to this Share this post Link to post Share on other sites
Silvia 1,711 Report post Posted June 13 entonces que?, con auxiliar... Libro9 1.xlsx 2 DiegoLG and Leopoldo Blancas reacted to this Share this post Link to post Share on other sites
Leopoldo Blancas 453 Report post Posted June 13 Hace 30 minutos , Leopoldo Blancas dijo: Sheets("Resul_LBV") Se me paso quitar tanto Sheets... Saludos. 1 Silvia reacted to this Share this post Link to post Share on other sites
Leopoldo Blancas 453 Report post Posted June 13 Bueno afinando un poco y Obteniendo la Suma por Grupo: Saludos. Libro9_LBV.xlsm 1 DiegoLG reacted to this Share this post Link to post Share on other sites
Leopoldo Blancas 453 Report post Posted June 13 No hay que ser tan pulcros... un poquito de colorsito.... Saludos. Libro9_LBV.xlsm 1 DiegoLG reacted to this Share this post Link to post Share on other sites
DiegoLG 272 Report post Posted June 13 Hace 3 horas, Silvia dijo: ah ya entendí otro problema de Diego.. que lata estar agrupando esto de 6 en 6, cuando agrupé la primera, (clave1), automáticamente se creó la de la clave 2, pero cuando agregué clave 3 con 20 filas.. y actualicé.. pues.. fué una lata volver a acomodar.. Por eso preguntaba si en PQ se podía hacer eso 😀, pero con el archivo que adjunto @johnmpl ahora si me funcionó. Pero veo que hay mas propuesta, denme chance de validar mañana, me metí hacer otras cosas (Una disculpa) Mañana les digo si es lo que necesito, Agradezco el apoyo la verdad. Saludos 1 Silvia reacted to this Share this post Link to post Share on other sites
DiegoLG 272 Report post Posted June 14 Hola amigos, ya valide los archivos, y me sirve todas las propuestas! Doy por tema solucionado. Muchísimas gracias por el apoyo! Hasta la próxima 😉 1 Silvia reacted to this Share this post Link to post Share on other sites
