Boa tarde,
Em uma pasta de trabalho, possuo uma planilha que contém uma lista de serviços e outra (modelo) para composição de preços.
Após ter determinado os serviços da lista, seleciono o código de um dos serviços desta lista e ativo uma macro que cria uma nova planilha (baseada na modelo existente) renomeando esta com o código do serviço selecionado.
Ex: C001 = Serviço 01 da lista, após utilizar a macro eu terei uma nova planilha chamada C001 (com a estrutura da planilha Modelo).
Após criada esta nova planilha, necessito de uma macro que, ao criar uma nova planilha de composição de preço, também fosse criado um hyperlink na célula (selecionada) do código utilizado que possa me direcionará à esta planilha criada (C001).
Ex: C001 = Serviço 01 da lista, a célula que contém o código utilizado será um link para a planilha C001 criada.
Pesquisei aqui no fórum alguns modelos e cheguei a um resultado próximo, mas só consegui criar o hyperlink em um Range fixo.
Segue abaixo a macro e espero que seja possível solucionar este empasse.
Desde já agradeço.
Sub CriaNomeiaHyper()
Dim planBase, planNova As String
Dim plan As Worksheet, flg As Boolean
planBase = ActiveSheet.Name
nomePlan = ActiveCell.Value
For Each plan In Worksheets
If plan.Name Like nomePlan Then flg = True: Exit For
Next
If flg = True Then
MsgBox "Já existe a planilha " & "'" & _
nomePlan & "'" & ", altere o nome desejado"
Else
Sheets("Modelo").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomePlan
Range("b7").Value = ActiveSheet.Name
ActiveSheet.Hyperlinks.Add Anchor:= _
Sheets(planBase).Range("A1"), Address:="", _
SubAddress:="'" & ActiveSheet.Name _
& "'!B1", TextToDisplay:=ActiveSheet.Name
End If
End Sub