Excel Macro assign a um botao nao esta rodando VBA

FlaviaTaynara · 30 de março de 2020

Ola,

Estou tendo problemas para rodar o madro a um botao, o erro The macro may not be available in this workbook or all macros may be disabled.

O codigo em si esta funcionando e quando rodo o macro pelos botões F5 ou F8 ele funciona perfeitamente.

Eu ja tentei debugging the Macro, mudar o "sub" to "public sub", abrir um novo Modulo colar o codigo la, eu tambem ja mudei o nome do modulo e do subs varias vezes e mesmo assim o erro aparece.

Public Sub searchsOnline_benes()
 
 Dim chromePath As String
 Dim temp As Variant
 Dim searchname1 As String
 Dim temp2 As Variant
 Dim temp3 As Variant
 
 Alert1.Activate
 
 chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
 
 'split the sign '&'
 searchname1 = Range("H2").Value 'Bene1 Name
 temp2 = Split(searchname1, " "): searchname1 = Join(temp2, "+") 'Client name 'Bene1 Name
 temp3 = Split(searchname1, "&"): searchname1 = Join(temp3, "%26") 'Client name 'Bene1 Name
 Shell (chromePath & " -url http://irisportal.chgfe.biz/sites/IRIS/TMS/_layouts/OSSSearchResults.aspx?k=" & searchname1)

End sub

30 de março de 2020

Você confirmou se o botão está vinculado ao nome da macro desejada?

clique com o direito sobre o botão / Atribuir macro

FlaviaTaynara · 30 de março de 2020

@osvaldomp aim estava.

no final o problema era com o nome do modulo, troquei o nome do modulo e do Sub vinculei novamente o macro ao Botão e salvei o arquivo, fechei e abrir novamente e deu certo.

mais uma vez obrigada por ajudar.

ps: saberia me dizer como posso marcar como resolvido a minha pergunta aqui no forum?