زوهير قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 السلام عليكم ورحمة الله اعزائي اريد كود يقوم بترحيل حسب الاسم - التنقيط- مع احتساب النقاط والمرفق يوضح المطلوب وجراكم الله خيرا التنقيط حسب الاسم.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 (معدل) السلام عليكم ورحمة الله اعزائي اريد كود يقوم بترحيل حسب الاسم - التنقيط- مع احتساب النقاط والمرفق يوضح المطلوب وجراكم الله خيرا التنقيط حسب الاسم.rar تم تعديل سبتمبر 10, 2016 بواسطه زوهير المرفق رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 للرفع رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 ماذا تقصد بالتنقيط املأ الجدول يدوياً بالنتائج المتوقعة رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 تم توضيح الطلب جزاك الله خيرا التنقيط حسب الاسم(1).rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 =IF($A2="","",COUNTIF($B2:$H2,"X")) جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 هو مجر دمثال على مااريدد يتم العد حسب حرف x الممنوح حسب الاسم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 2 دقائق مضت, زوهير said: هو مجر دمثال على مااريدد يتم العد حسب حرف x الممنوح حسب الاسم جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً =IF($A2="","",COUNTIF($B2:$H2,"X")) رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 اخي الكريم سليم اريد الكود في الفورم وليس بالمعادلة في الشيت الاني سأعمل على الفورم وليس الشيت وطلبي واضح اريد كود الترحيل حسب الاسم في النطاق المحدد المشكلة ليست في العد المشكلة في كود الترحيل جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 مرحبا بعد اذن اخي سليم انسخ التالي في الفورم Private Sub ComboBox1_Change() Set MyRange = ActiveSheet.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) On Error Resume Next X = MyRange.Cells.Find(ComboBox1, LookAt:=xlWhole, MatchCase:=True).Activate t2.Value = ActiveCell.Offset(, 8) End Sub Private Sub CommandButton1_Click() For i = 1 To 7 If Not Cells(ActiveCell.Row, i) = "" Then Cells(ActiveCell.Row, i + 1).Select r = r + 1 End If Next Cells(ActiveCell.Row, ActiveCell.Column) = "X" Cells(ActiveCell.Row, 9) = r t2.Value = r End Sub Private Sub UserForm_Initialize() t1.Value = "X" With Me.ComboBox1 .List = Sheets(1).Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row).Value End With End Sub 1 رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 جزاك الله خيرا ابو حنين وزاده في ميزان حسانتك وزادك الله علما علم ونورا على نور هو المطلوب جملة وتفصيلا لك كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 العفو اخي زوهير رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 اخي الكريم ابو حنين ممكن استفسار لو امكن ينقل التنقيط بشكل عشوائي ليس حسب الاسم الذي تم اختياره في الكمبوبوكس لتوضيح tank هو اسم الكمبوبوكس عند تطبيق الاكواد على الملف الاصلي اتضح هناك خطأ في السطر التالي 'On Error Resume Next x = MyRange.Cells.Find(tank, LookAt:=xlWhole, MatchCase:=True).Activate رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 السلام عليكم الكود كان حسب الملف المرسل وان وقع خطأ فمعنى هذا ان الملف الذي تعمل عليه ربما يختلف في مواقع البيانات للملف المرسل رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 اخي ابو حنين لو اثقلت عليك قليلا هذه بيانات الملف الاصلي اصدار الاوفيس هو 2007 عدد الاعمدة في الملف الاصلي هو 93 والناتج يكون في العمود 94 حسب اسم كل موظف وعدد الاسامي ما يفوق 150 اسم وبما ان الملف خاص بالعمل فلا استطيع ارفاقه واسم الكمبوبوكس هو tank واسم الشيت المراد الترحيل اليها هي "mrdodia" وجزاك الله خيرا مسبقا مع كل الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 10, 2016 مشاركة قام بنشر سبتمبر 10, 2016 ليس شرطا ان ترسل الملف ببياناته الاصلية مثلا تسمي الاعمدة : عمود1 - عمود2 - عمود3 . . . . . . الاسماء في الصفوف : اسم 1 اسم 2 اسم 3 و هكذا المهم بيانات وهمية رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر سبتمبر 10, 2016 الكاتب مشاركة قام بنشر سبتمبر 10, 2016 اخي الكريم ولاستاذ الفاضل ابو حنين تعبتك معايا هناك شيء بالملف الاصلي لم يتوافق مع السطر المذكور في التدخل السابق لان بعد التجربة على ملف اخر بنفس المعطيات الاصلية يعمل بشكل عادي وعند وضع الكودفي الملف الاصلي يعطييني الخطأ في ذاك السطر ..؟؟؟؟؟؟؟؟؟؟؟ اللهم نورنا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان