طلب توضـح

[iman2010]

تحياتي للجميع:

وبادئ الأمر أتفضل بالشكر للأخ: عماد خالد الحسامي على درسه الجميل فيما يخص "الترحيل بالأكواد"

ولكن ينقضني بعض التوضيح فيما يتعلق بالترحيل إلى ورقة أخرى/:

مثال- فيما يتعلق بالترحيل بنقل الخلايا دفعة واحدة،

Sub exam22()

Dim lastrow As Integer

lastrow = Range("j10000").End(xlUp).Row + 1

Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value

End Sub

ما هو التغيير الذي نجريه للنقل مثلا إلى الورقة المسماة "أرشيف"

وشكراً

[طارق محمود]

التغيير في السطرين الأخيرين

ليكونا هكذا

lastrow = Sheets("أرشيف").Range("j10000").End(xlUp).Row + 1

Sheets("أرشيف").Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value

تم تعديل ديسمبر 13, 2010 بواسطه TareQ M

[عبد الفتاح كيرة]

شكرا أستاذ طارق

هل يكون أسرع لو استخدمنا with

With Sheets("أرشيف")

lastrow = .Range("j10000").End(xlUp).Row + 1

.Range(Cells(lastrow, 10), Cells(lastrow + 2, 12)).Value = Range("n6:p8").Value

End With

[iman2010]

شكراً للإخوة الأساتذة، الخبراء في الأكسل،

ولكن لم تفلح معي لا أدري السبب أين؟؟؟،

ولتسهيل الأمر، قد أرفقت الملف بشكل مختصر جداً، أرجو أن تغيروا فيه حتى ينقل إلى الورقة المسماة"أرشيف".

ويا ريت لو تعمموها على باقي الأمثلة الموضحة في الملف المرفق، حتى تتضح الرؤية بشكل دقيق وواسع المدى،

ولا يسعني في الأخير إلاّ أن أتقدم بأسمى آيات الشكر لكما ولبقية الأفراد على ما تقدمونه من عمل الخير.

ملخص_درس بسيط في الترحيل بالاكواد_نسخة ملخصة.rar

[عبد الفتاح كيرة]

الترحيل دفعة واحدة

Sub exam222()

Dim lastrow As Integer

With Sheets("أرشيف")

lastrow = Range("r10000").End(xlUp).Row + 1

.Cells(1, "a").Value = Range("w5").Value

.Cells(2, "a").Value = Range("w6").Value

.Cells(3, "a").Value = Range("w7").Value

End With

End Sub

مشاركة لأستاذنا طارق - بعد إذنه - فى الرد

تم تعديل ديسمبر 13, 2010 بواسطه kemas

[iman2010]

تحياتي واحتراماتي للجميع:

يا ريت تبينوا لنـا بيانا شافيا وكافياً

أرغب في تعديل أكواد الملف المرفق،--- مستخلص من ملف الأخ عماد خالد الحسامي---

حتى نتمكن من القيام بجميع أنواع عمليات الترحيل الموضحة في الملف المرفق ولكن إلى ورقة أخرى موجودة والمسماة في الملف المرفق بـ "أرشيف"،.

وشكراً لكم جميعاُ