كود لتفعيل هايبر لينك

[يوسف السيد]

السلام عليكم

بفرض انه يوجد لدينا قيمة نصية في الخلية (a1)  C:\Users\yousef\Desktop\cover letter.txt

ولكنها غير مفعلة للذهاب اليها بالهايبر لينك

السؤال : هل من كود لتحويل العنوان الموجود بالخليةa1 الي اخر خلية فارغة بالعمود a مع تفعيل الهايبر لينك

هايبر لينك.xlsm

[يوسف السيد]

Up

[يوسف السيد]

sub yyy ()
LastRow = Range("a100000").End(xlUp).Row + 1
ActiveSheet.Hyperlinks.Add Cells(LastRow, 1), [a1].Value
End sub

بعد عدة محاولات توصلت لهذا الحل