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

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

قام بنشر

بسم الله الرحمن الرحيم

بعد التحية

المطلوب ان شاء الله

نسخ ورقة البيانات الى مصنف جديد بنفس التنسيقات والاسم

لكم جزيل الشكر والتقديرالمصنف1.rar

قام بنشر

قم بإدراج هذا الكود في الموديول

Sub copy_past()
Application.ScreenUpdating = False
Range("B8:M31").Select
    Selection.Copy
    Sheets(2).Select
    Sheets(2).Name = "البيانات1"
    Range("B8").Select
    ActiveSheet.Paste
Application.ScreenUpdating = True
End Sub
  • أفضل إجابة
قام بنشر

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

كود اكثر من رائع للاستاذ الجموعي جزاه الله خيرا

اليك كود اخر حسب ما فهمت من السوال انه تريد في مصنف جديد

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

تقبلوا فائق احترامي وتقديري

 

نقل الى مصنف جديد.rar

 

  • Like 1
قام بنشر

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

كود اكثر من رائع للاستاذ الجموعي جزاه الله خيرا

اليك كود اخر حسب ما فهمت من السوال انه تريد في مصنف جديد

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

تقبلوا فائق احترامي وتقديري

 

attachicon.gifنقل الى مصنف جديد.rar

 

بارك الله فيك أستاذي على هذا الكود الرائع إستفدت منه الكثير

جعله الله في موازين حسناتك

تحياتي لك

  • Like 1

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