Notifications
Clear all

Macro Substituir

10 Posts
2 Usuários
0 Reactions
1,680 Visualizações
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Olá novamente !!(já estou virando usuário chato).

Primeiramente gostaria de agradecer o pessoal do forum que tem me ajudado muito, e avisar que antes de postar aqui eu tento de varias formas resolver o problema, mas como sou iniciante sao muitas as dúvidas.

Agora vamos ao caso:

Por ser um caso meio complicado de explicar, montei uma planilha e a anexei e nela esta detalhada a dúvida. Gostaria apenas de informar que eu gostaria de copiar a planilha que recebo do meu sistema e colar na planilha que eu montei e na coluna "A" ele traduzisse os códigos recebidos. Hoje eu utilizo uma gambiarra que funciona mas da muito problema, as vezes trava e se perde os dados e tenho q comecar do 0.

Desde já agradeço a cooperação de todos.

 
Postado : 02/06/2014 11:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Onde está sua macro?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2014 6:50 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Ai que esta o problema, eu não sei por onde começar, a macro que fiz ( e não postei ) foi uma simples de copiar a coluna resultado da tabela " Formula para traduzir"- coluna resultado e colar na coluna Cidade da tabela "Extraída do sistema"

 
Postado : 03/06/2014 7:35 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tudo bem!

vamos tentar entender sua dúvida.

tt1 teste1 teste1
tt1 teste2 teste1
tt1 teste3 teste1
tt2 teste4 teste2
tt1 teste5 teste1
O que você deseja, seria pegar os tt e transformar em teste.

Ou seja, tt1 = Teste1, tt2 = Teste2, seria isso?????

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2014 7:53 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Sim, é exatamente isso.

 
Postado : 03/06/2014 7:56 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Cara como você não disse onde vai começar ou terminar o intervalo, eu fiz assim.

Sub AleVBA_11942()
    Dim C      As Range
    For Each C In Selection
        Select Case C.Value
            Case "tt1"
                C.Value = "Teste1"
            Case "tt2"
                C.Value = "Teste2"
            Case "tt3"
                C.Value = "Teste3"
            Case "tt4"
                C.Value = "Teste4"
        End Select
    Next C
End Sub

Como funciona..... você vai selecionar as células que deseja substituir e executar a macro.
Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2014 8:11 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Segue o arquivo modelo com a macro.
http://www.sendspace.com/file/ysxtoh

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2014 8:18 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Alexandre, baixei a planilha, mas a macro não esta funcionando, tentei fazer algumas alterações sem sucesso.

 
Postado : 03/06/2014 9:11 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Nossa que vacilo meu, eu não tinha prestado atenção aki na sua resposta. Desculpa Alexandre, funcionou sim, eu só vou tentar configurar para que ela faça isso da A1 até a A150, mas ai acho que já é mais facil. Obrigado.

 
Postado : 03/06/2014 9:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Da forma como está o código pronto, você terá que selecionar o intervalo, caso contrario, mude a linha abaixo.

Dessa...........

For Each C In Selection

Para......

For Each C In Range("A1:A150")

, faça os testes.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/06/2014 10:08 am