محمد عبد الناصر قام بنشر أكتوبر 6, 2020 مشاركة قام بنشر أكتوبر 6, 2020 في الملف المرفق يوجد كود يقوم بربط تشعبي لاسم الشيت ووضع الاسم في الخلية B اول مشكلة هي الكود يقوم بكتابة الشيت الرئيسي Sheet1 اريد ان الغي هذا الامر ويكتب فقط الشيتات التي تليه ثاني مشكلة اريد الكود ان يكتب الرقم الموجود في كل شيت في الخلية E1 في العمود D2 md.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة وجيه شرف الدين قام بنشر أكتوبر 6, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 6, 2020 اتفضل الشيت لعله بفى بالغرض md.xlsm 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 6, 2020 مشاركة قام بنشر أكتوبر 6, 2020 Try This code Option Explicit Sub ww() Dim h As Worksheet, sh As Worksheet Dim cnt% Set h = Sheets("sheet1") h.Range("B2").Resize(Sheets.Count - 1).ClearContents cnt = 2 For Each sh In Sheets If Not sh.Name = "Sheet1" Then h.Hyperlinks.Add Anchor:=h.Cells(cnt, 2), _ Address:="", SubAddress:=sh.Name & "!A1", _ TextToDisplay:="Go to " & sh.Name h.Cells(cnt, 2).Font.Size = 16 sh.Cells(1, 6).ClearContents sh.Hyperlinks.Add Anchor:=sh.Cells(1, 6), _ Address:="", SubAddress:=h.Name & "!A1", _ TextToDisplay:="Go to " & h.Name sh.Cells(1, 5) = h.Cells(cnt, 3) cnt = cnt + 1 End If Next End Sub 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أكتوبر 6, 2020 الكاتب مشاركة قام بنشر أكتوبر 6, 2020 ماشاء الله استاذ وجيه شكراااااااا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.