Excel 2010 VBA para Hiperlink Active Cell para si mesmo, para que ele levasse à localização exata de quando a célula é colada e enviada no email do Outlook

Question

Objetivo: Excel 2010 - VBA para Hyperlink Active Cell para si mesmo, de modo que levaria à localização exata na planilha a partir do momento em que a célula é colada e enviada no e-mail do Outlook. Eu preciso manter o conteúdo da célula do Excel intacto - continue exibindo o que eu tenho nele não relacionado ao hiperlink, etc. Essa célula será enviada por e-mail. É necessário clicar na célula do email do Outlook e fazer com que o Hyperlink abra a planilha e selecione o local exato da célula nessa planilha. O único elemento que falta é a parte Hyperlinking. O código do VBA que eu tenho abaixo bugs (destaque amarelo) a parte com hiperlinks. Desculpe se eu não estou colando o código de acordo com as regras - eu provavelmente não estou entendendo eles. Obrigado pela ajuda!

Sub H_Link_Cell_to_Self
Dim path As String
Dim sheet As String
Dim cell As String
path = Application.ActiveWorkbook.FullName
sheet = Application.ActiveSheet.Name
cell = Application.ActiveCell.Address
ActiveSheet.Hyperlinks.Add Range(Active.Cell), "path” & “\“ & “sheet” & “\“ & “cell"
End Sub

    

Answer 1

Seu código fica bem com exceção da linha que adiciona o hiperlink. Aqui você tem suas variáveis cercadas por aspas duplas, o que faz com que elas sejam interpretadas como valores literais ao invés de variáveis.

Tente isso:

ActiveSheet.Hyperlinks.Add Range(Active.Cell), path & “\“ & sheet & “\“ & cell