samselenea قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 لو سمحتو عاوزة اعمل صفحة فيها اسماء الشيتات كلها مع عمل لينك لكل شيت ممكن حد يجيبلى كود للموضوع دة انا حاولت فية كتييييير معرفتش رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 السلام عليكم جرب هذا الكود في مودويل Option Explicit Const C_A As String = "ALL_SH" Sub C_AL() On Error Resume Next With Application .ScreenUpdating = False .EnableEvents = False Dim SH As Worksheet Worksheets.add(After:=Worksheets(Worksheets.Count)).Name = C_A With ActiveSheet .Range("A1").Value = "أسماء الصفحات" .Range("B1").Value = "لينك الصفحات" .Columns("A:B").EntireColumn.AutoFit For Each SH In ThisWorkbook.Worksheets If SH.Name = C_A Then GoTo 1 With .Columns(1).Rows(65536).End(xlUp) .Offset(1, 0) = SH.Name .Offset(1, 1).FormulaR1C1 = "=HYPERLINK(""#'"" & RC[-1] & ""'!A1"", ""اذهب للورقة"")" End With SH.Range("A1").Formula = "=HYPERLINK(""#ALL_SH!A1"",""ALL_SH"")" 1 Next SH End With .ScreenUpdating = True .EnableEvents = True End With End Sub 1 رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر نوفمبر 8, 2012 مشاركة قام بنشر نوفمبر 8, 2012 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عباد حفظكم الله أدام الله عليك الصحة والعافية أبداً ما حييت أبو أنس رابط هذا التعليق شارك More sharing options...
althaer قام بنشر نوفمبر 10, 2012 مشاركة قام بنشر نوفمبر 10, 2012 بارك اله فيكم رابط هذا التعليق شارك More sharing options...
samselenea قام بنشر نوفمبر 12, 2012 الكاتب مشاركة قام بنشر نوفمبر 12, 2012 ميرسى قوى قوى ليكو انا اسفة انى اتأخرت فى شكركو بجد افادتنى كتيييييييييييييييييييييييييييييييييييييير ميرسى قوى ربنا يوفقك يارب شششششششششششششششكككككككككككككككككككككرررررررررررررررررااااااااااااااااااااا رابط هذا التعليق شارك 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.