Localizar texto em um célula

[Tcmac]

Creio que meu problema seja simples, mas não consigo resolvê-lo, ainda sou meio inexperiente em VBA.

É o seguinte, preciso que a macro identifique se numa célula tem o texto "CONTR", se tiver ela executa uma tal macro, se tiver o outro texto "CALCUL", executa outra macro e só...

Essa macros adicionais já estão feitas, mas estou tendo que executá-las na mão, pois não sei o comando pra fazer isso que eu quero :P

[João.Neto]

Eu criei um código de exemplo, onde a macro verifica o valor que está escrito na célula A1 e com base neste valor executa uma determinada macro. Favor analisar se isto lhe ajuda:

Sub GeraMacro()

If Cells(1, 1) = "CONTR" Then

Application.Run "MacroCONTR" 'o nome da macro vem entre aspas

ElseIf Cells(1, 1) = "CALCUL" Then

Application.Run "MacroCALCUL" 'o nome da macro vem entre aspas

End If

End Sub

Sub MacroCONTR()

' ..... Executo aqui os comandos

End Sub

Sub MacroCALCUL()

' ..... Executo aqui os comandos

End Sub

, :closedeyes:

[Tcmac]

Eu criei um código de exemplo, onde a macro verifica o valor que está escrito na célula A1 e com base neste valor executa uma determinada macro. Favor analisar se isto lhe ajuda:

Sub GeraMacro()

If Cells(1, 1) = "CONTR" Then

Application.Run "MacroCONTR" 'o nome da macro vem entre aspas

ElseIf Cells(1, 1) = "CALCUL" Then

Application.Run "MacroCALCUL" 'o nome da macro vem entre aspas

End If

End Sub

Sub MacroCONTR()

' ..... Executo aqui os comandos

End Sub

Sub MacroCALCUL()

' ..... Executo aqui os comandos

End Sub

, :closedeyes:

Muito obrigado cara, era isso mesmo que eu precisava!! Sabia que era fácil, eu só não sabia fazer.