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

سلسلة شروحات فيديو " الترحيل " أربعة أجزاء


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

  • 3 weeks later...

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

لي طلب ـ في ملفي الترحيل ممتاز ولكن أريد تكرار الترحيل لعمل عدد من كشوف الحساب لعلك أخي تستطيع أن تفيدني 

الملف موجود في  http://www.officena.net/ib/index.php?showtopic=47246&view=getnewpost

وفق الله الجميع لما يحب ويرضى

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

  • 3 weeks later...

الأستاذ الفاضل / عبد الله المجرب

شرح ممتاز جعله الله فى ميزان حسناتك

وفقك الله لاكمال هذه السلسلة الرائعة

تقبل تحياتى وتقديرى

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

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

 


Application.ScreenUpdating = False
Dim lr As Integer
lr = [a100].End(xlUp).Row
Sheets("a").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("b").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("c").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("d").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("f").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("x").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("v").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("a").Range("a1:n" & lr).Delete
Sheets("b").Range("a1:n" & lr).Delete
Sheets("c").Range("a1:n" & lr).Delete
Sheets("d").Range("a1:n" & lr).Delete
Sheets("f").Range("a1:n" & lr).Delete
Sheets("x").Range("a1:n" & lr).Delete
Sheets("v").Range("a1:n" & lr).Delete
End Sub
رابط هذا التعليق
شارك

الأستاذ الفاضل القدير / عبد الله المجرب

شرح ممتاز جعله الله فى ميزان حسناتك

ونسأل الله ان يوفقك لاكمال هذه السلسلة الرائعة

حيث انها ستكون من اهم المراجع للجميع في الوطن العربي

وتقريبا سيكون اول مرجع لشرح الترحيل باللغة العربية

تقبل تحياتى وتقديرى وشكري

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

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

بسم الله الرحمن الرحيم

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

الاستاذ والاخ الرائع ابو احمد حفظك الباري عز وجل ورعاك

شرح رائع وممتاز جعله الله سبحانه وتعالى في ميزان حسناتك

وفقك الله واعطاك الصحة والعافية

ووفقك لاكمال هذه السلسلة الرائعة

تقبل فائق احترامي وتقديري

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

أستاذنا الفاضل / عبد الله المجرب

 

جزاك الله خيراً على المجهود الكبير وهذا الشرح الممتاز جعل الله جميع أعمالك في ميزان حسناتك ومتعك اللهم بالصحة والعافية.

 

شكراً لك اختي أم عبدالله واتمنى ان تستفيدي من هذه الدرورس

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

الأستاذ الفاضل القدير / عبد الله المجرب

شرح ممتاز جعله الله فى ميزان حسناتك

ونسأل الله ان يوفقك لاكمال هذه السلسلة الرائعة

حيث انها ستكون من اهم المراجع للجميع في الوطن العربي

وتقريبا سيكون اول مرجع لشرح الترحيل باللغة العربية

تقبل تحياتى وتقديرى وشكري

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

 

شكراً لمرورك اخي حمادة وتششجيعك المستمر

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

 

بسم الله الرحمن الرحيم

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

الاستاذ والاخ الرائع ابو احمد حفظك الباري عز وجل ورعاك

شرح رائع وممتاز جعله الله سبحانه وتعالى في ميزان حسناتك

وفقك الله واعطاك الصحة والعافية

ووفقك لاكمال هذه السلسلة الرائعة

تقبل فائق احترامي وتقديري

 

 

شكراً لمرورك اخي عباس وان شاء الله تجد الفائدة من هذه السلسلة

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

بسم الله الرحمن الرحيم

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

 

شكراً لك اخي الفاضل

 

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

جزاك الله خير وجعله فى ميزان حسناتك

شكراً لك اخي الفاضل

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

 

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

 


Application.ScreenUpdating = False
Dim lr As Integer
lr = [a100].End(xlUp).Row
Sheets("a").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("b").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("c").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("d").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("f").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("x").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("v").Range("a1:n" & lr).Copy
Sheets("p").Range("a" & Sheets("p").[a100].End(xlUp).Row + 1).PasteSpecial xlPasteValues
Sheets("a").Range("a1:n" & lr).Delete
Sheets("b").Range("a1:n" & lr).Delete
Sheets("c").Range("a1:n" & lr).Delete
Sheets("d").Range("a1:n" & lr).Delete
Sheets("f").Range("a1:n" & lr).Delete
Sheets("x").Range("a1:n" & lr).Delete
Sheets("v").Range("a1:n" & lr).Delete
End Sub

 

 

ان شاء الله ساشرح الترحيل من عدة اوراق الى ورقة واحدة 

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

الاخ الفاضل / عبد الله المجرب

شرح ممتاز جعله الله فى ميزان حسناتك

وفقك الله لاكمال هذه السلسلة الرائعة

تقبل تحياتى وتقديرى لشخصكم

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information