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

[ابو طيبه]

السلام عليكم اساتذه الاعزاء اثناء البحث في هذا المنتدى وجت هذا الكود للاستاذ سليم المحترم

هل بامكان التعديل على الكود لكي يقوم بعمليه نسخ الرقم عن طريق نقر بالماوس على اي خليه في العمود B  ينسخ رقم تلك الخليه مباشرا في الخليه F1 وعند النقر على خليه اخرى ولتكنB3 او B4 او ......B تتغير قيمة الخليه F1 حسب قيمه الخليه المختاره

الكود والملف في المرفقات

 مع جزيل الشكر لجهود الجميع 

Dتنقل قيمتها الى العمود C 16 كود للاستاذ سليم مجرد ما تنقر الخلية.rar ملف لتطبيق الكود علية.xlsx

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

الكود المناسب

Option Explicit
Dim mY_rg As Range
Private Sub Worksheet_selectionchange(ByVal Target As Range)
Set mY_rg = Range("b2:b" & Cells(Rows.Count, 2).End(3))
Application.EnableEvents = False
  If Not Intersect(Target, mY_rg) Is Nothing Then
    Range("F1") = Intersect(Selection, mY_rg).Cells(1)
  End If
  Application.EnableEvents = True
End Sub

 

FIRST_CELL.xlsm

[ابو طيبه]

شكرا جزيلا لك استاذ العزيز سليم كود رائع جدا عاشت ايدك استاذ العزيز على هذه الجهود المبذولة في هذا المنتدى العظيم.

ولاكن عندما اضفت هذا الكود الى ملف العمل تعارض مع كود اخر كما في المرفق ( مهمه الكود في ملف العمل نقل الرقم الموجود من F1 الى خليه D5 عند الدخول على اي صفحه من صفحات الملف من خلال الارتباط التشعبي .الكود للاستاذ ابو تامر ) وشكرا جزيلا لجهودكم

FIRST_CELL 11.xlsm