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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    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