abu قام بنشر أغسطس 20, 2009 قام بنشر أغسطس 20, 2009 السلام عليكم ورحمة الله وبركاته الاخوة الافاضل لدي مشكلة الرجاء حلها . وهي كالتالي : لدي بيانات في مجموعه من الورقات داخل مصنف وأوريد نقلها الى ورقة ولكم مني جزيل الشكر
ابو اسامة العينبوسي قام بنشر أغسطس 20, 2009 قام بنشر أغسطس 20, 2009 (معدل) السلام عليكم تقبل الله طاعتكم و كل عام و انتم بخير ارفق ملف اخى العزيز ليتسنى معرفة المطلوب تم تعديل أغسطس 20, 2009 بواسطه ابو اسامة العينبوسي
abu قام بنشر أغسطس 20, 2009 الكاتب قام بنشر أغسطس 20, 2009 جزاك الله خير اخي الفاضل على سرعة التجاوب . وتقبل الله من الجميع الطاعات المشكله بالتفصيل هي كالتالي : لدي بيانات في( ورقة1.ورقة2,ورقة3,.....)واوريد ان نقل هذه البيانات او نسخها الى ورقة4 على التوالي مثال : ورقه1 فيها بيانات من (a1:b10)ورقة2,(a1:b20)ورقة3,(a1:s50) واريد نقل هذه البيانات المحدده على التوالي يعني يتم نسخ محتوى ورقة1الى ورقة 4 بداية بخلية a1 , وفي اخر خلية نصل إليها بالنسخ يتم نسخ محتوى رقة2 وهكذايتم نسخ الباقي ... وجزاكم الله خيرا ابواحمد
ابو اسامة العينبوسي قام بنشر أغسطس 20, 2009 قام بنشر أغسطس 20, 2009 (معدل) السلام عليكم Sub move_data() Dim A, B, C, D As Long For A = 1 To 3 With Sheets(4) For B = 1 To Sheets(A).Cells(1, 1).End(xlDown).Row C = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For D = 1 To Sheets(A).Cells(B, 1).End(xlToRight).Column .Cells(C, D) = Sheets(A).Cells(B, D) Next D Next B End With Next A End Sub move_data.rar تم تعديل أغسطس 21, 2009 بواسطه ابو اسامة العينبوسي
ابو اسامة العينبوسي قام بنشر أغسطس 20, 2009 قام بنشر أغسطس 20, 2009 (معدل) السلام عيكم في اقرب وقت ساشرح الكود تم تعديل أغسطس 21, 2009 بواسطه ابو اسامة العينبوسي
أيسم إبراهيم قام بنشر أغسطس 20, 2009 قام بنشر أغسطس 20, 2009 السلام عليكم كل عام أنتم بخير. رمضان كريم هائل أستاذ أبو أسامه يا سلام لو تتكرم علينا بشرح لهذا الكود الرائع جعله الله في ميزان حسناتك تقبل الله طاعاتكم و أعانكم على الخيرات أيسم إبراهيم
abu قام بنشر أغسطس 21, 2009 الكاتب قام بنشر أغسطس 21, 2009 جزاك الله خيراً وجعل ذالك في ميزان حسناتك هذا هوالمطلوب . لدي استفسار بسيط هل بالإمكان توسيع دائرة النقل بمعنى ان يكون بدل 3ورق يكون اكثر من ذالك وأيضاً تغيير نطاق كل ورقه(محتوى البيانات) نوريد نسخها. كذالك لدي رجاء وهو شرح الكود لتعم الفائدة
ابو اسامة العينبوسي قام بنشر أغسطس 22, 2009 قام بنشر أغسطس 22, 2009 السلام عليكم اخى abu الكود يرحل كل البيانات في اي صفحه من الصفحات الثلاث (المطلب الاول) حدد عدد الصفحات التى تريد الترحيل منها و نعمل الازم(المطلب الثانى) ساقوم بشرح الكود لاحقا(المطلب الثالث)
خالد القدس قام بنشر أغسطس 22, 2009 قام بنشر أغسطس 22, 2009 (معدل) السلام عليكم ما شاء الله أستاذ أبو أسامة عمل غاية في الروعة والدقة تسلم الأيادي ضعف الله لك الأجر والثواب في هذا الشهر المبارك تم تعديل أغسطس 22, 2009 بواسطه خالد القدس
abu قام بنشر أغسطس 22, 2009 الكاتب قام بنشر أغسطس 22, 2009 الاخ الفاضل /ابو اسامة العينبوسي جزاك الله خير على مجهودك المبذول الحقيقة اني عندما اطلب منك شرح الكود ليتسنى لي عمل المطلوب بنفسي بدون ازعاجك اما فيمايتعلق بعددالورقات فهيا 398 ورقة تقبل الله منكم الطاعات اخوك ابواحمد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.