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

ترحيل اعمدة متفرقة إلى أعمدة أخرى متفرقة بصفحة اخرى


mhrrd

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

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

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

ضع هذا الكود في حدث ورقة (الشيت)


Private Sub Worksheet_Activate()

Abu_Ahmed

End Sub

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

ادعو الله ان اكون وفقت في هذه الاضافة


Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

    Range("A11:O1000").Select

    Selection.ClearContents

    Range("A11").Select


Set MySh = Sheets("ÈíÇäÇÊ ÇÓÇÓíÉ")

j = 11

For i = 7 To MySh.[B1000].End(xlUp).Row

Cells(j, 1) = MySh.Cells(i, 2)

Cells(j, 2) = MySh.Cells(i, 12)

Cells(j, 3) = MySh.Cells(i, 3)

For r = 4 To 11

Cells(j, r + 4) = MySh.Cells(i, r)

Next

j = j + 1

Next

Set MySh = Nothing

Application.ScreenUpdating = True

End Sub

لاادري المنتدى مع الاكواد والكلمات العربي اصبح يكتبها طلاسم

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

الله يكرمك ابو احمد

ياريت تجميع الشروحات الخاصة بالترحيل والبحث ونفتح بها موضوع جديد يتم تثبيتة يعتبر مرجع للعودة اليه

الاخ ابو احمد عملية الشرح للكود تفيد اكثر فعن طريقها تقل الاسئلة فيمكن ان نقوم بالتعديل على الملف بدون عرضة طلبا للمساعدة

وليكن الموضوع المقترح فتحة { ما يطلبة الاعضاء } عند وجود كود جديد يتم شرحة وكيفية التعديل علية حتى يناسب كل ملف

اكرمك الله

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

  • 2 weeks 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