Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Verificando e corri...
 
Notifications
Clear all

Verificando e corrigindo conteúdo de uma célula

 
2024 - VBA & Macros
Post Recente por mateus0203 9 anos atrás
5 Posts
2 Usuários
0 Reactions
916 Visualizações
RSS
 mateus0203
(@mateus0203)
Posts: 52
Trusted Member
Topic starter
 

Bom dia galera!

Estou fazendo uma Macro pra automatizar um processo longo e repetitivo e gostaria executar uma correção antes. Ela consiste no seguinte:

1. Na célula ativa eu quero verificar se há uma barra dentro dela, aquela pendente pro lado direito: /

2. Em seguida quero apagar todos os zeros que estão a direita desta barra, por exemplo:
Tenho uma célula com o seguinte: 75586/002
E quero que e ele apague os zeros à direita da barra, ficando desse jeito: 75586/2

É possível?

 
Postado : 05/09/2015 6:51 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Seria algo assim:

Sub troca()
Dim mNum
mNum = Split(Sheets("Plan1").Range("A2"), "/")
Sheets("Plan1").Range("A2").Value = mNum(0) & "/" & Val(mNum(1))
End Sub

Adapte a sua realidade

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

 
Postado : 05/09/2015 7:49 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Revisando

Sub troca()
Dim mNum
If InStr(Sheets("Plan1").Range("A2").Value, "/") > 0 Then
    mNum = Split(Sheets("Plan1").Range("A2"), "/")
    Sheets("Plan1").Range("A2").Value = mNum(0) & "/" & Val(mNum(1))
End If
End Sub

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

 
Postado : 05/09/2015 8:16 am
 mateus0203
(@mateus0203)
Posts: 52
Trusted Member
Topic starter
 

Caracas que lindo
Deu certo!
Só que queria com a célula ativa, Reinaldo, Tem como vc fazer isso?

 
Postado : 05/09/2015 8:38 am
 mateus0203
(@mateus0203)
Posts: 52
Trusted Member
Topic starter
 

Consegui Reinado!

Muitíssimo obrigado Mr M do excel kkkk

Pra quem quiser com a célula ativa, é a seguinte forma:

Sub troca()
Dim mNum
If InStr(ActiveCell.Value, "/") > 0 Then
    mNum = Split(ActiveCell, "/")
    ActiveCell.Value = mNum(0) & "/" & Val(mNum(1))
End If
End Sub

Valeu!

 
Postado : 05/09/2015 9:08 am
Forum Jump:
  Tópico Anterior
Próximo Tópico