skyblue قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 الاخوة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد في الملف المرفق نرغب بترحيل البيانات حسب الشرط , والشرح موجود بالملف تحياتي لكم وكل عام وانتم بالف خير ترحيل بطريقة اخرى.rar
بن علية حاجي قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم هذه طريقة أولى للترحيل بالمعادلات باستعمال عمود إضافي.... وتجد حلولا أخرى مع إخوتي الكرام.... أخوك بن علية ترحيل بطريقة اخرى1.rar
هشام شلبى قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 السلام عليكم ===== الشكر موصول لاخوانى بن عليه وجمال دغيدى ولتنوع الحلول هذا حل اخر بالماكرو HH.rar
ياسر الحافظ قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 السلام عليكم ===== الشكر موصول لاخوانى بن عليه وجمال دغيدى الشكر الجزيل للاخوة / الاساتذة : بن علية & دغيدي & هشام شلبي جزاكم الله كل الخير وفقكم الله ابو الحارث
الحسامي قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 (معدل) السلام عليكم بارك الله فيكم حلول اكثر من رائعة ولتنوع الحلول هنا حل اخر بالاكواد Dim c As Range Sheet2.[g4:h24] = Empty For Each c In Sheet1.[g6:g26] If c = 1 Then Range(Sheet2.[g24].End(xlUp).Offset(1, 0), Sheet2. _ [g24].End(xlUp).Offset(1, 1)) = Range(c.Offset(0, 1), c.Offset(0, 2)).Value Next c Sheet1.[h5:i5] = Sheet2.[g25:h25].Value ترحيل بطريقة اخرى1.rar تم تعديل أغسطس 15, 2011 بواسطه الحسامي
عبدالله المجرب قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 الاساتذة الافاضل بن علية دغيدي هشام شلبي عماد الحسام اعمال رائعة تعدد الحلول والنتيجة واحدة هههه ابواحمد
محمود علاء قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 اخوانى الافاضل جميعاً بارك الله لنا فيى عقولكم الشغالة كل عام وانتم جميعاً بخير وتقبل الله منكم جميعاًَ الصيام والصلاة والزكاة وصالح الأعمال اللهم أمين
ياسر الحافظ قام بنشر أغسطس 15, 2011 قام بنشر أغسطس 15, 2011 السلام عليكم بارك الله فيكم حلول اكثر من رائعة ولتنوع الحلول هنا حل اخر بالاكواد اخي الاستاذ الكبير الحسامي : مميز كعادتك ... وهذا ليس بجديد على امثالك اعجبني جدا جدا وفقك الله ابو الحارث
skyblue قام بنشر أغسطس 17, 2011 الكاتب قام بنشر أغسطس 17, 2011 الشكر موصول لكل الاخوان اللي ساهموا بعدة حلول وطرق مختلفة وهم : hben دغيدي هشام شلبي ياسر الحافظ عبدالله المجرب محمود علاء تحية خاصة لااستاذنا الكبير عماد الحسامي على الحل الرائع بالاكواد وهذا مااريده وانتظره . بارك الله فيكم يااخوان ووفقكم الله للخير دائما . وكل عام وانتم بالف خير
يوسف عطا قام بنشر أغسطس 18, 2011 قام بنشر أغسطس 18, 2011 الشكر موصول لجميع الأخوة المشاركين بالفعل من يلم بقواعد معادلات وأكواد الترحيل يملك نصف مفاتيح الإيكسيل وللأسف أنا فى الترحيل حتى الآن لا أعرف أى شئ إسم لى صاحب الدار أن أقوم من هنا بدعوة أخوتنا الخبراء لبدء درس خصوصى عن اساسيات عملية الترحيل وليكن هذا الدرس موضوع مستقل جعله الله فى موازين حسناتكم
يوسف عطا قام بنشر أغسطس 18, 2011 قام بنشر أغسطس 18, 2011 السلام عليكم بارك الله فيكم حلول اكثر من رائعة ولتنوع الحلول هنا حل اخر بالاكواد Dim c As Range Sheet2.[g4:h24] = Empty For Each c In Sheet1.[g6:g26] If c = 1 Then Range(Sheet2.[g24].End(xlUp).Offset(1, 0), Sheet2. _ [g24].End(xlUp).Offset(1, 1)) = Range(c.Offset(0, 1), c.Offset(0, 2)).Value Next c Sheet1.[h5:i5] = Sheet2.[g25:h25].Value أخى الحسامى هل أطمع فى شرح هذا الكود سطر سطر الف شكر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.