معادلة لفتح شيت عن طريق هايبر لينك

[صياد الجراح]

السلام عليكم ..بسم الله الرحمن الرحيم

 فى البداية حابب اشكر كل الاساتذة الكرام فى هذا المنتدى  

اخوكم لسا مبتدئ فى vba 

  وشغال عملى عشان الدوال تثبت معايا  

 وقف معايا على دالة فتح شيت عن طريق هايبر لينك جوه اليوزرفورم 

TEXTbox بمعنى فى خانة

مكتوب فيها اسم الشيت وتحتها زر  المطلوب لما ندوس على زر ده يدخل على اسم الشيت المكتوب فى خانة 

الصورة توضح المطلوب 

 لما ادوس على زر فتح الشيت يدخل على الشيت اللى اسمه مذكور A4

انا  بحاول افهم الدنيا والملف فى اخطاء  ..على العموم انا محتاج حاليا الكود ده و مرفق .. ملف فاضى كل المطلوب كود 

انى اكتب اسم الشيت فى التكست بوكس ..ولما ادوس على زر دخول الشيت .. يفتح الشيت اللى مكتوب اسمه فى التكست بوكس ..لكم تحياتى 

  لكم منى جزيل الشكر والتقدير 

New Microsoft Excel Worksheet (2).xlsm

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

ضع هذا الكود في  زر دخول

Application.Goto ThisWorkbook.Worksheets(TextBox1.Value).Range("A1")

 

[صياد الجراح]

اخى حسونه  الف شكر 

 بارك الله فيك

لك ودى وتقديرى  لشخصك الكريم 

[حسونة حسين]

الشكر لله اخى

الحمد لله الذي بنعمته تتم الصالحات