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

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


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...

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

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



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

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

Important Information