Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterar primeira le...
 
Notifications
Clear all

Alterar primeira letra da célula

 
2024 - VBA & Macros
Post Recente por pires 6 anos atrás
5 Posts
2 Usuários
0 Reactions
1,047 Visualizações
RSS
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Boa Tarde Senhores,

Como eu faço para mudar a primeira letra de uma celula por outra

Exemplo:

Todos as células da coluna A que comecem com a letra C mudem para a letra A.

C106 -01
01
Total Cliente:
C11 -1
01
Total Cliente:
C110 -01

Para:
A106 -01
01
Total Cliente:
A11 -1
01
Total Cliente:
A110 -01

Obrigado!

 
Postado : 21/05/2018 11:22 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

selecione as células que devem ser alteradas.

Pressione Crlt + L >>> Substituir.

Em "Localizar" digite a letra antiga.
Em "Substituir por" digite a letra nova.

Clique em Substituir tudo.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 21/05/2018 11:38 am
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Bom dia xlarruda,

A ideia é deixar mais automático possível, há alguma forma ou só por esse caminho?

Agradeço a atenção!

 
Postado : 22/05/2018 4:43 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Segue:

Sub Substituir()
Dim ul As Long
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To ul
If Left(Plan1.Range("A" & i), 1) = "C" Then
nt = WorksheetFunction.Substitute(Plan1.Range("A" & i).Value, "C", "A")
Plan1.Range("A" & i).Value = nt
End If
Next i
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 22/05/2018 6:07 am
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Bom dia Xlarruda,

Testado e funcionando.

Muito obrigado!

 
Postado : 22/05/2018 6:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico