طلب كود بحث و الغاء

[mmtronic]

الاخوة الافاضل

كل ما اريدة هو كود يقوم بالبحث فى نطاق الخلايا المحدد بالاصفر اى من A1 الى A10 عن القيمة الموجودة بالخلية C2 و عندما يجدها يقوم بمسحها من هذا النطاق الاصفر

و لكم جزيل الشكر و العرفان

test.rar

[عبدالله باقشير]

السلام عليكم

استخدم الكود التالي:

Sub KH_ClearContents()

Dim C As Range

For Each C In Range("A1:A10")

    If C.Value = Range("C1").Value Then

        C.ClearContents

    End If

Next

End Sub

تم تعديل فبراير 23, 2010 بواسطه خبور خير

[هشام شلبى]

السلام عليكم

عالمنا الجليل بارك الله فيك

تم تعديل فبراير 23, 2010 بواسطه bosh

[mmtronic]

شاكر لك يا اخى دعمك الدائم لى

بارك الله لك

هو المطلوب بالضبط

[amir501]

هكذا انت دائما

للخير سباق

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

[احمد فضيله]

بارك الله فيك