عند تنشيط خلية

[طه الدوي]

السلام عليكم 

هل يمكن عند تنشيط خلية في العمود (a )مثلا اي بمجرد اختيارخلية بهذا العمود يكتب اوتوماتيكيا رقم او حرف في العمد(b)  اي في الخلية المجاورة لها؟

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

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

جرب هذا الملف 

الكود يعمل في النطاق من  A1 الى A10 (اللون الأصفر)

الكود

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing _
And Target.Count = 1 Then
Range("B1:B10").ClearContents
 Target.Offset(, 1) = Range("F1")
End If
Application.EnableEvents = True
End Sub

الملف مرفق

 

Writ in Offset.xlsm

[طه الدوي]

اشكرك استاذ سليم شكرا جزيلا

كود رائع 

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

تقبل تحياتي