Renomeie sua macro assim:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' your code here
End Sub
e use Target
para acessar a célula.
Eu tenho uma pasta de trabalho no excel e em uma coluna eu estou colocando os nomes das imagens.
Eu quero criar um código macro / vba para que, quando eu digitar o nome do arquivo na coluna, IMG_1234 será automaticamente vinculado a um arquivo como file: /// \ public \ Pictures \ IMG_1234.JPG
Então, quando alguém clicar no link, ele carregará uma nova janela com a imagem exibida.
Encontrei algum código que responde à minha pergunta em uma macro ... no entanto, pergunto-me se é possível fazer isso para que seja atualizada automaticamente, em vez de ter que executar a macro todas as vezes ...
Sub PictureLink()
MyPath = "\\public\Pictures\"
StartRow = 8
EndRow = 200
MyEnd = ".JPG"
x = 0
For i = StartRow To EndRow
If Len(Cells(i, 4).Value) > 0 Then
MyFileName = ""
MyFileName = Dir(MyPath & Cells(i, 4).Text & MyEnd, vbNormal + vbDirectory)
If MyFileName <> "" Then
x = x + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), _
Address:=MyPath & Cells(i, 4).Text & MyEnd
End If
End If
Next i
End Sub
Espero que alguém possa me ajudar a modificar isso para que ele seja feito automaticamente.
Muito obrigado