سك بابك قام بنشر نوفمبر 29, 2011 قام بنشر نوفمبر 29, 2011 السلام عليكم ورحمة الله وبركاته الاساتذة الأفاضل أرغب في ترحيل بييانات من صفحة إلى صفحة أخرى وذلك عند تحديد الصف المراد ترحيل بياناته بواسطة Chec box ملاحظة المراد بالترحيل هنا هو نقل البيانات ومسحها من الورقة الحالية إلى الورقة المرحله إليها البيانات بمعنى ان البيانات تمسح من الورقة الاولى بعد ترحيلها وجزاكم الله خيرا الملف موجود بالمرفق ترحيل.rar
الحسامي قام بنشر نوفمبر 30, 2011 قام بنشر نوفمبر 30, 2011 السلام عليكم اخي الكريم مرفق ملف لطلبك قد يساعدك ترحيل.rar 1
سك بابك قام بنشر نوفمبر 30, 2011 الكاتب قام بنشر نوفمبر 30, 2011 وعليكم السلام ورحمة الله وبركاته جزاك الله خير اخوي الحسامي الحل كما اريده لكن المطلوب عند تنفيذ الترحيل أن يتم حذف أو مسح البيانات المرحله فقط اما الكود الذي وضعته استاذي الكريم فهو يقوم بحذف جميع معلومات الجدول الموجود في الورقة ALL والذي اريده حذف الصف فقط الذي احدده عن طريق الـ Check box بعد ترجيله للصفحة XC بانتاظر ردك بارك الله فيك
عبدالله المجرب قام بنشر نوفمبر 30, 2011 قام بنشر نوفمبر 30, 2011 اخي سك بابك هذا الكود بعد التعديل Sub Button11_Click() Dim c As Range For Each c In Sheet1.[e4:e13] If c = True Then Sheet2.[a5000].End(xlUp).Offset(1, 0).Resize(1, 5) = _ Range(c, c.Offset(0, -4)).Value Range(c, c.Offset(0, -4)) = Empty Else GoTo 1 End If 1 Next c End Sub
سك بابك قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 السلام عليكم ورحمة الله وبركاته جزاك الله خير اخي ابو احمد على هذا العطاء والتواصل لاحرمك الله الاجر شكرا لك
عبدالله المجرب قام بنشر ديسمبر 2, 2011 قام بنشر ديسمبر 2, 2011 الحمدلله ان كان هذا ما تريد == تمت الاجابة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.