مسح قيم او مجموعة قيم في ورقة وانتقال لقيم الممسوحة اتوماتيكيا الى ورقة اخرى

[كرتوتي]

السلام عليكم اخوتي في منتدانا الغالي .المرجو من اساتذتنا مساعدتي بأكواد أو معادلات للمرفق ادناه بحيث :

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

association.rar

[كرتوتي]

للرفع

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

السلام عليكم

 

حدد النطاق الذي تريد مسحة ثم اضغط الزر

يعني لازم تستخدم الزر للمسح حتى يعمل الكود

Sub kh_CLEAR()
Dim cel As Range
For Each cel In Selection
    If Not Intersect(cel, Range("C4:P95")) Is Nothing Then
        With cel
            ورقة2.Range(.Address).Value = .Value
            .Interior.ColorIndex = 16
            .ClearContents
        End With
    End If
Next
End Sub

المرفق 2003

association.rar

[كرتوتي]

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