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

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

السلام عليكم

تم اضافة ملاحظة للحل هنا

http://www.officena....showtopic=42223

[جلال محمد]

السلام عليكم

ياجماعة من لديه برنامج لتشغيل او تحويل هده الملفات يدلنا عيه

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

[رعد العزاني]

جزاك الله الف خير أخي احمد وجعل ما تقدمة في ميزان حسناتك

ولو تكرمت تدلنا على كتاب نستطيع من خلالة نتعلم الاكواد لكي نطبق المثال ( لو اعطيتني سمك علمني كيف أصطادة)

وبالنسبة لأخي جلال يستطيع تحميل هذة الملفات عن طريق برنامج اسمة atube cascher

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

جزاك الله الف خير أخي احمد وجعل ما تقدمة في ميزان حسناتك

ولو تكرمت تدلنا على كتاب نستطيع من خلالة نتعلم الاكواد لكي نطبق المثال ( لو اعطيتني سمك علمني كيف أصطادة)

اخي انا لم اتعلمه من كتاب بل بالممارسة ومن اساتذة المنتدى وردودهم

[طائع]

انا اسف يا استاذ رجب على طلبى واوعدك انه يكون اخر طلب

تم تعديل يوليو 23, 2012 بواسطه دغيدى

[mostafa albatrawy]

اخوانى واساتذتى الاعزاء بارك الله فيكم عمل رائع ولكن لى سؤال

عند القيام بتنفيذ وتجربة هذا الكود عندى لا يعمل بمعنى انه قيمة الLR عندى لا تعطينى 10 كما بالمثال ولكن تعطينى 0 فما الخطاء عندى وشكرا

[جلال محمد]

يا جماعة قمت بتنزيل الملفات

اريد برنامج لتشغيل هذه الملفات او تحويلها امتدادها ولكم جزيل الشكر

[محمد مصطفى ابو حمزة]

اخوانى يمكنك تنزيل الملفات بصيغ مختلفة عن طريق لص الرابط من youtube الى موقع

www.keepvid.com

وهذه اسهل طريقة على حد علمى

وتحية الى اساتذتنا العظام واخص اخى عبدالله بارك الله لنا فيه

[جمال الفار]

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

المايستروالذى لا ينام

الدينموالذى لايهدا

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

جميل تاتى بالاجمل

شرح وافى

وكود رائع

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

انى احبك فى الله

بارك الله فيك وابلغك رمضان وغفر لك

اخيك /جمال الفار

[dah_med]

هل يمكن أخي عبد الله شرح الترحيل بشرطين

متال:حسب الاسم والوظيفة

[يوسف عطا]

أخونا الغالى ابو أحمد

بداية أشكرك على هذه السلسلة الرائعة من الدروس

ونحن فى إنتظار باقى الدروس والشروحات بخصوص الترحيل

وعن نفسى تحديداً أريد نوع معين من الترحيل كالتالى

ترحيل جدول به بيانات ومعادلات عديدة مقسمة إلى عدة أنواع بحيث يتم ترحيل قيم كل نوع إلى شيت خاص به وبنفس ترتيب الأعمدة فى الجدول الأصلى

أى ترحيل إلى عدة شيتات مختلفة فى نفس المصنف طبقاً لمعيار معين موجود فى الجدول الأصلى

عسى أن تكون فهمت مقصدى

الهدف من هذا النوع من الترحيل إستخدامه فى الشيت كنترول لفصل الناجح عن الباقى للإعادة عن الذى ليس له حق الإعادة على سبيل المثال

والمهم فى هذا الدرس الذى أنتظره طريقة تحديد الأعمدة التى ترحل وطريقة تحديد العمود الذى به معيار الترحيل للشيتات المختلفة

هل يمكن أن ننتظر هذا الدرس قريباً ؟؟

أتعشم ذلك

[أبو ردينة]

بارك الله فيك أبا أحمد و نفع بعلمك

و كل عام و أنتم بخير

[يوسف السيد]

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

وهذا هو الرابط

http://www.officena.net/ib/index.php?showtopic=42715

[جروان]

تحية

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

و كل عام و انتم بخير

ترحيل.rar

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

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

السلام عليكم

تم التعديل في الكود ليتحقق من وجود اعمدة مخفيق وحذفها

Sub Abu_Ahmed_Trheel_two()

Dim cl As Range, Myr As Range

Set Myr = Range("A2:E10000")

For i = Myr.Column() To Myr.Columns.Count

With Columns(i)

If .EntireColumn.Hidden = True Then .Delete Shift:=xlToLeft

End With

Next

For Each cl In Range("B2:b" & [B1000].End(xlUp).Row)

Sheets("Sheet1").Range("B" & Sheets("Sheet1").[B1000].End(xlUp).Row + 1) = cl

Sheets("Sheet1").Range("C" & Sheets("Sheet1").[C1000].End(xlUp).Row + 1) = cl.Offset(0, 1)

Sheets("Sheet1").Range("d" & Sheets("Sheet1").[d1000].End(xlUp).Row + 1) = cl.Offset(0, 2)

Next

MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه"

Set Myr = Nothing

End Sub

[جروان]

رائع جدا تحقق المطلوب جزاك الله كل خير و متابعين جديدك

[klma7lwa]

الكبير كبير

بارك الله فيك

موضوع اكثر من رائع استفت منه كتييييييييييييير وكمان طبقت عليه

وياريت لو تضيف شرح الترحيل لملف اكسل خارجى

[121403]

أخي العزيز عبدالله المجرب

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

ياريت توضح طريقة الترحيل من مصنف إلى ورقة في مصنف آخر وشكرا

[abdulkreem]

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

شكرا

تحياتي

[gaaamaaal]

جزاك الله خيرا عن هذا العمل

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

حياكم الله اخواني الكرام

وان شاء الله ان يتيسر الامر واكمال السلسلة

[غالب عبد]

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

[محمد ابوخليل]

بارك الله فيكم وزادكم علما وفضلا

[دغيدى]

أخى / محمد خليل

أهلا بكم بين أشقائك

[أحمد السيد]

السلام عليكم

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

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