skyblue قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 الاخوة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد في الملف المرفق نرغب بترحيل البيانات حسب الشرط , والشرح موجود بالملف تحياتي لكم وكل عام وانتم بالف خير ترحيل بطريقة اخرى.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال.... أخي الكريم هذه طريقة أولى للترحيل بالمعادلات باستعمال عمود إضافي.... وتجد حلولا أخرى مع إخوتي الكرام.... أخوك بن علية ترحيل بطريقة اخرى1.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 أخى الفاضل تفضل ترحيل بطريقة اخرى 2.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 السلام عليكم ===== الشكر موصول لاخوانى بن عليه وجمال دغيدى ولتنوع الحلول هذا حل اخر بالماكرو HH.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 السلام عليكم ===== الشكر موصول لاخوانى بن عليه وجمال دغيدى الشكر الجزيل للاخوة / الاساتذة : بن علية & دغيدي & هشام شلبي جزاكم الله كل الخير وفقكم الله ابو الحارث رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أغسطس 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 بواسطه الحسامي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 الاساتذة الافاضل بن علية دغيدي هشام شلبي عماد الحسام اعمال رائعة تعدد الحلول والنتيجة واحدة هههه ابواحمد رابط هذا التعليق شارك More sharing options...
محمود علاء قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 اخوانى الافاضل جميعاً بارك الله لنا فيى عقولكم الشغالة كل عام وانتم جميعاً بخير وتقبل الله منكم جميعاًَ الصيام والصلاة والزكاة وصالح الأعمال اللهم أمين رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 15, 2011 مشاركة قام بنشر أغسطس 15, 2011 السلام عليكم بارك الله فيكم حلول اكثر من رائعة ولتنوع الحلول هنا حل اخر بالاكواد اخي الاستاذ الكبير الحسامي : مميز كعادتك ... وهذا ليس بجديد على امثالك اعجبني جدا جدا وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر أغسطس 17, 2011 الكاتب مشاركة قام بنشر أغسطس 17, 2011 الشكر موصول لكل الاخوان اللي ساهموا بعدة حلول وطرق مختلفة وهم : hben دغيدي هشام شلبي ياسر الحافظ عبدالله المجرب محمود علاء تحية خاصة لااستاذنا الكبير عماد الحسامي على الحل الرائع بالاكواد وهذا مااريده وانتظره . بارك الله فيكم يااخوان ووفقكم الله للخير دائما . وكل عام وانتم بالف خير رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 18, 2011 مشاركة قام بنشر أغسطس 18, 2011 الشكر موصول لجميع الأخوة المشاركين بالفعل من يلم بقواعد معادلات وأكواد الترحيل يملك نصف مفاتيح الإيكسيل وللأسف أنا فى الترحيل حتى الآن لا أعرف أى شئ إسم لى صاحب الدار أن أقوم من هنا بدعوة أخوتنا الخبراء لبدء درس خصوصى عن اساسيات عملية الترحيل وليكن هذا الدرس موضوع مستقل جعله الله فى موازين حسناتكم رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 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 أخى الحسامى هل أطمع فى شرح هذا الكود سطر سطر الف شكر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان