كود لإظهار اسم الخلية النشطة في خلية أخرى

[hatem abdulrahman]

أرجو من الأخوة الكرام مساعدتي في عمل كود لإظهار اسم الخلية النشطة ( التي عليها تحديد) في خلية أخرى . 

كمثال على ذلك : 
إذا قمت بعمل سيلكت للخلية B5 تظهر اسم الخلية B5 أو قيمتها في الخلية A1 
و إذا قمت بعمل سيلكت للخلية B6 تظهر اسم الخلية B6 أو قيمتها في الخلية A1 
و هكذا .... 

مع خالص الشكر ،،،،

تم تعديل يوليو 31, 2018 بواسطه hatem abdulrahman

[hatem abdulrahman]

للرفع

[Ali Mohamed Ali]

اهلا بك استاذ حاتم اخ كريم فى منتدانا

تفضل لك ما طلبت

 

كود لإظهار اسم الخلية النشطة في خلية أخرى.xlsm

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

THIS CODE
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.Range("a1")
.Offset(1).Resize(1000, 1) = vbNullString
.Value = Selection.Address
.Offset(1).Resize(Selection.Rows.Count, 1).Value = Selection.Value
End With
End Sub

 

[hatem ahmed mo]

شكرا جزيلا للأخوة الكرام ،،، 
ألف شكر

تم تعديل أغسطس 1, 2018 بواسطه hatem ahmed mo

[Ali Mohamed Ali]

أخى الكريم حاتم قم بوضع هذا الكود فى حدث الورقة وليس فى موديول

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A1").Value = ActiveCell.Value
    If ActiveCell = "" Then
    Range("A1").Value = ActiveCell.Address
End If
End Sub

ولكم منى جزيل الشكر

[hatem ahmed mo]

معلش هل ممكن اعرف ازاي استخدم اختصار CTRL+Z )التراجع بعد اضافة الكود 
لان بعد اضافة الكود التراجع اتلغى نهائي

[أحمد يوسف]

بارك الله فيكم جميعا على هذا العمل الرائع