اذهب الي المحتوي
أوفيسنا

كيف يتم نقل بيانات صف إلى ورقة أخرى عند تحقق عدة شروط؟


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

أخي العزيز / البراء مصطفى

تم عمل المطلوب إن شاء الله ولكن تم إلغاء الدمج في الخليتين (d2) و(d3) في ورقة الأرشيف لأن الدمج يؤثر على عمل الكود

كما أنه لابد من إعادة تسمية الأوراق إذا أردت إضافة أوراق أخرى كما أفضل تغير ورقة الأرشيف من (Sheet10) إلى (Sheet2) وهو ما فعلته 

حتى يتم عمل الحلقة التكرارية بشكل صحيح 

كما تم عمل طلبك الأول في الموضوع 

http://www.officena.net/ib/index.php?s=67477b333a4b97f484d697d0e03b3835&showtopic=53396

على حسب ما فهمت كما أخبرتك في مشاركة سابقة

إن شاء الله أكون وفقت فيما طلبت 

والعفو

كشف الرخص جديد1.rar

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

 

أخي العزيز / البراء مصطفى

تم عمل المطلوب إن شاء الله ولكن تم إلغاء الدمج في الخليتين (d2) و(d3) في ورقة الأرشيف لأن الدمج يؤثر على عمل الكود

كما أنه لابد من إعادة تسمية الأوراق إذا أردت إضافة أوراق أخرى كما أفضل تغير ورقة الأرشيف من (Sheet10) إلى (Sheet2) وهو ما فعلته 

حتى يتم عمل الحلقة التكرارية بشكل صحيح 

كما تم عمل طلبك الأول في الموضوع 

http://www.officena.net/ib/index.php?s=67477b333a4b97f484d697d0e03b3835&showtopic=53396

على حسب ما فهمت كما أخبرتك في مشاركة سابقة

إن شاء الله أكون وفقت فيما طلبت 

والعفو

 

بارك الله فيك وفى والديك وفى ذريتك

بالنسبة للمشاركة الأولى فهذا الحل تماما كما أريد

وبالنسبة لهذه المشاركة فإنى أريد نقل (cut) وليس (copy) 

كما أن الكود ينطبق على أول صف فقط ولا ينفذ على باقى الصفوف

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

تم تعديل بواسطه البراء مصطفى
رابط هذا التعليق
شارك

 

 

أخي العزيز / البراء مصطفى

تم عمل المطلوب إن شاء الله ولكن تم إلغاء الدمج في الخليتين (d2) و(d3) في ورقة الأرشيف لأن الدمج يؤثر على عمل الكود

كما أنه لابد من إعادة تسمية الأوراق إذا أردت إضافة أوراق أخرى كما أفضل تغير ورقة الأرشيف من (Sheet10) إلى (Sheet2) وهو ما فعلته 

حتى يتم عمل الحلقة التكرارية بشكل صحيح 

كما تم عمل طلبك الأول في الموضوع 

http://www.officena.net/ib/index.php?s=67477b333a4b97f484d697d0e03b3835&showtopic=53396

على حسب ما فهمت كما أخبرتك في مشاركة سابقة

إن شاء الله أكون وفقت فيما طلبت 

والعفو

 

بارك الله فيك وفى والديك وفى ذريتك

بالنسبة للمشاركة الأولى فهذا الحل تماما كما أريد

وبالنسبة لهذه المشاركة فإنى أريد نقل (cut) وليس (copy) 

كما أن الكود ينطبق على أول صف فقط ولا ينفذ على باقى الصفوف

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

 

بعد إذن حضرتك أنا غيرت فى الكود بدلا من copy جعلتها cut

وبالفعل يتم التطبيق

لكن هناك 3 مشاكل

الأولى عندما يتم الترحيل فإنه يتم حذف الخانات الموجود ويتم اللصق فوقها

ثانيا إذا ضغطت على زرار ترحيل مرتين فإنه يحذف بيانات الأرشيف 

ثالثا فى الصفحة التى يتم القص منها فإن الخانة المقصوصة يظل مكانها

 

 

لذا أرجو من حضرتك تعديل الكود لكى يلصق فى صفحة الأرشيف بعد أخر صف فيه بيانات

كما أرجو (فى الصفحة المقصوص منها ) أن تحل الخلايا الباقية مكان الخلايا المقصوصة

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

 

أخي العزيز / البراء مصطفى

تم التعديل حسب ما طلبت في المشاركة الأخيرة 

إن شاء الله يكون مضبوط 

والعفو 

 

بوركت أخى فى الله

والله أنا صرت أستحى منك

لا أدرى التعديل الجديد به مشكلة ما

كلما أشغله

فإن الجهاز "يهنج " ويظهر مؤشر الفارة أنه مشغول

ويظل هكذا حتى أغلق ملف الأكسيل

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

 

أخي العزيز / البراء مصطفى

جرب التعديل أو الإضافة على الأصح لمنع اهتزاز الشاشة 

إن شاء الله يكون تمام 

 

ليس هذا ما كنت أقصد .... أنا البرنامج بعد أن أضغط على زر الترحيل ف

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

 

أخي العزيز / البراء مصطفى

جرب التعديل أو الإضافة على الأصح لمنع اهتزاز الشاشة 

إن شاء الله يكون تمام 

 

ليس هذا ما كنت أقصد أخى

أنا أقصد عند الضغط على زرار الترحيل فإن برنامج الاكسيل يتوقف تماما كما فى الصورة

ولا زالت المشكلة قائمة

زادك الله حلما ورفعة وعلما

post-120065-0-20626900-1398715040_thumb.

post-120065-0-74949400-1398715136_thumb.

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

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

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



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

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

Important Information