ترحيل صفحات الى صفحات اخرى

[Tarekfathallah]

السلام عليكم ايها الاخوة الكرام ارجو المساعدة في ترحيل البيانات وفرزها 

المطلوب في شيت تموز مثلا اريد ترحيل العمود  a&b    كله من 1 الى 52  الاسطر 

و الاسطر من c1 ,c2     بشرط عامود واحد فيهم وهو هويات اي الاعمدة d;f;h وهكذا 

يتم ترحيلها الى شيت هويات  واذا امكن مع الخلايا الملونة 

ملاحظة حاولت في ملف مغلفات ما مشي الحال واعطاني رسالة خطأ 

----------------   للرفع ---------------------

2017 نموذج.rar

[Tarekfathallah]

--------------------------------------   للرفع -------------------------------

 

[Tarekfathallah]

السلام عليكم ايها الاخوة الافاضل   حدا يرد علينا حدا يساعدنا وين الاساتذة ؟؟؟؟؟؟؟؟؟؟؟؟

------------------   للرفع ---------------------

 

[Tarekfathallah]

---------------   للرفع --------------------

[Tarekfathallah]

-----------------     للرفع    ---------------------------

[Tarekfathallah]

----------------   للرفع -----------------------

[Tarekfathallah]

*******************    للرفع *****************

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

السلام عليكم أخي الكريم طارق

جرب الكود التالي عله يكون المطلوب ..

وبدلاً من الرفع يرجى فيما بعد إلقاء مزيد من التوضيح للمشكلة مع إرفاق صورة بالمطلوب إذا لزم الأمر

Sub Test()
    Dim s As Worksheet
    Dim t As Worksheet
    Dim c As Long
    Dim x As Long
    
    Set s = Sheets("تموز")
    Set t = Sheets("هويات")
    x = 3
    
    Application.ScreenUpdating = False
        s.Columns("A:B").Copy t.Columns(1)
        
        For c = 4 To 20 Step 2 'رقم 20 آخر عمود به بيانات في ورقة تموز
            s.Columns(c).Copy t.Columns(x)
            x = x + 1
        Next c
    Application.ScreenUpdating = True
End Sub