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

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

قام بنشر

اشكركم كثيرا

اخي عماد الكود خاصتك عجبني كثيرا

ولكني وكثير من الاخوه

لايجيد نقل الكود الى ملف آخر

بسبب نوعية الزر الذي ارفقته

ولذا ارجوك في ربط الكود بزر عادي

قام بنشر

131.gif

اشكرك كثيرا

هذا الزر اسهل

الاحظ رعشة في مؤشر الماوس عند عمل الكود الرائع هل يمكن ازالتها؟

قام بنشر

أخي الكريم الرعشة ناتجة عن حجم البيانات التي لديك حاول تقليل البيانات --(للتجربة )

ولا حظ الفرق

قام بنشر

اخي عماد

الكود كويس وممتاز

وعايز اضافه عليه وهي ترحيل نفس البيانات الى عدة صفحات

لو سمحت

ودمت بخير

قام بنشر

ما في مشكلة ... يتم الترحيل الى اي جزء في الصفحات

وليس هناك ارتباط بالصفحة الأم

==================================

Worksheets("ملف").Cells(i, 1).Value =

Worksheets("بيانات اساسيه").Cells(i, 1).Value

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

وللترحيل لصفحات مختلفة يتم تغيير ما يلي

بيانات الصفحة الرئيسية بدأت

من السطر9 وهذا ما يمثله الحر ف (I)

ومن العمود الأول وهذا ما مثله الرقم (1) ... في الكود التالي ( مثلا )

Worksheets("بيانات اساسيه").Cells(i, 1).Value

لنفرض اننا نريد الترحيل الى صفحة اخرى ابدأ من السطر 12 والعمود (d) فيصبح الكزد

Worksheets("بيانات اساسيه").Cells(i+3, 4).Value

حيث : الرقم 4 يمثل ترتيب العمود d

(I+3) : تمثل 12 ..... I=9

وهكذا لباقي الأسطر ...يتم التغيير فقط في الجزء الأيمن للسطر أي التغيير لما بعد أشارة ال=

عماد الحسامي

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