Notifications
Clear all

Procurar valores em colunas e mover a linha

6 Posts
2 Usuários
0 Reactions
881 Visualizações
(@giovanepr)
Posts: 0
New Member
Topic starter
 

Pessoal, bom dia.

Fiz uma longa pesquisa no fórum e não consegui achar o que preciso, é uma aplicação bem especifica.

Tenho um relatório com 11 colunas e nas colunas 3,4,5,6,7, possuem valores a serem buscados ex: Corporativo, preciso que quando essa palavra for achada numa dessas colunas essa linha seja movida para a aba "corporativo", porem essa linha não pode ficar na aba "dados" onde foi feita a busca. Nessa aba "dados" tem mais de 5000 linhas, quando a linha for movida eu preciso que ela não seja sobreposta, fique uma debaixo da outra.

Eu achei muita coisa similar mas não consegui implementar ao meu uso. Alguém pode me dar um help, por favor!

Desde já agradeço!

 
Postado : 14/07/2015 4:45 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Só para compreender melhor, a palavra "Corporativo" pode estar em qualquer uma das colunas citadas ou somente em uma delas ? Se for em várias, não tem como deixa-la em uma somente ? Outra questão, os dados são puro ou são resultados de formulas ?

 
Postado : 14/07/2015 7:58 am
(@giovanepr)
Posts: 0
New Member
Topic starter
 

Mauro, boa noite

Sim, na verdade a palavra corporativo pode estar em qualquer coluna da aba "dados" e tambem pode estar no meio de uma frase na coluna, EX: na celula e4993 tem esse texto "Solicitação: Pendência de entrega - Corporativo", eu quero que a macro mova essa linha inteira para a aba "corporativo e exclua essa linha da aba "dados".

 
Postado : 14/07/2015 7:08 pm
(@giovanepr)
Posts: 0
New Member
Topic starter
 

Eu consegui fazer isso, porem não atende ele só copia as celulas da coluna C que tenha só a palavra "corporativo".

Sub inativos()
    
  Dim cell As Range
  For Each cell In Range("C1:C15000")
       If cell.Value = "corporativo" Then
            cell.EntireRow.Copy
            Sheets("teste").Select
            Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Activate
           Selection.PasteSpecial Paste:=xlPasteValues
        End If
    Next cell
End Sub

 
Postado : 15/07/2015 5:34 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

giovani, o tempo é um pouco corrido, então segue um exemplo meio antigo, de 2009, fornecido pelo Robert, ele executa o que pretende, só não deleta a linha, mas isto é simples de ajustar, só que em alguns testes percebi que acaba repetindo uma linha, e devido ao tempo não pude analisar com mais calma para encontrar o porque.
De uma olhada, preencha com os seus dados e faça alguns testes, lembrando que tem de digitar o que procura na coluna A, e na sequencia vamos nos falamos ou até outros colegas podem dar uma ajuda tambem.

Find All and Partial string

[]s

 
Postado : 16/07/2015 1:04 pm
(@giovanepr)
Posts: 0
New Member
Topic starter
 

Mauro, boa noite

É quase isso mesmo que eu quero, vou analisar profundamente esse algoritmo e tentar reformular ele de acordo com meus requisitos, te agradeço desde já.

Caso alguém tenha uma solução diferente para o meu problema, por favor, me ajudem!

Obrigado!

 
Postado : 16/07/2015 8:45 pm