javitas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'megnyitja a B oszlopban található fájlnevet

If Target.Count <> 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Target.Offset(0, 1).Value = "" Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Range("K6").Value = "" Then Exit Sub

ActiveWorkbook.FollowHyperlink (Range("K6").Value & Target.Offset(0, 1).Value)

End Sub