سلام مبینا

با همان تابع HYPERLINK میشه انجام داد در سلول O3 از تابع به صورت ذیل استفاده کنید

=HYPERLINK(“#'”&Q3&”‘!A1″,”Enter”)

اگر هم با کدنویسی بخواهید انجام دهید روی شیت Lists کلیک راست و گزینه View Code را برنید در پنجره VBA کد ذیل را کپی کنید

Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo Err:
      Application.EnableEvents = False
      If Target.Address = “$Q$3” Then Worksheets(CStr(Range(“Q3”))).Activate
      Range(“R3”) = “”
      Application.EnableEvents = True
      Exit Sub
Err:
      Range(“R3”) = “Error”
      Application.EnableEvents = True
End Sub

در این صورت به وارد کردن شماره شیت در سلول Q3 اگر شیت وجود داشته باشد بلافاصله نمایش داده می شود در غیر این صورت در سلول R3 متن Error رو میبینید

سلام

چرا برای ادرس تابع  HYPERLNK به این شکل باید انجام بدیم؟

فرمت آدرس دهی به این صورت است، آدرس مقصد باید در داخل دابل کوتیشن ” “ قرار داشته باشد این آدرس میتونه آدرس یک سایت، آدرس یک فایل در کامپیوتر شما یا در روی سرور باشد و … برای مثال

برای ایجاد لینک به این سایت

=HYPERLINK(“https://sheet1.ir/”, “Click”)

برای ایجاد لینک به یک فایل PDF به نام ABC که در درایو D پوشه 123 قرار دارد

=HYPERLINK(“D:/123/ABC.pdf”, “Click”)

برای لینک به سلول D10 در شیت فعال

=HYPERLINK(“#D10″,”Click”)

برای لینک به سلول D10 در شیت List

=HYPERLINK(“#List!D10″,”Click”)

و ….