السلام عليكم
تحية كبيرة الى الاخوين وليد فتحي و حماده عمر
هذا الكود يعطيك الذي تريده في نفس الخلية التي تكتب فيها الرقم .وفي أي خلية من ورقة العمل (غير محدود)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
Select Case Target
Case 1
Target = "Pre Foundation"
Case 2
Target = "Foundation"
Case 3
Target = "Emerging"
Case 4
Target = "Established"
Case 5
Target = "Accomplished"
End Select
End If
End Sub
RABIECHAOUKI.rar