wael2021 قام بنشر أبريل 12, 2021 مشاركة قام بنشر أبريل 12, 2021 اريد تعديل على الكود يا اخواني عند الضغط عليها تنتقل الى الورقه حسب تاريخ اليوم 12-4 GOTO DATE يوجد في المرفق يعني لو تاريخ 13-4 اضغط عليها تنتقل الى ورقه رقم13 وضعت هذا الكود وأريد التعديل عليه Sub Bevel1_Click() Sheets("12").Select Range("I6").Select End Sub عنوان مخالف تم تعديل عنوان المشاركة ليعبر عن طلبك ... من فضلك انتبه لذلك وجعل الله في ميزان حسناتكم وكل عاام وانتم بالف خير كشف.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر أبريل 12, 2021 أفضل إجابة مشاركة قام بنشر أبريل 12, 2021 جرب هذا الكود Sub Bevel1_Click() Dim sh For Each sh In Sheets If Format(Sheets("main").Range("m3"), "d") = sh.Name Then sh.Activate Range("I6").Select Exit For End If Next End Sub 1 1 رابط هذا التعليق شارك More sharing options...
wael2021 قام بنشر أبريل 13, 2021 الكاتب مشاركة قام بنشر أبريل 13, 2021 جزاك الله خير يا حسين مامون وكل عام وانت بخير تمت العمليه بنجاح بفضل جهودكم 1 رابط هذا التعليق شارك 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.