تعديل على كود في حدث الشيت

[yasse.w.2010]

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

الاساتذه الكرام

موع اوفسينا الغالي

ارجو منكم المساعدة في التعديل في هذا الكود

هذا الكود اضعه في حدث الشيت ويقف في الخلية c2 عند الدخول للشيت 

هل ممكن التعديل بحيث يظل واقف على هذه الخليه ولا يتحرك منها

 

Private Sub Worksheet_Activate()

Range("c2").Select

End Sub

شاكر لكم جدا

 

[محمد هشام.]

1)هذا الكود الذي وضعته سينقلك للشيت الهدف2)جرب وضع هذا الكود  بهذه الطريقة في حدث الورقة بعد الدخول عليها 

Private Sub Worksheet_Change(ByVal Target As Range)
Range("c2").Select
End sub

 

[yasse.w.2010]

مرسل لحضرتك ملف ..الكود لا يعمل ..ممكن اكون كش عارف طريقة وضعه ...ارجو من حضرتك تفعيله ..اريد عند فتح الشيت الخليه c2 تكون عليها

وكذا لا يتم التحرك لاي خليه اخري في الشيت 

ورقة عمل Microsoft Excel جديد.xlsm

[Ali Mohamed Ali]

يمكنك استخدام هذا الكود فى حدث Thisworkbook

Private Sub Workbook_Open()
Worksheets("æÑÞÉ1").Activate
Range("c2").Select
End Sub

ورقة عمل1 Microsoft Excel جديد.xlsm

[yasse.w.2010]

لقيت الكود ده ووضعته في حدث الصغحة من احد مشاركتكم على اوفسينا واشتغل

الف الف شكر لحضرتك وعلى اهتمامكم الف شكر

الف شكر منتدايا الغالي اوفسينا

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("c2").Select

End Sub