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

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

قام بنشر

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

السادة الكرام مشرفين وأعضاء

أحتاج الى ماكرو يقوم بنسخ او نقل اي خلية محددة (انا احددها )الى الخلية الثالثةالمحاذية لها ً الى اليسار او الى اليمين اي استطيع ان أغير في الكود حسب رغبتي

ولكم كل الشكر

اخوكم سسمير نجار

1.rar

قام بنشر

أخي العزيز / samnaj00

رجاء الاطلاع على المرفق وقد فهمت من كلامك أنك تريد النقل بمعني نقل البيانات من مكان إلى مكان دون ترك البيانات في المكان الأول وهذا ما عملت عليه ، أما إن كنت تقصد النقل مع ترك البيانات الأولى مكانها أي النسخ أرجو أن تعلمني لتعديل الوضع .

تحياتي

أبو عبدالله

move to third right or left cell.rar

قام بنشر

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

استاذي الكريم ابوعبد الله :clapping:

بارك الله فيك ونفعنا الله بعلمك :fff:

نعم سيدي الكرم أنا أريد النقل وليس النسخ

وأستطيع التعديل على كودك ( ولك كل الشكر ) اذاأردت النسخ فقط

اذا اردت النسخ أحذف العبارة التالية cell.ClearContents

اذا أردت النقل الى 4 خلايايساراً مثلاً cell.Offset(0, 4).Value = cell.Value

اذا أردت النقل الى 4 خلاياالى الأسفل cell.Offset(4, 0).Value = cell.Value

اذا أردت النقل الى 4 خلاياالى الأعلى cell.Offset(-4, 0).Value = cell.Value

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

اخوك سمير نجار

قام بنشر (معدل)

أخي العزيز / سمير

أشكرك على ردك وكلماتك وتحية لك ولكل أهل سوريا هذا الملف به تعديل يوفر عليك تعديل الكود بخصوص موقع نقل النطاق المحدد فقط حدد بصندوق الإدخال عدد الأعمدة بعد الموقع الحالي للنطاق المطلوب النقل إليه وإذا كنت تريد النقل لليمين ادخل الرقم بالسالب أو اتركه بدون إشارة للنقل لليسار واتبع التعليمات التي تظهر لك .

تحياتي

أبو عبدالله

move selected range to defined column.rar

تم تعديل بواسطه أبو عبد الله
قام بنشر

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

استاذي الكريم ابوعبدالله بارك الله فيك وفي ميزان حسناتك ان شاء الله

وتكملة للنفع سيدي الكريم لاحظت بأن البيانات( في الملفين السابقين في كلتاالمشاركتين ) تنتقل دون تنسيقات الخط او التعبئة

يعني اذا كان لون الخط احمر وكانت التعبئة اصفر مثلاً فبعد النقل يكون لون الخط اسودومن دون تعبئة

أفدني أفادك الله تعالى

تلميذك

سمير نجار

قام بنشر

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

جزاكم الله خير الجزاء علي هذا العلم

وعلي الافادة الرائعة

ولي سؤال كيف استطيع ان انقل البيانات او انسخها في شيت اخر ؟

كيفية التعديل في الكود؟

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

فوزي

قام بنشر (معدل)

استاذ ابو عبدالله

كرمك الزائد يشجعني على ان اطلب المزيد

اريد ان تنسخ الخلايا المحدد الى ما يقابلها فى الصف الاول دائما

وكمان بدون اظهار رسالة للتحديد

تم تعديل بواسطه خالد القدس
  • 5 months later...
قام بنشر

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

السادة الكرام مشرفين وأعضاء

المعذرة من الجميع ونفعنا الله بعلمكم

كنت قد عدلت كود ملف استاذي الكريم ابوعبدالله ( في مشاركته الاولى ) لكي اقوم بنقل اي خلية الى الخلية الثالثة التي بعدهايساراً و مع التنسيقات ( الخط + التعبئة )

وبعد فرمتة الجهاز حاولت تعديل هذا الكود بيما يناسب حاجتي ولكن دون جدوى ( بسبب الانقطاع وحسبنا الله ونعم الوكيل )

الرجاء مد يد العون

والشكر للجميع

اجوم سمير نجار

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information