Este fórum está sendo desativado

[diogocs32]

Boa noite, tenho uma planilha que tem várias datas, porém na mesma célula tem texto

ex: na célula A1 tem: data do consumo 01/06/2018

eu poderia clicar em substituir e colocar substituir "data do consumo " por "" ficaria do jeito que quero, porém gostaria de algo mais rápido, então pensei em criar um botão em vba ou macro que fizesse isso com apenas um click, ai criei uma macro, só que ao executar a macro ela me dá o resultado da data mês no lugar de dia e dia no lugar de mês.

ex: data do consumo 01/06/2018 eu executo a macro ela fica 06/01/2018

já queria neste mesmo código vba ou macro excluir outro texto

está "profissional: joão" queria que excluísse a palavra "profissional: " e ficasse só "joão"

[gfranco]

Boa noite.
Sugiro postar um modelo de sua planilha (com dados fictícios mas mesma estrutura)
Poste um modelo em excel (não uma imagem) de preferencia com uma demonstração manual do resultado pretendido.
Para anexar o arquivo, clique em +Resposta e localize a opção abaixo da janela de digitação de mensagens.

[diogocs32]

um colega me enviou esse aqui, só que eu precisava que alterasse em qualquer local da tabela... se alguém conseguir me ajudar ficarei muito grato...

[osvaldomp]

... só que eu precisava que alterasse em qualquer local da tabela...

Veja se o código abaixo ajuda. Irá processar da coluna A até a última coluna com dados na linha 1.

Código: Selecionar todos

Sub Substituir()
 Dim plan As Worksheet, arrItem() As String
 Dim i As Long, UltLinha As Long, tArr As Integer, UltColuna As Long, k As Long
  Set plan = Sheets("Plan1")
  UltColuna = plan.Cells(1, Columns.Count).End(xlToLeft).Column
   For k = 1 To UltColuna
    UltLinha = plan.Cells(Rows.Count, k).End(xlUp).Row
     For i = 1 To UltLinha
      arrItem = Split(plan.Cells(i, k), " ")
      tArr = UBound(arrItem)
      plan.Cells(i, k) = arrItem(tArr)
     Next i
   Next k
End Sub