وليد المصرى 1 قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 (معدل) السلام عليكم ورحمة الله وبركاتة ارجو من الاخوة الاعضاء المساعدة فى الملف الموفق المطلوب ترحيل بيانات محددة من شيت الا شيت اخر اشكركم جميعا MC.rar تم تعديل يناير 5, 2012 بواسطه goodlife رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 السلام عليكم تفضل 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 رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 وعليكم السلام اخى الفاضل اشكرك على اهتتمامك ولكن عندما اضع الكود يعطبنى رسالة خاطئة ولا يعمل الكود نص الرسالة ( objiect required رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 السلام عليكم بعد اذن ابو نصار تعديل طفيف على الكود ليصبح 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 رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 ابو نصار و عبدالله الله يعطيكو العافية مشكورين والله اساتذة كبار رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 الف الف شكر اخى عبدلله ولكن يتم الترحيل فقط فى شيت op وباقى الشيتات لم يتم الترحيل اريد ايضا باقى الشيتات list 1 and list 2 رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 يا جماعة منتظرك ردوك جزااكم الله خير رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 السلام عليكم بعد إذن إخواني الغاليين أبونصار و أبوأحمد إقتبست من كودكم وأضفت عليه تفضل أخي المرفق به زر أخضر بالضغط عليه ينقل شيت OP ويخيرك في مسح بياناته (إذا إخترت ، يمسحها) ثم ينقل الورقتين الباقيتين MC2.rar رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 استاذ ابا نصار استاذ عبدالله المجرب (ابواحمد) استاذ باشمهندس طارق الله يرضى عنكم احترام من كل قلبى رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 استاذ طارق الف الف شكر يا اخى والله يرضى عنكم جميعا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان