none
AJUDA: Excel VBA - Compilação de informações em base de dados RRS feed

  • Pergunta

  • Olá pessoal,

    Gostaria da ajuda de voces.

    Tenho uma planilha em formatação de base de dados (ainda assim é em excel) e gostaria de compilar os dados (um abaixo do outro de acordo com as colunas).

    Gostaria de saber se alguem pode me ajudar, não estou conseguindo reproduzir uma rotina pra isso.

    Eu pensei em algo do tipo:

    1- Copie o conteudo da celula A2

    2- Se a Celula abaixo for igual, passar para a coluna seguinte. Se não, copiar tambem.

    E reproduzir isso por todas as colunas (coloquei um numero reduzido mas penso que teria mais.

    Fiz uma planilha com duas abas.

    BASE: Como eu tenho a planilha de base de dados

    Recon: Como eu gostaria que a informação ficasse disposta

    Link para download da planilha:

    http://www.4shared.com/file/9l7vTIS6/Teste_Excel.html

    Espero ter conseguido me explicar bem.

    Obrigado

    quarta-feira, 16 de janeiro de 2013 13:58

Respostas

  • Estou considerando que onde você escreveu "colunas", na verdade é "linhas".

    Experimente executar a macro abaixo:

    Sub Exemplo()
        Dim lRow As Long
        Dim sRegistro As String
        
        sRegistro = InputBox("Digite aqui o registro que deseja adicionar:")
        
        If IsError(Application.Match(sRegistro, Columns("A"), 0)) Then
            Cells(Rows.Count, "A").End(xlUp).Offset(1) = sRegistro
            MsgBox "Registro adicionado com sucesso!", vbInformation
        Else
            MsgBox "Erro: Registro já existe!", vbCritical
        End If
        
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 16 de janeiro de 2013 21:51
    Moderador