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

[mhrrd]

اخواني الطيبون

اسعد الله مساءكم وصباحكم

المطلوب

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

[عبدالله المجرب]

السلام عليكم

ضع مرفق

[mhrrd]

السلام عليكم

ضع مرفق

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

ان شاء الله ساواقيك بالملف

[mhrrd]

هذا هو الملف أخي الفاضل

نقل بيانات.rar

تم تعديل مارس 12, 2012 بواسطه mhrrd

[عبدالله المجرب]

ماذا عن الاسم

[mhrrd]

وكذلك الاسم والنوع

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

معذرة للسهو مني

[عبدالله المجرب]

الى الغد ان شاء الله

[mhrrd]

في انتظارك با استاذ عبد الله

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

[عبدالله المجرب]

السلام عليكم

جرب المرفق

نقل بيانات.rar

[mhrrd]

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

هذا هو المطلوب

وارجو ان تشرح لي هذه الجزئيه

For r = 4 To 11

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

Next

j = j + 1

[mhrrd]

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

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

[عبدالله المجرب]

ان شاء الله ساشرح لك الكود كله صوتا وصورة

ان توفر الوقت

[عبدالله المجرب]

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

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

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

Private Sub Worksheet_Activate()

Abu_Ahmed

End Sub

[mhrrd]

اخي الفاضل

عند مسح بيانات من صقحة بيانات اساسية لاينم مسحها او التحديث

[mhrrd]

ان شاء الله ساشرح لك الكود كله صوتا وصورة

جزاك الله الف خير واعانك لفعل الخير

[ناصر سعيد]

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

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

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

[عبدالله المجرب]

السلام عليكم

اخي الفاضل

هذا الشرح كما وعدتك

[حسين شاكر]

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

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

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

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

اكرمك الله

[mhrrd]

السلام عليكم

اخي الفاضل

هذا الشرح كما وعدتك

وعدت فأوفيت

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

[احمد فضيله]

الاخ الحبيب الاستاذ / عبد الله المجرب ...

صديقى و اخي في الله و مثال للعطاء بلا حدود ربنا يبارك فيك يا ابو أحمد و يجعلك دائما معطاء