طلب . كيف أجعل التحديد محدد ؟؟!!

[أبو إلياس السوري]

السلام عليكم رحمة الله وبركاته

كيف الحال إخوتي الكرام

الشرح في الملف المرفق لأنني لم أعرف كيف أعبر عن الفكرة ...بارك الله فيكم

2.rar

تم تعديل يوليو 9, 2015 بواسطه أبو إلياس السوري

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

أخي الفاضل أبو إلياس

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

Private Sub Workbook_Open()
    Call trheel
End Sub

بالنسبة لطلبك الأول الكود لا يقوم بتحديد الأعمدة من 1 إلى 7 بل من العمود الثاني بامتداد 7 أعمدة أي من 2 إلى 8 باستخدام خاصية Resize

أعتقد أنه يجب عليك توضيح النتيجة المرجوة من التحديد لنعرف كيف نتعامل مع الكود ..

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

[أبو إلياس السوري]

بارك الله فيك وجزاك خيرا..

الطلب الثاني إنحلت إن شاء الله..

الطلب الأول.... معك حق لقد خانني التعبير فهو يحدد سبعة أعمدة مثلما تفضلت... المطلوب .. عند الرجوع 6 خطوات للخلف أن يحدد أول عمود (الذي هو في مثالنا العمود 2) ومن ثم يحدد العمود الرابع (أي أن لا يحدد العمودان 3-4 في مثالنا) ومن ثم يحدد العمود الأخير..

مرة أخرى .. أي يحدد عمود ومن ثم يذهب إلى رابع عمود ويحدده وإلى سابع عمود يحدده فقط...

( . محدد... غير محدد...غير محدد...محدد..غير محدد...غير محدد..محدد)

أرجو أن أكون قد أوصلت الفكرة بشكل صحيح ...

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

إذاً كما ذكرت أ يتم التعامل مع التحديد بهذا الشكل في أكثر من سطر

جرب الكود بهذا الشكل

Sub trheel()
    Dim CL As Range, I As Integer
    For I = 2 To 4
        For Each CL In Range("H2:H" & [H10000].End(xlUp).Row)
            If CL.Value = Sheets(I).Name Then
                CL.Offset(0, -6).Resize(1, 1).Copy Sheets(I).Range("B" & Sheets(I).[B10000].End(xlUp).Row + 1)
                CL.Offset(0, -3).Resize(1, 1).Copy Sheets(I).Range("E" & Sheets(I).[B10000].End(xlUp).Row)
                CL.Resize(1, 1).Copy Sheets(I).Range("H" & Sheets(I).[B10000].End(xlUp).Row)
            End If
        Next
    Next
End Sub

تقبل تحياتي

[أبو إلياس السوري]

رحم الله والديك هذا هو المطلوب .....بالضبط