MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    GROUP BY SUM

    avatar
    eduardohsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/02/2014

    GROUP BY SUM Empty GROUP BY SUM

    Mensagem  eduardohsantos 24/2/2014, 01:09

    Boa noite
    Galera,

    Preciso de ajuda para manipular alguns registros na tabela. Tenho uma tabela como o exemplo:

    Item Qtde
    A 16
    B 12
    C 3
    A 4

    Estou tentando agrupar por Item, somando o campo Qtde para que fique assim:
    Item Qtde
    A 20
    B 12
    C 03

    Mas não estou conseguindo montar uma rotina que realize isso. tentei utilizar um com group by e sum, mas sem sucesso. Podem me ajudar por favor?

    Obrigado desde já; Valeu

    UM DETALHE EU NÃO SEI NADA DE VBA EXCEL, PRECISO DE AJUDA MESMO. MAS SE MOSTRA ALGUM EXEMPLO EU PEGO O JEITO
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  formiga10x 24/2/2014, 01:17

    Boa noite, Amigo para onde vc gostaria de enviar os valores já somados?
    avatar
    eduardohsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/02/2014

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  eduardohsantos 24/2/2014, 01:27

    Muito obrigado por ter respondido.  Very Happy Very Happy 

    Dentro da mesma planilha só que em outro plano.

    Dados em Plan1

    Somatoria em Plan2
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  formiga10x 24/2/2014, 01:30

    Veja o exemplo em vba

    Código:
    txtSomaA = DSum("A", "TESTE")
    txtSomaB = DSum("B", "TESTE")
    Anexos
    GROUP BY SUM Attachmentdsum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 34 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  formiga10x 24/2/2014, 01:40

    No seu caso é Excel aconselho dar uma lida:

    http://office.microsoft.com/pt-br/excel-help/maneiras-de-somar-valores-em-uma-planilha-HA010351133.aspx
    avatar
    eduardohsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/02/2014

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  eduardohsantos 24/2/2014, 01:47

    Como você falo no meu caso é no excel. Anexei um arquivo de modelo, mas não sei as formulas para chegar nesse resultado. Eu sei que utiliza group by sum, mas os artigos na internet está tudo em inglês e eu sou brasileiro.  Very Happy  Mas se puder ajudar ficarei grato. Eu li esse artigo que você mando só que não é isso exatamente que eu quero.
    Anexos
    GROUP BY SUM AttachmentGROUP BY.xlsx
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 6 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  formiga10x 24/2/2014, 01:57

    Veja o fórum é para access mas, aguarde um pouco sempre tem um dos mestres que ajudam. Eu infelizmente não entendo bulufas de Excel.
    avatar
    eduardohsantos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/02/2014

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  eduardohsantos 24/2/2014, 01:59

    ok. tudo bem. Valeu assim mesmo pela atenção. Vô espera.
    DARTH
    DARTH
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 07/12/2013

    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  DARTH 5/4/2014, 23:07

    Amigo.
    É só isso?

    Na folha do excel onde tens os valores (Dados), coloca um botão e dá-lhe o nome que entenderes.

    Depois de colocar o botão, clica nele com duplo click e abre-te uma janela de VB.

    Copia e cola para essa janela o código que junto.

    Depois é só colocares os valores que quiseres e quando quiseres somá-los, apenas clicas no botão.
    Código:

    Private Sub CommandButton1_Click()
    Dim start As Integer
    Dim AAA As Variant, BBB As Variant, CCC As Variant, DDD As Variant
    start = 2
    While Range("Dados!A" & start).Value <> ""

        If Range("Dados!A" & start).Value = "A" Then
        AAA = Range("Dados!B" & start).Value
        somaA = somaA + Range("Dados!B" & start).Value
        End If
        If Range("Dados!A" & start).Value = "B" Then
        BBB = Range("Dados!B" & start).Value
        somaB = somaB + Range("Dados!B" & start).Value
        End If
        If Range("Dados!A" & start).Value = "C" Then
        CCC = Range("Dados!B" & start).Value
        somaC = somaC + Range("Dados!B" & start).Value
        End If
        If Range("Dados!A" & start).Value = "" Then
        DDD = Range("Dados!B" & start).Value
        somaD = somaD + Range("Dados!B" & start).Value
        End If
       
        start = start + 1
       
      Wend
    Sheets("Somatória").Range("A2") = "A"
    Sheets("Somatória").Range("B2") = somaA
    Sheets("Somatória").Range("A3") = "B"
    Sheets("Somatória").Range("B3") = somaB
    Sheets("Somatória").Range("A4") = "C"
    Sheets("Somatória").Range("B4") = somaC
    Sheets("Somatória").Range("A5") = "D"
    Sheets("Somatória").Range("B5") = somaD

    End Sub


    Espero que te sirva.

    Um abraço
    DARTH.

    Conteúdo patrocinado


    GROUP BY SUM Empty Re: GROUP BY SUM

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:29