Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
sagostinho

Tabela com varios códigos iguais

Recommended Posts

sagostinho

Olá pessoal sou eu mais uma vez séra que me podiam ajudar? Lá no trabalho tenho uma tabela muito grande com milhares de códigos mas muitos desses códigos são iguais e quando eu faço um procv  ele só me encontra o primeiro  como faço para resolver isso será que não da para fazer em vba obrigado

Share this post


Link to post
Share on other sites
jmaocubo

E o que pretendes fazer com os códigos iguais??? queres agrupa-los em varias folhas? 😲

Tens que explicar melhor.

cumps,

Share this post


Link to post
Share on other sites
MetalFatigue

Mas qual é o objectivo de quando encontra repetidos? Somar?

Se for somar o que acontece à data? É a primeira, a última?

Share this post


Link to post
Share on other sites
sagostinho

Olá o objectivo é o seguinte quando eu procuro um código ele me mostre toda a informação que esta á frente desse código ex: digito o código numa célula e o ficheiro ira me entrar as datas em que houve esse código e também a restante informação que esta a frente do respectivo código não sei se me estou a fazer entender obrigado.

Share this post


Link to post
Share on other sites
MetalFatigue

Acho que entendi. Uma descrição desse código. Basicamente a mesma informação que está na outra folha mas só para esse código. Isso tem de ser por VBA ou então advanced filtering. Hoje não tenho tempo, mas amanhã a ver se vejo isso e qual a solução mais prática.

EDIT: Só uma pergunta. Isso tem de ser o esquema que apresentaste ou pode ser tudo por linhas. Estilo o que tens na outra folha?

Share this post


Link to post
Share on other sites
sagostinho

ola é isso mesmo pode ser por linhas ou como conseguires  :D :cheesygrin: obrigado

Share this post


Link to post
Share on other sites
MetalFatigue

Desculpa a demora. Olha já tive a ver e fazes isso facilmente por um filtro avançado e um pouco de VBA.

No livro que me passaste elimina todas as linhas com comentários em ambas as folhas. Elimina todas as células na folha filtro. Cola em B1 da folha filtro o nome do campo codigo (ou seja "cod.". tem de ser exactamente igual ao que está na folha "base de dados").

Abre o VBA e na folha2("filtro"), cola o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
    Set rg = Application.Intersect(Target, Folha2.Range("B2"))
    'Verifca se a Celula Modificada é onde está o código
    If (Not (rg Is Nothing)) Then
        'Limpa Dados. Alterar linhas Se houver necessidade
        Range("6:100").EntireRow.Delete
        'Cola novos dados
        Sheets("base de dados").Columns("A:N").AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("A6"), Unique:=False
    End If
End Sub

EDIT: Esqueci-me de dizer. Basta colocares o código que procuras em B2, da folha filtro.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.