(تمت الاجابة) ترحيل بيانات

[وليد المصرى 1]

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

ارجو من الاخوة الاعضاء المساعدة فى الملف الموفق

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

اشكركم جميعا

MC.rar

تم تعديل يناير 5, 2012 بواسطه goodlife

[الـعيدروس]

السلام عليكم

تفضل

Sub ALIDROOS_JC()

With ورقة4.Columns(2).Rows(65536).End(xlUp)

    .Offset(1, 0) = [D12]

    .Offset(1, 1) = [S12]

    .Offset(1, 2) = [E14]

    .Offset(1, 3) = [E14]

    .Offset(1, 4) = [AB15]

    .Offset(1, 5) = [AL13]

    .Offset(1, 6) = [E15]

    .Offset(1, 7) = [P14]

    .Offset(1, 8) = [R20] & " " & [Y20] & " " & [AC20] _

    & " " & [AD20] & " " & [AF20] & " " & [AI20] & " " & [AJ20]

End With

MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تم الترحيل"

End Sub

[وليد المصرى 1]

وعليكم السلام اخى الفاضل

اشكرك على اهتتمامك ولكن عندما اضع الكود يعطبنى رسالة خاطئة ولا يعمل الكود نص الرسالة ( objiect required

[عبدالله المجرب]

السلام عليكم

بعد اذن ابو نصار تعديل طفيف على الكود ليصبح

Sub ALIDROOS_JC()

With Sheets("Sheet1").Columns(2).Rows(65536).End(xlUp)

    .Offset(1, 0) = [D12]

    .Offset(1, 1) = [S12]

    .Offset(1, 2) = [E14]

    .Offset(1, 3) = [E14]

    .Offset(1, 4) = [AB15]

    .Offset(1, 5) = [AL13]

    .Offset(1, 6) = [E15]

    .Offset(1, 7) = [P14]

    .Offset(1, 8) = [R20] & " " & [Y20] & " " & [AC20] _

    & " " & [AD20] & " " & [AF20] & " " & [AI20] & " " & [AJ20]

End With

MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تم الترحيل"

End Sub

[جروان]

ابو نصار و عبدالله الله يعطيكو العافية

مشكورين والله اساتذة كبار

[وليد المصرى 1]

الف الف شكر اخى عبدلله ولكن يتم الترحيل فقط فى شيت op وباقى الشيتات لم يتم الترحيل اريد ايضا باقى الشيتات list 1 and list 2

[وليد المصرى 1]

يا جماعة منتظرك ردوك جزااكم الله خير

[طارق محمود]

السلام عليكم

بعد إذن إخواني الغاليين أبونصار و أبوأحمد

إقتبست من كودكم

وأضفت عليه

تفضل أخي المرفق به زر أخضر

بالضغط عليه

ينقل شيت OP

ويخيرك في مسح بياناته (إذا إخترت ، يمسحها)

ثم ينقل الورقتين الباقيتين

MC2.rar

[abouelhassan]

استاذ ابا نصار

استاذ عبدالله المجرب (ابواحمد)

استاذ باشمهندس طارق

الله يرضى عنكم احترام من كل قلبى

[وليد المصرى 1]

استاذ طارق الف الف شكر يا اخى والله يرضى عنكم جميعا