Talvez uma mistura.
o codigo acrescenta em P (da plan2 - Protocolo...) os endereços dos links
Sub teste()
For x = 1 To Worksheets(2).Hyperlinks.Count
Cells(x + 3, 16) = Worksheets(2).Hyperlinks.Item(x).Name
Next
End Sub
e na celula onde deseja "Seguir
SE(A3="";"";HIPERLINK(PROCV(A3;'Protocolo de pedidos'!A4:P21;16;0);"VER"))
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 09/04/2013 2:02 pm