التنقيط حسب الاسم

[زوهير]

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

اعزائي اريد كود يقوم بترحيل حسب الاسم - التنقيط- مع احتساب النقاط 

والمرفق يوضح المطلوب 

وجراكم الله خيرا 

التنقيط حسب الاسم.rar

[زوهير]

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

اعزائي اريد كود يقوم بترحيل حسب الاسم - التنقيط- مع احتساب النقاط 

والمرفق يوضح المطلوب 

وجراكم الله خيرا 

التنقيط حسب الاسم.rar

تم تعديل سبتمبر 10, 2016 بواسطه زوهير
المرفق

[زوهير]

للرفع

[سليم حاصبيا]

ماذا تقصد بالتنقيط

املأ الجدول يدوياً بالنتائج المتوقعة

[زوهير]

تم توضيح الطلب

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

 

التنقيط حسب الاسم(1).rar

[سليم حاصبيا]

=IF($A2="","",COUNTIF($B2:$H2,"X"))

جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً

 

 

 

[زوهير]

هو مجر دمثال على  مااريدد

يتم العد حسب حرف x الممنوح  حسب الاسم

[سليم حاصبيا]

2 دقائق مضت, زوهير said:

هو مجر دمثال على  مااريدد

يتم العد حسب حرف x الممنوح  حسب الاسم

جرب هذه المعادلة في الخلية I3 ,واسجب نزولاً

=IF($A2="","",COUNTIF($B2:$H2,"X"))

 

[زوهير]

اخي الكريم سليم اريد الكود في الفورم وليس بالمعادلة في الشيت

الاني سأعمل على الفورم وليس الشيت

وطلبي واضح اريد كود الترحيل حسب الاسم في النطاق المحدد

المشكلة ليست في العد المشكلة في كود الترحيل

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

[أبو حنــــين]

مرحبا

بعد اذن اخي سليم 

انسخ التالي في الفورم

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

 

[زوهير]

جزاك الله خيرا ابو حنين

وزاده في ميزان حسانتك  وزادك الله علما علم ونورا على نور

هو المطلوب جملة وتفصيلا

لك كل الشكر والتقدير

[أبو حنــــين]

العفو اخي زوهير

[زوهير]

اخي الكريم ابو حنين ممكن استفسار لو امكن

ينقل التنقيط بشكل عشوائي ليس حسب الاسم الذي تم اختياره في الكمبوبوكس

لتوضيح  tank هو اسم الكمبوبوكس

عند تطبيق الاكواد على الملف الاصلي اتضح هناك خطأ

في السطر التالي

'On Error Resume Next

x = MyRange.Cells.Find(tank, LookAt:=xlWhole, MatchCase:=True).Activate

[أبو حنــــين]

السلام عليكم

الكود كان حسب الملف المرسل

وان وقع خطأ فمعنى هذا ان الملف الذي تعمل عليه ربما يختلف في مواقع البيانات للملف المرسل

 

[زوهير]

اخي ابو حنين

لو اثقلت عليك قليلا هذه بيانات الملف الاصلي

اصدار الاوفيس هو 2007

عدد الاعمدة في الملف الاصلي هو    93

والناتج يكون في العمود 94 حسب اسم كل موظف

وعدد الاسامي ما يفوق 150 اسم

وبما ان الملف خاص بالعمل فلا استطيع ارفاقه

واسم الكمبوبوكس هو tank واسم الشيت المراد الترحيل اليها هي "mrdodia"

وجزاك الله خيرا مسبقا

مع كل الاحترام والتقدير

 

[أبو حنــــين]

ليس شرطا ان ترسل الملف ببياناته الاصلية

مثلا  تسمي الاعمدة : عمود1 - عمود2 - عمود3 . . . . . . 

الاسماء في الصفوف : 

اسم 1

اسم 2

اسم 3

 و هكذا 

المهم بيانات وهمية 

[زوهير]

اخي الكريم ولاستاذ الفاضل ابو  حنين تعبتك معايا

هناك شيء بالملف الاصلي لم يتوافق مع السطر المذكور في التدخل السابق

لان بعد التجربة على ملف اخر بنفس المعطيات الاصلية يعمل بشكل عادي

وعند وضع  الكودفي الملف الاصلي يعطييني الخطأ في ذاك السطر ..؟؟؟؟؟؟؟؟؟؟؟

اللهم نورنا