none
Excel e VBA - Como copiar dados de uma celula e colar na celula abaixo que está em branco ?

    Question

  • Boa tarde a todos...

    Tenho um planilha com diversos clientes e cada cliente com cada item vendido, so que na planilha tenho na coluna A o nome no cliente com o seu valor total e na coluna B os códigos do item com o valor de cada item. O que desejo fazer e copiar para a coluna A o nome do cliente para que na planilha fique o cliente para cada item vendido, ou seja, como mostro abaixo, os nomes em PARÊNTESES e em NEGRITO foram copiados da ultima coluna acima. Muito Obrigado.

    CLIENTE A DATA TOTAL 100
    (CLIENTE A ) (DATA) PRODUTO1 50
    (CLIENTE A ) (DATA) PRODUTO 2 50
    CLIENTE B DATA TOTAL 120
    (CLIENTE B) (DATA) PRODUTO1 20
    (CLIENTE B) (DATA) PRODUTO 2 30
    (CLIENTE B) (DATA) PRODUTO 3

    70

    Friday, December 14, 2012 3:18 PM

Answers

  • Ola Pessoal, tenho esse código em VBA que faz uma coisa parecida, ele copia os dados de uma coluna e cola em outra sem as celulas vazias, acredito que esse código possa ajudar. Muito obrigado pela atenção de todos. Abraço.

    Sub Copiar()
        
        'Cria variáveis para armazenar o nº da linha de cada uma das coluna e a variável _
        comntadora
        Dim LinhaC, LinhaK, i As Integer
        
        'Seta a linha da coluna C inicial
        LinhaC = 4
        
        'Armazena a quantidade de linhas com dados que tem a coluna K
        LinhaK = ActiveSheet.Cells(Cells.Rows.Count, 11).End(xlUp).Row
        
        'Laço que varre toda a coluna K (com dados)
        For i = 4 To LinhaK
        
            'Se a uma célula da coluna K tiver dados (for diferente de branco ou vazio)...
            If Range("K" & i).Value <> "" Then
            
                'Armazena na célula da coluna C o valor que encontrou na coluna K
                Range("C" & LinhaC).Value = Range("K" & i).Value
                
                'Incrementa a linha C para a próxima Linha
                LinhaC = LinhaC + 1
            
            'Encerra a decisão
            End If
            
        'Repete o laço até atingir a condição do comando FOR
        Next
        
    End Sub

    Friday, December 14, 2012 4:29 PM