اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

(تمت الاجابة) الترحيل بوسطة Check Box


الردود الموصى بها

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

الاساتذة الأفاضل

أرغب في ترحيل بييانات من صفحة إلى صفحة أخرى وذلك عند تحديد الصف المراد ترحيل بياناته بواسطة Chec box

ملاحظة

المراد بالترحيل هنا هو نقل البيانات ومسحها من الورقة الحالية إلى الورقة المرحله إليها البيانات

بمعنى ان البيانات تمسح من الورقة الاولى بعد ترحيلها

وجزاكم الله خيرا

الملف موجود بالمرفق

ترحيل.rar

رابط هذا التعليق
شارك

السلام عليكم

اخي الكريم مرفق ملف لطلبك قد يساعدك

  • Like 1
رابط هذا التعليق
شارك

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

جزاك الله خير اخوي الحسامي

الحل كما اريده لكن المطلوب عند تنفيذ الترحيل أن يتم حذف أو مسح البيانات المرحله فقط

اما الكود الذي وضعته استاذي الكريم فهو يقوم بحذف جميع معلومات الجدول الموجود في الورقة ALL

والذي اريده حذف الصف فقط الذي احدده عن طريق الـ Check box بعد ترجيله للصفحة XC

بانتاظر ردك بارك الله فيك

رابط هذا التعليق
شارك

اخي سك بابك

هذا الكود بعد التعديل


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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information