[حل شده] گذاشتن هایپر لینک برای یک سلول به یک شیت که نام آن شیت متغیر است.و نام آن شیت را ماکرو تغییر می دهد.

[ali65e]

با سلام خدمت دوستان و اساتید خودم
صبح همگیتون بخیر
دوستان برای اینکه منظورمو بهتر تونسته باشم برسونم ،توضیحات لازم رو توو فایل ضمیمه ،خدمتتون نوشتم.

[khakzad]

سلام
دوست عزیز
من فالتون رو ندیدم
این راه حل
از فرمول hyperlink باید استفاده کنید
آدرس رو از شیت فراخوانی کنید
اسم workbook هم اگر ثابت هست داخل فرمول ینویسید
اسم شیت هم که متغیر هس از طریق کد به سل ارجاع بدید
سوالی بود در خدمتم

[Amir Ghasemiyan]

با اجازه خانم خاكزاد

ايشون نياز به vba دارن خانم خاكزاد. در هر صورت ممنون از فايلتون

خدمت شما دوست عزيز

Sub sheetnaming()
Sheets("Sheet1").Select
c = Range("B1").Value
For e = 2 To c + 1
    Name = Range("A" & e).Value
    Sheets("Sheet2").Select
    Sheets("Sheet2").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Name
    Sheets("Sheet1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
Next e
End Sub

[msmaiili]

با سلام خدمت شما اساتید گرامی
این ماکرو رو من هم نیاز داشتم
ولی طرز کارش رو متوجه نشدم

میشه توضیح بدین چجوری عمل میکنه

اگه تو یه فایل اکسل روش کارش رو نشون بدین ممنون میشم

[Amir Ghasemiyan]

با سلام خدمت شما اساتید گرامی
این ماکرو رو من هم نیاز داشتم
ولی طرز کارش رو متوجه نشدم

میشه توضیح بدین چجوری عمل میکنه

اگه تو یه فایل اکسل روش کارش رو نشون بدین ممنون میشم

سلام دوست عزيز.ديباگ كنيد متوجه ميشيد

[Amir Ghasemiyan]

سلام دوست عزيز.ديباگ كنيد متوجه ميشيد

منظورم از ديباگ كردن اينه كه شما f8 رو بزنين تا كد خط به خط اجرا بشه
با اجرا شدن كد متوجه هر دستور ميشين

[arash_059]

سلاماین vba رو که دادید من امتحان کردم و کار نمی کنهآیا جای خاصی باید run کنم؟