Verificar Texto de um Textbox e Substituir

Question

Olá Pessoal,

Preciso de um código em VBA que faça o seguinte:

Verifique na planilha ativa se a Caixa de Texto com nome "TITULO" possui o texto "XXXX", SE possuir, não acontece nada, se NAO possuir, Subistitui "XXXX" por "YYYY"

Consegui substituir o texto da Caixa de Texto com o código:
ActiveSheet.Shapes("TITULO").TextEffect.Text = "Texto Desejado"

mas não consigo fazer a condição para checar se a shape já possui o texto ou não.

Grato.

Answer 1

If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "Texto Desejado" Then
  'Caso haja o texto, executar este código
Else
  'Caso contrário, executar este código
End If

---

http://www.ambienteoffice.com.br

Answer 2

Para ficar mais completo, poderia ser:

If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "*Texto Desejado*" Then
  'Caso haja o texto, executar este código
Else
  'Caso contrário, executar este código
  ActiveSheet.Shapes("TITULO").TextEffect.Text = Replace(ActiveSheet.Shapes("TITULO").TextEffect.Text, "XXXX", "YYYY")
End If

---

http://www.ambienteoffice.com.br

Answer 3

Para ficar mais completo, poderia ser:

 

---

http://www.ambienteoffice.com.br

If ActiveSheet.Shapes("TITULO").TextEffect.Text Like "*Texto Desejado*" Then

 'Caso haja o texto, executar este código

Else

 'Caso contrário, executar este código

 ActiveSheet.Shapes("TITULO").TextEffect.Text = Replace(ActiveSheet.Shapes("TITULO").TextEffect.Text, "XXXX", "YYYY")

End If

Felipe, funcionou perfeitamente. Agradeço muito. Abraços.