طلب مساعدة : كود ترحيل بمواصفات معينة ارجو المساعدة

[عاشق الاكسيل]

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

لدى طلب ان شاء الله بسيط ويستطيع احدالاخوة مساعدتى

المعطيات:

لدى ورقة عمل تحتوى على صفحتن "tax" , "tax41"

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

 

المطلوب :

كود ترحيل عل سبيل المثال اول عمود فى الجدول من صفحة "tax" الى العمود الثانى فى الجدول من صفحة "tax41"

وثان عمود فى الجدول من صفحة "tax" الى العمود الرابع فى الجدول من صفحة "tax41"

وثالث عمود فى الجدول من صفحة "tax" الى العمود الخامس فى الجدول من صفحة "tax41"

ورابع عمود فى الجدول من صفحة "tax" الى العمود السادس فى الجدول من صفحة "tax41"

 

مع تحديد نطاق الجدول فى الصفحة الاولى والثانية فى كود الترحيل

 

تم ارفاق مثال

exeg.rar

تم تعديل مارس 13, 2015 بواسطه Acc.AboMalak

[عاشق الاكسيل]

للرفع فى انتظار مساعدة الاخوة

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

أخي الفاضل أهلا ومرحبا بك بين إخوانك

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

[عاشق الاكسيل]

أخي الفاضل أهلا ومرحبا بك بين إخوانك

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

 

اخى الفاضل شكرا بترحيبك

تم اضافة مرفق يوضح المطلوب وفى انتظار مساعدة الاخوة

[سليم حاصبيا]

اليك هذا الملف ربما يساعدك

الافضل ان ترسل ملفك للعمل عليه

differente columns.rar

[عاشق الاكسيل]

اليك هذا الملف ربما يساعدك

الافضل ان ترسل ملفك للعمل عليه

شكرا على مشاركتك

تم اضافة ملف مرفق بالفعل برجاء مراجعته

وارجو ان يكون الكود مرتبط برز اى لا يتم الترحيل من تلقاء نفسه

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

تفضل أخي الحبيب

Sub TransferData()
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("tax"): Set SH = Sheets("tax41")
    Application.ScreenUpdating = False
        'العمود الأول
        WS.Range("A2:A15").Copy
        SH.Range("A2").PasteSpecial xlPasteValues
        'العمود الثاني
        WS.Range("B2:B15").Copy
        SH.Range("H2").PasteSpecial xlPasteValues
        'العمود الثالث
        WS.Range("C2:C15").Copy
        SH.Range("G2").PasteSpecial xlPasteValues
        'العمود الرابع
        WS.Range("D2:D15").Copy
        SH.Range("F2").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

exeg.rar

[عاشق الاكسيل]

 

تفضل أخي الحبيب

Sub TransferData()
    Dim WS As Worksheet, SH As Worksheet
    Set WS = Sheets("tax"): Set SH = Sheets("tax41")
    Application.ScreenUpdating = False
        'العمود الأول
        WS.Range("A2:A15").Copy
        SH.Range("A2").PasteSpecial xlPasteValues
        'العمود الثاني
        WS.Range("B2:B15").Copy
        SH.Range("H2").PasteSpecial xlPasteValues
        'العمود الثالث
        WS.Range("C2:C15").Copy
        SH.Range("G2").PasteSpecial xlPasteValues
        'العمود الرابع
        WS.Range("D2:D15").Copy
        SH.Range("F2").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

اخى العزيز

اتقدم بخالص الشكر على تعاونك فى تنفيذ مطلبى

جعلك الله عون للجميع وبارك لك فى حياتك

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

بارك الله فيك يا أبو ملك (وربنا يخلي لك ملك)

الحمد لله أن تم المطلوب على خير .. وإن كنت أريد عتابك على عدم التوضيح بشكل صحيح في مشاركتك الأولى .. الأعمدة التي ذكرت النقل إليها غير الأعمدة المطلوبة (يرجى بعد ذلك تحري الدقة في الطلب حتى لا يحدث تشويش في أجهزة الإرسال خاصة جميع الأعضاء ، مما يتسبب في حدوث تهنيج وتعطيل وربما إغلاق للأجهزة !!)

تقبل تحياتي

[عاشق الاكسيل]

بارك الله فيك يا أبو ملك (وربنا يخلي لك ملك)

الحمد لله أن تم المطلوب على خير .. وإن كنت أريد عتابك على عدم التوضيح بشكل صحيح في مشاركتك الأولى .. الأعمدة التي ذكرت النقل إليها غير الأعمدة المطلوبة (يرجى بعد ذلك تحري الدقة في الطلب حتى لا يحدث تشويش في أجهزة الإرسال خاصة جميع الأعضاء ، مما يتسبب في حدوث تهنيج وتعطيل وربما إغلاق للأجهزة !!)

تقبل تحياتي

 

امين يارب العالمين - بارك الله فيك

واسف اخى الكريم على عدم قدرتى على التوضيح

وشكرا مرة اخرى

لدى طلب بسيط وهو تفريغ بيانات الجدول بعد ان يتم ترحيلها

تم تعديل مارس 14, 2015 بواسطه Acc.AboMalak

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

الأخ الفاضل أبو ملك

تفضل رابط هذا الفيديو على اليوتيوب ..تم العمل على ملفك ..

[سليم حاصبيا]

 اخي ياسر

الصوت سيء جداً وغير مسموع

هل بالامكان تحسينه؟

[عاشق الاكسيل]

الأخ الفاضل أبو ملك

تفضل رابط هذا الفيديو على اليوتيوب ..تم العمل على ملفك ..

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

شكرا اخى العزيز / ياسر خليل

لقد استفدت كثيرا من مواضيعك فى اعداد مشروع العمل الخاص بى

شكرا لك مرة اخرى

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

أخي الحبيب سليم

دي أول مرة بسجل فيها فيديوهات ..

بس الصوت أنا مجربه وأسمعه بوضوح ..

لو فيه حد عنده فكرة إزاي أقدر أحسن الصوت يا ريت يبلغني بيها ...

وننتظر رأي الأخوة ..قد تكون المشكلة لديك أخي سليم

أثناء مشاهدة الفيديو من Stteings اختار Auto للضبط