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

ماكرو لنسخ اي خلية محددة الى الخلية الثالثة يساراً


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

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

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

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

ولكم كل الشكر

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

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

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

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

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

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

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

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

تلميذك

سمير نجار

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

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

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

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

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

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

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

فوزي

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

أخي العزيز سمير نجار

أخي العزيز خالد القدس

أخي العزيز فوزي 73

الملف المرفق به إجابة لكل طلباتكم أرجو الاطلاع عليه .

تقبلوا تحياتي

أبو عبدالله

MOVE SELECTED RANGE TO SELECTED TARGET.rar

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

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

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

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

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

تم تعديل بواسطه خالد القدس
رابط هذا التعليق
شارك

  • 5 months later...

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

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

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

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

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

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

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

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

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

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

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



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

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

Important Information