طلب كود أو دالة تغيير إسم خلية

[ريان أحمد]

السلام عليكم

الرجاء المساعدة في هذا الملف بحيث عند فرز قيمة معينة تتغير الكتابة في الخلية

 

 

Nouveau Microsoft Office Excel 97-2003 Worksheet.rar

[محمد ابو البـراء]

تفضل أخي الحبيب // ريان أحمد لعله المطلوب

 

Nouveau Microsoft Office Excel 97-2003 Worksheet_braa.rar

[رجب جاويش]

أخى الحبيب / محمد أبو البراء

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

[محمد ابو البـراء]

وخيراً جزاك استاذي الحبيب // رجب جاويش

والله واحشني..

[ريان أحمد]

شكرا وجزاك الله كل خير  هل  يمكن ترجمتها في كود

[محمد ابو البـراء]

الاستاذ // ريان أحمد

  تفضل هذا الكود لعله ما تريد..

Sub braa_Filter_if()
    ActiveSheet.Range("$A$12:$H$25").AutoFilter Field:=7, Criteria1:=Range("f1")
  Range("A6:G7").Select
     ActiveCell.FormulaR1C1 = _
        "=IF(R[-5]C[12]=5,""المؤسسة الشمالية"",IF(R[-5]C[12]=9,""المؤسسة الجنوبية"",IF(R[-5]C[12]=3,""المؤسسة الغربية"",IF(R[-5]C[12]=2,""المؤسسة الشرقية"",""الرقم غير موجود""))))"
        Range("f1").Select
End Sub

Nouveau Microsoft Office Excel 97-2003 Worksheet_braa 2.rar

[ريان أحمد]

هدا ما أريده شكرا و جزاك الله كل خير