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

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

قام بنشر

تفضل أخى الكود مع الشرح


Sub ragab()

'ايقاف اهتزاز الشاشة لتسريع عمل الكود

Application.ScreenUpdating = False

'نسخ مدى البيانات

Range("G9:H12").Copy

'تحديد أول صف فارغ فى العمود الأول فى الورقة الثانية

LR = Sheets("ورقة2").[A1000].End(xlUp).Row + 1

'لصق البيانات

Sheets("ورقة2").Range("A" & LR).PasteSpecial xlPasteAll

'الغاء خاصية النسخ واللصق

Application.CutCopyMode = False

' مسح المحتويات

Range("G9:H12") = ""

'ارجاع اهتزاز الشاشة

Application.ScreenUpdating = False

End Sub

ارشيف1.rar

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

أستاذنــــــــــــــــــــا و معلمنا

الأستاذ / رجب جاويش

كالعادة

مبدع دائمــــــــــــــــــ

:fff: :fff: :fff: ــــــــــــــــــــا

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

======

تحياتي

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

أخى الفاضل / هاني عدلي

أنا مجرد تلميذ فى هذه الجامعة العريقة

فجزاك الله كل خير أخى الفاضل على هذه المجاملة الرقيقة من شخصك الكريم

تقبل أرق وأجمل تحياتى

قام بنشر

اخي الحبيب الاستاذ رجب جزاك الله خير وجعله في ميزان حسناتك

ولكني اريد الارشيف ملف يكون خارج هذا العمل اي عندما اضغط ارشيف يكون فولدر في C , ويحفظ فيه كل مره الورقه باسم جديد اي اذا ضغط 10 مرات علي ارشيف يكون لدي في المجلد 10 ورقات ... مع الشرح اذا تكرمت

قام بنشر

أخى الفاضل / ابو الشرف

هل تقصد بعد تكوين المجلد ويحفظ فيه كل مره الورقة باسم جديد (فهل المقصود بالورقة ملف جديد أم مجرد شيت جديد فى نفس الملف )

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information