محمد الطيب قام بنشر مايو 8, 2013 قام بنشر مايو 8, 2013 الاستاذ الفاضل عبد الله انت نبع من الابداع المتجدد جزاك الله كل خير
Dr.Basel-D قام بنشر مايو 24, 2013 قام بنشر مايو 24, 2013 يا جماعة الخير عطونا طريقة الترحيل من ملف اكسل الى اخر
عاطف عبد العليم محمد قام بنشر مايو 27, 2013 قام بنشر مايو 27, 2013 جزاكم الله خيرا لي طلب ـ في ملفي الترحيل ممتاز ولكن أريد تكرار الترحيل لعمل عدد من كشوف الحساب لعلك أخي تستطيع أن تفيدني الملف موجود في http://www.officena.net/ib/index.php?showtopic=47246&view=getnewpost وفق الله الجميع لما يحب ويرضى
عبدالله المجرب قام بنشر يونيو 15, 2013 الكاتب قام بنشر يونيو 15, 2013 ان شاء الله سأكمل السلسلة فانتظروني قريباً جداً درس جديد
عبدالله المجرب قام بنشر يونيو 20, 2013 الكاتب قام بنشر يونيو 20, 2013 الجزء الرابع من شروحات الترحيل 6
رجب جاويش قام بنشر يونيو 20, 2013 قام بنشر يونيو 20, 2013 الأستاذ الفاضل / عبد الله المجرب شرح ممتاز جعله الله فى ميزان حسناتك وفقك الله لاكمال هذه السلسلة الرائعة تقبل تحياتى وتقديرى
أم عبد الله قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 أستاذنا الفاضل / عبد الله المجرب جزاك الله خيراً على المجهود الكبير وهذا الشرح الممتاز جعل الله جميع أعمالك في ميزان حسناتك ومتعك اللهم بالصحة والعافية.
saad abed قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 اخى عبدالله المجرب شروحات ممتازة جزاك الله خيرا
ابوعبدالعزيز111111 قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 اخي الاستاذ عبدالله اثابك الله شكر لك صنيعك سؤالي هو طريقةالترحيل من اوراق عدة الي ورقة واحد وانا نفذت هذا الكود ولكن في اخطاء بالرغم من انه ادى الغرض والكودهو 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
حمادة عمر قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 الأستاذ الفاضل القدير / عبد الله المجرب شرح ممتاز جعله الله فى ميزان حسناتك ونسأل الله ان يوفقك لاكمال هذه السلسلة الرائعة حيث انها ستكون من اهم المراجع للجميع في الوطن العربي وتقريبا سيكون اول مرجع لشرح الترحيل باللغة العربية تقبل تحياتى وتقديرى وشكري جزاك الله خيرا
أبو محمد عباس قام بنشر يونيو 21, 2013 قام بنشر يونيو 21, 2013 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الرائع ابو احمد حفظك الباري عز وجل ورعاك شرح رائع وممتاز جعله الله سبحانه وتعالى في ميزان حسناتك وفقك الله واعطاك الصحة والعافية ووفقك لاكمال هذه السلسلة الرائعة تقبل فائق احترامي وتقديري
عادل ابوزيد قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 استاذنا الكبير عبد الله جزاك الله خير وجعله فى ميزان حسناتك
dalmus72 قام بنشر يونيو 22, 2013 قام بنشر يونيو 22, 2013 بسم الله الرحمن الرحيم جزاك الله خيرا و زادك علما نافعا.
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 شكرا استاذ عبدالله أنت دائما مبدع شكراً لك اخي الكريم على مرورك
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 أستاذنا الفاضل / عبد الله المجرب جزاك الله خيراً على المجهود الكبير وهذا الشرح الممتاز جعل الله جميع أعمالك في ميزان حسناتك ومتعك اللهم بالصحة والعافية. شكراً لك اختي أم عبدالله واتمنى ان تستفيدي من هذه الدرورس
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 اخى عبدالله المجرب شروحات ممتازة جزاك الله خيرا شكراً لمرورك اخي سعد
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 الأستاذ الفاضل القدير / عبد الله المجرب شرح ممتاز جعله الله فى ميزان حسناتك ونسأل الله ان يوفقك لاكمال هذه السلسلة الرائعة حيث انها ستكون من اهم المراجع للجميع في الوطن العربي وتقريبا سيكون اول مرجع لشرح الترحيل باللغة العربية تقبل تحياتى وتقديرى وشكري جزاك الله خيرا شكراً لمرورك اخي حمادة وتششجيعك المستمر
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الرائع ابو احمد حفظك الباري عز وجل ورعاك شرح رائع وممتاز جعله الله سبحانه وتعالى في ميزان حسناتك وفقك الله واعطاك الصحة والعافية ووفقك لاكمال هذه السلسلة الرائعة تقبل فائق احترامي وتقديري شكراً لمرورك اخي عباس وان شاء الله تجد الفائدة من هذه السلسلة
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 بسم الله الرحمن الرحيم جزاك الله خيرا و زادك علما نافعا. شكراً لك اخي الفاضل استاذنا الكبير عبد الله جزاك الله خير وجعله فى ميزان حسناتك شكراً لك اخي الفاضل
عبدالله المجرب قام بنشر يونيو 23, 2013 الكاتب قام بنشر يونيو 23, 2013 اخي الاستاذ عبدالله اثابك الله شكر لك صنيعك سؤالي هو طريقةالترحيل من اوراق عدة الي ورقة واحد وانا نفذت هذا الكود ولكن في اخطاء بالرغم من انه ادى الغرض والكودهو 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 ان شاء الله ساشرح الترحيل من عدة اوراق الى ورقة واحدة
orbit قام بنشر يونيو 23, 2013 قام بنشر يونيو 23, 2013 السادة الاعضاء أشكر لكم جهودكم وجزاكم الله خيرا
مجدى يونس قام بنشر يونيو 23, 2013 قام بنشر يونيو 23, 2013 الاخ الفاضل / عبد الله المجرب شرح ممتاز جعله الله فى ميزان حسناتك وفقك الله لاكمال هذه السلسلة الرائعة تقبل تحياتى وتقديرى لشخصكم
الردود الموصى بها