هل يوجد داله لفعل هذا الامر

[TalalTaw]

السلام عليكم

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

اريد داله تساعدني على هذا العمل وهو:

اريد عندما ادخل رقم ١ في خليه يتغير رقم واحد في نفس الخليه لرقم ٢٠

وعندما ادخل رقم ٢ في خليه اخرى او نفسها ان يتغير الرقم ل ١٤ 

للتوضيح سوف ارفق صوره

وشكراً مقدما

اخواني المقصود مثلا في عامود place

عندما ادخل مثلا في اول خليه رقم ١ تتغير تلقائي لرقم ٢٠ بحسب الجدول الذي بالاسفل او عندما ادخل رقم ٢ في نفس الخليه يتغير الرقم ل ١٤ او اذا ادخلت رقم ٣ في الخليه نفسها او اي خليه تابعه لعمود place 

تتغير الارقام حسب الجدول بالاسفل

 

Book22.xlsx

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

تفضل

تم ازالة الألوان الفاقعة التي تيهر البصر بمجرد النظر اليها

الكود يعمل في النطاق من  A3 الى A20

Talal.xlsm

[TalalTaw]

اخي الكريم شكرا على مجهودك معي لكن هنالك نقطه انا اريد ان تعمل ليس في ال A 

بل في c &E&G 

هل يمكنك التعديل عليها وجزاك الله كل خير وان يكون في ميزان حسناتك

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

تم التعديل

الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, F_rg As Range

Application.EnableEvents = False
Set Rg = Union(Range("C3:C20"), Range("E3:E20"), Range("G3:G20"))
If Not Intersect(Target, Rg) Is Nothing _
    And Target.Cells.Count = 1 Then
      Set F_rg = Range("B42:B57").Find(Target, lookat:=1)
        If Not F_rg Is Nothing Then
          Target = Cells(F_rg.Row, "C")
        End If
End If
  Application.EnableEvents = True
End Sub

Talal_1.xlsm

[TalalTaw]

اشكرك جزيل الشكر وجعله الله في ميزان حسناتك❤️❤️❤️