شكرا جزيلا لاستاذنا محمد هشام واكثر الله من امثالك تمام كدا فقط للعلم فقد غيرت sh1.Range("H8").Value = sh2.Range("F8").Value الى sh1.Range("H8").Value = sh2.Range("B8").Value والخاص بالغياب في استمــارة غيـــاب لانه يعطي الفترة بدل من التاريخ بعد اذن حضرتك والكود يعمل بشكل رائع وجميل