كود حذف اوتوماتيكي للاسم او الصف الفارغ داخل الجدول

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

أولاً  لم افهم عليك ماذا تريد

ثانياً  هذا مثال لكيفية غمل التنسيق حسب قيمة الخلية (هنا تم استعمال استدعاء الكود  Incolor_me  من   الكود  Talween)

لزبادة وضوح الصورة

Option Explicit

Sub Talween()
 Dim My_cel As Range
 Dim Rg As Range
 Dim x%
 Incolor_me
 Set Rg = Range("A1").CurrentRegion
  For Each My_cel In Rg
    Select Case My_cel
     Case vbNullString: GoTo Next_i
     Case Is < 0: x = 35
     Case Is = 0: x = 6
     Case Is > 0: x = 40
    End Select
  My_cel.Interior.ColorIndex = x
Next_i:
 Next
End Sub
'++++++++++++++++++++++++++++++
Sub Incolor_me()
Range("A1").CurrentRegion.Interior.ColorIndex = xlNone
End Sub

الملف مرفق

Colorize.xlsm

[jack305]

شكرا اخي  لقد اثقلت عليك...

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

الملف  الذي  عدلته لي  بحيث اذا حذفت منه اسما   رتبت القائمة 

اريد ان اجعله كمصدر للبيانات  واقوم  باخد الاسماء  منه  الى ورقة اخرى

فهل من الممكن اذا  حذفت اسم من الورقة التي  وضعتها مصدر للبيانات   ان   لا  تحوي الصفحة التي  حولت اليها  الاسماء  ا ي خطا

و كيف اقوم بذللمك ان امكن

تم تعديل أكتوبر 5, 2020 بواسطه jack305

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

يمكن عمل ذلك بمعادلة بسيطة ولا ضرورة للكود

مثال قي الملف المرفق

الاسماء الأساسية في الصفحة  Source  ويوجد عنها نسخة مرتبطة بها في الصقحة Target

اذا حذفت (اسم او عدة اسماء) او اضفت ( اسم او عدة اسماء ) في الصفحة  Source تتغير البيانات في Target

Dynamic_names.xlsx

[jack305]

شكرا اخي الفاضل

السلام عليكم  خبراء  المنتدى خاصة الاخ سليم........لي  طلب  

اريد منك ان  تضع لي كود حذف الفراغ  مع  معطيات السطر

ان  تكون جميع الخلايا  عدا الجدول سوداء

ان يتم تلوين الطور  الثانوي  بلون

و المتوسط بلون اخر والابتدائي  بلون اخر  

لقد ادرجت  لكم  ورقة عمل

و شكرا  على صبركم  

اعانكم الله

1.xlsx

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

لقد رفعت لك ملفاً مشابهاً لما تريد

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

 

[jack305]

 شكرا اخي

رغم عجزي  في تعديله