[حل شده] رفع خطای کد نویسی HyperLink در VBA

[sabertb]

سلام و خسته نباشید به اساتید گرامی ،
سعی کردم در یک Button کدی بنویسم که فایل مورد نظر منو از مسیر مشخص شده که متغییر هم هست باز کنه ولی نمیدونم چرا جواب نمیده !
علت این مشکلم رو می تونید توضیح بدید ؟

[Amir Ghasemiyan]

سلام دوست عزيز
ظاهرا شيتي به اسم Number_R2 در ليست شيت هاتون نداريد

[sabertb]

سلام دوست عزيز
ظاهرا شيتي به اسم Number_R2 در ليست شيت هاتون نداريد

این اسم فرمول Offset ای هست که یک عدد رو برمی گردونه که در واقع شامل اسم فایل مورد نظر می باشد.

[Amir Ghasemiyan]

این اسم فرمول Offset ای هست که یک عدد رو برمی گردونه که در واقع شامل اسم فایل مورد نظر می باشد.

اگر فرموله چرا داخل دابل كوتيشن هست؟

وقتي داخل "" قرار ميديد يعني متن. يعني اسم يك شيت. اگر فرمول هست بايد از داخل كوتيشن خارج بشه

[sabertb]

اگر فرموله چرا داخل دابل كوتيشن هست؟

وقتي داخل "" قرار ميديد يعني متن. يعني اسم يك شيت. اگر فرمول هست بايد از داخل كوتيشن خارج بشه

در واقع یه Range اسم گزاری شده است که با فرمول به دست می آید ولی مشکل با "" گذاشتن یا نکذاشتن حل نمیشه نمی دونم چرا !
سعی میکنم فایل بزارم تا بهتر بشود بررسیش کرد

[sabertb]

این نمونه فایل هست

[Amir Ghasemiyan]

دوست عزيز فايلتون كاملا درسته. فقط تو كدهاتون دو تا اسپيس اضافه گذاشته بودين. اين كد رو جايگزين كنيد مشكلتون حل ميشه

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=Application.ThisWorkbook.Path & "\Note\" & Sheet5.Range("Number_R2").Value & ".docx"
End Sub