السلام عليكم ورحمة الله وبركاتة شكرا
جميعا واسف على التاخير كنت مسافر
انا حاولت جرب الاكواد ولكن ماشتغلتش معايا
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Address = "$A$2" Then
Dim c As Range
Range("B3").Value = Target.Value
For Each c In Range("C3:Z3")
If c.Offset(, -1) = 1 Then
c.Value = 2
ElseIf c.Offset(, -1) = 2 Then
c.Value = 3
ElseIf c.Offset(, -1) = 3 Then
c.Value = 1
End If
Next c
End If
End Sub
ولو امكن بدل 1 و 2 و 3
x - ص - م
شكرا
ياسر خليل أبو البراء
ابوعبدالواجد
سليم حاصبيا