تعديل في الكود

[الربيعي ليبيا]

إخواني الكرام .. كل عام وانتم بخير
هذا الملف سبق وان تكرمت بكتابة كود له ولكن بعد ان قمت بحذف الصفوف الزائدة من اعلى تعطل الكود .. ارجو منك مرة اخرى مساعدتي في كتابة الكود وذلك على النحو التالي

اخوتي لدي كشف غياب معلمين والمطلب عند النقر على الخلاية يتم ادراج رقم اليوم الموجود في اعلى الخلايا وعلى النحو التالي
1. ايام الشهر تبداء من الخلية i2:am2 للمعلم الاول
2. لجميع المعلمين من i2:am1000
3. ايام الشهرمن i1:am1
مثلا عند النقر في الخلية i6 يتم كتابة الرقم الموجود في الخلية i1 وهو 1
كل شهر يكون في شيت

 

الملف المرفق

 

كشف غياب2015.rar

كشف غياب2015.rar

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

جرب الكود بهذا الشكل .. يوضع الكود في حدث ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Selection, Range("J2:AN200")) Is Nothing Then
        If Target.Cells.Count > 1 Or IsEmpty(Cells(Target.Row, 2)) Then
            Exit Sub
        Else
            Target.Value = Cells(1, Target.Column).Value
        End If
    End If
End Sub

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

[الربيعي ليبيا]

لا اله الا الله وحده لاشريك له..

شكرا لك اخي ياسر.. هذا هو المطلوب... والمعذرة من جميع الاعضاء .. اخصيتك بالذكر لانك  انت الذي كتب الكود في المرة الاولى

مرة اخرى شكرا لكم جميعا