اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

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

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

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

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

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

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

  • 2 weeks later...

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

www.keepvid.com

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

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

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

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

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

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

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

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

شرح وافى

وكود رائع

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

أتعشم ذلك

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

  • 2 weeks later...

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

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

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

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

  • 4 weeks later...

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

السلام عليكم

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


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

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

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

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

Important Information