الرجوع الى شيت1 عند النقر على خلية اخرى

[حسين مامون]

السلام عليكم ورحمة الله

اخوتي في الله

فضلا اريد كود في حدث الوركبوك عند النقر على الخليةg1 في اي شيت  يرجع الى شيت 1 

جزاكم الله خيرا

[سليم حاصبيا]

هذا الكود

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Sheet1" Then Exit Sub
 If ActiveCell.Address = "$G$1" Then Sheets("Sheet1").Activate
End Sub

 

[حسين مامون]

جزاك الله خيرا استاذ  سليم  

اضفت end if اسفل الكود 

جميل كود رائع يسهل العمل على مئات الصفحات  من خلاله وفي رمشة عين ترجع الى ص الرئيسية

اسعدك الله ورعاك وحغظك  

[سليم حاصبيا]

5 ساعات مضت, حسين مامون said:

جزاك الله خيرا استاذ  سليم  

اضفت end if اسفل الكود 

جميل كود رائع يسهل العمل على مئات الصفحات  من خلاله وفي رمشة عين ترجع الى ص الرئيسية

اسعدك الله ورعاك وحغظك  

اذا كانت If وجوابها بعد Then في نفس السطر لا حاجة الى end if