ترحيل من شيت الى شيت اخرى بشروط

[Tarekfathallah]

السلام عليكم بحاجة الى مساعدتكم 

لدي شيت مثلا تموز وانا قد نفذت عليها ماكرو ترحيل الى شيت all  المطلوب 

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

واذا كنت اريد ترحيل اكثر من شيت مثلا حزيران وتموز كيف الطريقة 

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

2017.rar

[Tarekfathallah]

برجاء المساعدة ما الخطاء في الماكرو test    اريد ان ينقل لي من   الخلية c1    الى    الخلية m1   

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

2017.rar

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

السلام عليكم 

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

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

Sub Test()
    Dim arr     As Variant
    Dim i       As Variant
    Dim cr      As Variant
    Dim j       As Long

    arr = Sheets("تموز").Range("A1").CurrentRegion.Value
    'الأعمدة المطلوب الترحيل إليها
    cr = Array(13, 14, 15, 16, 17, 18, 19, 20, 21, 22)
    
    'أرقام الأعمدة المطلوب ترحيلها
    For Each i In Array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
        Sheets("all").Cells(1, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
        j = j + 1
    Next i
End Sub

 

[Tarekfathallah]

السلام عليك اخي ياسر والله يا اخي بعدو متل ماهو ماظبط 

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

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

أخي الكريم وعليكم السلام ..

ألاحظ في كل مشاركتك في النهاية كلمة للرفع .. أرى أنه لا داعي لها .. الرفع يكون في حالة عدم وجود أي رد آخر في المشاركة وبما أن هناك كلام في المشاركة فلا داعي لكلمة للرفع ..

في الحقيقة حاولت أفهم ما كتبته ولكني لم أوفق .. هل تم المطلوب على خير أم لا ..؟ لأني قد فهمت إنه ما ظبط معاك ..!!

إذا لم يعمل الكود أو أعطى نتائج غير صحيحة يرجى إرفاق شكل النتائج المتوقعة

[Tarekfathallah]

اخي واستاذي ياسر اولا ما ظبط بالتنسيق متل شيت تموز توسيط الخلايا وكذلك انظر التاريخ mm/dd/yyyy   وهو يجب ان يكون dd/mm/yyyy  كذلك الخلايا مغطاة ببوردر 

ثانيا والاهم اريد ان لا يترك حقل فراغ  

وثالثا والاهم اريد عند تلوين خلية في شيت تموز ان تلون مقابلتها وليس نفس الخلية اكيد 

واخيرا مشكور اخي ياسر عم ازعجك باسئلتي وطلباتي رفع الله درجاتك وفتح عليك 

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

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

أو قم بالتنسيق بعد ترحيل البيانات .. الخيار يرجع إليك

[Tarekfathallah]

السلام عليك استاذ ياسر ماشي سأعمل على هذا ومشكور 

اما فينا خص تلوين الخلايا وترحيله هل له حل 

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

إذا قمت بالنسخ بشكل عادي سيقوم الكود بنسخ نفس التنسيقات والألوان ..