پرسش انتقال به شیت بر اساس مقدار وارد شده در یک سلول

[vahid5208]

با سلام. یه فایل اکسل دارای شیت های متعدد که هر شیت حاوی اطلاعات یک پرسنل هستش حالا میخوام داخل یه شیت مجزا هنگامی که شماره پرسنلی وارد کنم و بزنم مشاهده اطلاعات، شیت مربوط به همون شماره پرسنلی باز بشه. چطور میتونم این کار رو انجام بدم. خیلی مهمه ممنون میشم جواب بدین
من دستور زیرو مینویسم خطا میده
Dim sh as sheets
Sh=sheets("a"). Cells(1,2)
Sh.visible=true
به این معنی که شماره پرسنلی رو از خانه b2 بخون و در sh(شیتی که باید باز بشه) قرار بده و اون شیت رو باز کن

[generalsamad]

با سلام
بهتر نیست یک فایل نمونه ضمیمه کنید؟
حتما میخواهید با Vba انجام بشه؟
با هایپر لینک چرا اینکار رو انجام نمیدید؟

[vahid5208]

سلام. بله حتما باید vb باشه چون کد پرسنلی جستجو میشه و بر اساس اون اطلاعات نمایش داده میشه و به صورت ثابت نیست که بتونم هاپرلینکش کنم. چطور میتونم فایلو نمونه بفرستم؟

[generalsamad]

این کد رو تست کنید
فرض بر این است که در شیت 1 سلول B2 کد پرسنلی رو وارد میکنید

Sub hyper()
Dim sh As Worksheet
a = Sheet1.Range("B2")
Set sh = Sheets("" & a & "")
sh.Visible = True
sh.Activate
End Sub 

این هم یک نمونه بدون کد
فایل ضمیمه گردید