none
Como Agrupar informações RRS feed

  • Pergunta

  • Olá muito boa tarde!

    Estou com um problema e não sei como posso soluciona-lo. Tenho um sistema em VBA de Pedidos, onde o usuário cria o pedido para ser executado e salva em uma planilha Excel. Só que ele salva cada operação em uma linha, ex: O cliente em um terreno e quer fazer vários serviços no terreno, cada serviço sai em uma linha no excel. Eu preciso juntar as informações, como eu posso fazer isso?

    Muito obrigado pela ajuda!

    quinta-feira, 13 de julho de 2017 20:33

Todas as Respostas

  • Envie o trecho de código em que você passa os serviços para a planilha que eu conserto para você.

    Anderson Diniz


    sexta-feira, 14 de julho de 2017 01:42
  • Olá Anderson muito bom dia!

    Segue um link para você fazer o download de uma modelo, teria que ser resumida em uma linha se possível.

    https://1drv.ms/x/s!AreyOiP-W0_ohwy-S5MXcSf98y-H

    Muito obrigado pela atenção.

    sexta-feira, 14 de julho de 2017 11:41
  • Pensei que você já tivesse elaborado algum código, mas não encontrei código no seu modelo. Sempre é mais fácil obter uma resposta postando algum código. Antes de agrupar, preciso saber quais são os critérios para agrupar uma linha com outra, quais colunas/linhas  serão somadas, quais serão subtraídas...

    Por exemplo:

    Se o código da A1 for igual ao código da A2, quero somar a quantidade da B1 com a quantidade da B2, colocar o resultado da soma na B1 e apagar a linha 2 inteira.

    Precisa ser bem explicadinho assim.


    Anderson Diniz





    sexta-feira, 14 de julho de 2017 22:32
  • Pelo modelo, não está claro o que você precisa.

    Elaborei um código que exclui a linha de baixo se os primeiros campos estiverem iguais aos da linha de cima.

    Se não for isso que você precisa, explique melhor.

    Option Explicit
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim cl As Object
        
        For Each cl In ThisWorkbook.Sheets("Plan2").UsedRange
            
            If ThisWorkbook.Sheets("Plan2").Range("A" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("A" & cl.Row + 1).Value Then
                If ThisWorkbook.Sheets("Plan2").Range("B" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("B" & cl.Row + 1).Value Then
                    If ThisWorkbook.Sheets("Plan2").Range("C" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("C" & cl.Row + 1).Value Then
                        If ThisWorkbook.Sheets("Plan2").Range("D" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("D" & cl.Row + 1).Value Then
                            If ThisWorkbook.Sheets("Plan2").Range("E" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("E" & cl.Row + 1).Value Then
                                If ThisWorkbook.Sheets("Plan2").Range("F" & cl.Row).Value = ThisWorkbook.Sheets("Plan2").Range("F" & cl.Row + 1).Value Then
                                    ThisWorkbook.Sheets("Plan2").Range("A" & cl.Row + 1).EntireRow.Delete
                                End If
                            End If
                        End If
                    End If
                End If
            End If
            
        Next cl
        
    End Sub
    


    sexta-feira, 14 de julho de 2017 22:37