سؤال حول نسخ الكود

[طالب مدرسة أوفيسنا]

السلام عليكم اخوني الافاضل

اواجه مشكله بسيطه في نسخ كود حيث اني اخذت الكود من احدى مشاركات الاساتذه بارك الله فيهم وزادهم من نعيمه

المشكله يعمل الكود في المثال

ولما اعمل نسغ ولصق في الملف الخاص بي لايعمل

[طالب مدرسة أوفيسنا]

هذا الكود من عمل الاستاذ هشام شلبى

Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

If Not Intersect(Target, Range("A1:A100")) Is Nothing Then

Select Case Target

Case 1 To 5

icolor = 6

Case 6 To 10

icolor = 12

Case 11 To 15

icolor = 7

Case 16 To 20

icolor = 53

Case 21 To 25

icolor = 15

Case 26 To 30

icolor = 42

Case Else

'Whatever

End Select

Target.Interior.ColorIndex = icolor

End If

End Sub

تم تعديل مارس 15, 2010 بواسطه x8.

[أبوســـارة1973]

أرفق الملف الذي أضفت إليه هذا الكود

لنرى ما الخلل فيه .

تم تعديل مارس 15, 2010 بواسطه abusarah73

[hmksalem]

مساء الورد

حمل الملف حتي أري المثال علي ملفك وأرجع اليك

في الإنتظار

[طالب مدرسة أوفيسنا]

شكرا لكم ياشباب بعد عدة محاولات الحمد لله استطعت من تشغيله بشكل صحيح

اكرر شكر