أحمد علي (أبوعلي) قام بنشر مايو 26, 2013 مشاركة قام بنشر مايو 26, 2013 أخواني وخبراء المنتدى السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بالخيرات الملف المرفق في داخلة الشرح والمطلوب المساعد وإذا أمكن شرح الأكواد على قدر الاستطاعة أخوكم أحمد علي Book11.rar رابط هذا التعليق شارك More sharing options...
عاطف عبد العليم محمد قام بنشر مايو 27, 2013 مشاركة قام بنشر مايو 27, 2013 السلام عليكم انا طرحت موضوع طلب مساعدة ولكن به الترحيل ومشروح الى حد ما لعلك تدخل عليه ويفيدك ان شاء الله http://www.officena.net/ib/index.php?showtopic=47246&view=getnewpost الموضوع باسم "طلب مساعدة لتكرار كود ترحيل". وفقكم الله رابط هذا التعليق شارك More sharing options...
أحمد علي (أبوعلي) قام بنشر مايو 27, 2013 الكاتب مشاركة قام بنشر مايو 27, 2013 السلام عليكم أخي الكريم أخذت نظرة على الملف الذي أشرت عليه ولكن ما أستطعت أنفذة على ملفي بحكم الخبرة لذي جداً ضعيفة وجديد على عمل الأكواد وعيرها من البرمجة أرجوا الافادة وجزاكم الله خير .... رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 29, 2013 مشاركة قام بنشر مايو 29, 2013 السلام عليكم أخي العزيز تفضل المرفق وبه ماطلبت Book11_2.zip رابط هذا التعليق شارك More sharing options...
أحمد علي (أبوعلي) قام بنشر مايو 29, 2013 الكاتب مشاركة قام بنشر مايو 29, 2013 السلام عليكم ورحمة الله وبركاته كيف حال الاستاذ/ طارق محمود أشكرك أخي طارق على الجهود والله يجزيك خير الملف حسب المطلوب بس عند الترحيل يقوم بنقل البيانات مع التنسيق والمطلوب نقل البيانات فقط .... أرجو أن الفكرة واضحة وأشكرك مرة أخرى رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مايو 30, 2013 مشاركة قام بنشر مايو 30, 2013 الفكرة واضحة تفضل المرفق Book11_3.zip رابط هذا التعليق شارك More sharing options...
أحمد علي (أبوعلي) قام بنشر يونيو 1, 2013 الكاتب مشاركة قام بنشر يونيو 1, 2013 السلام عليكم أخي الاستاذ طارق التعديل الأخير ممتاز وحسب الطلب ولكن: عند ترحيل البيانات أول مرة ممتاز ولكن عندما يتم ترحيل البيانات في المرة الثانية يقوم بحذف آخر سطر من البيانات المرحلة في الورقة الثانية ويبدا نسخ البيانات الثانية وهكذا في كل مرة يتم ترحيل البيانات يقوم بحذف آخر سطر جرب وتأكد. وأشكرك على طول بالك رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يونيو 2, 2013 مشاركة قام بنشر يونيو 2, 2013 السلام عليكم عندك حق Sub shiftt() LR = [A9999].End(xlUp).Row If LR < 6 Then MsgBox ("No records to shift, Will EXIT"): Exit SubnLR = Sheet2.[A9999].End(xlUp).Row If nLR = 6 Then nLR = 7 Range("A6:A" & LR).Copy Sheet2.Cells(nLR, 1).PasteSpecial Paste:=xlPasteValues Range("B6:F" & LR).Copy Sheet2.Cells(nLR, 3).PasteSpecial Paste:=xlPasteValues Range("A6:F" & LR).ClearContents End Sub إستبدل السطرين الملونين بالأحمر بالسطرالتالي nLR = Sheet2.[A9999].End(xlUp).Row+1 ليكون الكود كاملا كالتالي Sub shiftt() LR = [A9999].End(xlUp).Row If LR < 6 Then MsgBox ("No records to shift, Will EXIT"): Exit Sub nLR = Sheet2.[A9999].End(xlUp).Row+1 Range("A6:A" & LR).Copy Sheet2.Cells(nLR, 1).PasteSpecial Paste:=xlPasteValues Range("B6:F" & LR).Copy Sheet2.Cells(nLR, 3).PasteSpecial Paste:=xlPasteValues Range("A6:F" & LR).ClearContents End Sub وإن شاء الله ستحل المشكلة رابط هذا التعليق شارك More sharing options...
أحمد علي (أبوعلي) قام بنشر يونيو 2, 2013 الكاتب مشاركة قام بنشر يونيو 2, 2013 السلام عليكم ورحمة الله وبركاته أشكرك أخي الأستاذ طارق وشكري غير كافي لجهودك المبذوله ولكن أسأل الله أن يجزيك من خيره رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.