تعديل كود الإنتقال الى تاريخ محدد

[wael2021]

اريد تعديل على الكود يا اخواني 

  عند الضغط عليها تنتقل الى الورقه حسب تاريخ اليوم 12-4 GOTO DATE يوجد في المرفق 

يعني لو تاريخ 13-4 اضغط عليها تنتقل الى ورقه رقم13

وضعت هذا الكود وأريد التعديل عليه 

Sub Bevel1_Click()
Sheets("12").Select
Range("I6").Select
End Sub

عنوان مخالف تم تعديل عنوان المشاركة ليعبر عن طلبك ... من فضلك انتبه لذلك

وجعل الله في ميزان حسناتكم 

وكل عاام وانتم بالف خير 

كشف.xlsm

[حسين مامون]

جرب هذا الكود

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

 

[wael2021]

جزاك الله خير يا حسين مامون  وكل عام وانت بخير

تمت العمليه بنجاح بفضل جهودكم