Boas,
encontrei este código:
Sub test()
Dim WhereToGo As String
Dim i As Long
WhereToGo = Sheets(1).Range("F7")
i = InStr(1, WhereToGo, "!")
Application.Goto Reference:=Worksheets(Left(WhereToGo, i - 1)).Range(Right(WhereToGo, Len(WhereToGo) - i))
End Sub
Neste site: https://www.mrexcel.com/forum/excel-questions/364183-macro-go-specific-cell-different-sheet.html
Basicamente ele atribui o valor da célula a uma string (caminho completo com folha e célula) depois procura o ! (ponto exclamação) nessa string e diz que a folha se encontra à esquerda e que a célula estáà direita.
Caso as tuas células estejam todas na mesma folha podes colocar qualquer coisa como:
Application.Goto Reference:=Worksheets(Folha1).Range(WhereToGo)
ou seja sem testar ficaria algo como:
Sub test()
Dim WhereToGo As String
WhereToGo = Sheets(1).Range("F7")
Application.Goto Reference:=Worksheets(Folha1).Range(WhereToGo)
End Sub
Experimenta e boa sorte.
↧