الكتابة بشرط

[Akram Galal]

السادة الأفاضل أعضاء المنتدى
كل عام وأنتم بخير
أريد كود يقوم بالأتي
عند الوقوف علي أي خلية في العمود B يتم كتابة رقم 1 في الخلية المقابله لها في العمود H
وعند الوقوف علي أي خلية أخرى في العمود B يتم مسح رقم 1 في الخلية القديمة ويكتب رقم 1 في الجديدة

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

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

ربما هذا الكود هو المطلوب

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Or Target.Count <> 1 Then GoTo 1
Application.EnableEvents = False
  Range("H:H").ClearContents
  Target.Offset(0, 6) = 1
 
1:
Application.EnableEvents = True

End Sub

 

[Akram Galal]

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

سوف أجرب الكود وأخبرك بالنتيجة

[أبو عبد النور]

جرب هذا :

خلية.rar