تحديد الخلايا الفارغة

[Akram Galal]

السلام عليكم

أريد  كود يقوم بتحديد الخلايا الفارغة في النطاق H6:H100

وشكرا

[محمود رواس]

عليكم السلام

الاخ اكرم المحترم

ارجوا الطلاع علي المرفق اتمني يكون المطلوب 

وشكرا ،،،،

تلوين الخلايا الفارغه.rar

تم تعديل نوفمبر 24, 2014 بواسطه محمود رواس

[ibn_egypt]

السلام عليكم

أريد  كود يقوم بتحديد الخلايا الفارغة في النطاق H6:H100

وشكرا

 

أخى الفاضل

 

هناك أكثر من طريقة لعمل ذلك .. اذا كنت تريد بالكود فقم بنسخ الكود التالي والصقه في الورقة التى تعمل عليها

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRange As Range
    Set myRange = Sheet1.Range("H6:H100")

    myRange.Interior.ColorIndex = xlNone

    myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 38

End Sub

اما الطرق الأخري فتستطيع من خلال تحديد النطاق والذهاب الى Find&Select ثم اختار Goto Special واختر منها Blanks .. سيتم تحديد الخلايا الفارغة

 

واما من خلال Find&Select واختر Find ومن خلال ال Options اختر Lookin Values والبحث By Column ولا تكتب شئ في خانة البحث ثم اضغط Fina All.. سيتم ايجاد كل الخلايا الفارغة في النطاق

 

واما من خلال تحديد النطاق ثم Filter واختر من ال Filter الخيار الأخير Blanks سيعرض لك الخلايا الفارغة فقط

 

تحياتي

تم تعديل نوفمبر 24, 2014 بواسطه ibn_egypt

[ibn_egypt]

عليكم السلام

الاخ اكرم المحترم

ارجوا الطلاع علي المرفق اتمني يكون المطلوب 

وشكرا ،،،،

 

والحل الخامس الذي تفضل به الأخ الفاضل محمود رواس  

 

تحياتي أ.محمود

[ياسر خليل أبو البراء]

الأخ السائل أكرم جلال

دائما اللفظ مهم جدا إنت قلت تحديد الخلايا الفارغة في النطاق H6:H100 والحلول المقدمة من قبل الأخوة ربنا يبارك فيهم قاموا بتقديم المساعدة بتلوين النطاق

الأخ الحبيب المجتهد والنشيط جدا ابن مصر ربنا يبارك فيه قدم لك الحلين التلوين والتحديد ..

حاول بقدر المستطاع أن تكون أكثر تحديدا لطلبك

[Akram Galal]

أحبتي في الله

أنا لم أقل تلوين قلت فقط تحديد

والتحديد شيء والتلوين شيء أخر

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

[ibn_egypt]

أحبتي في الله

أنا لم أقل تلوين قلت فقط تحديد

والتحديد شيء والتلوين شيء أخر

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

 

اخى الفاضل

 

طب ما تغير في الكود وخليه كده

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRange As Range

    Set myRange = Sheet1.Range("H6:H100")
    
    myRange.SpecialCells(xlCellTypeBlanks).Select

End Sub

تحياتي

[ياسر خليل أبو البراء]

كل السبل تؤدي إلى روما .. بس يبدو يا ابن مصر محدش فاهم القصة دي غيري وغيرك تقبل تحياتي

[Akram Galal]

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

كود حلو