استخراج آخر اسم تم إدراجه في عمود (آخر اسم تم تسجيله في نطاق)

[محمد الورفلي1]

السلام عليكم

 

مساعدة في اخر اسم تم ادراجه في عمود مع مرعاة الابجدة التلقائية

 

 

اول خلية واخر خلية.rar

[ياسر خليل أبو البراء]

أخي محمد الخازمي

في الخلية E10 ضع المعادلة التالية

=IFERROR(INDEX($B$18:$B$300,COUNTA($B$18:$B$300)-1+ROW(A1)),"")

للحصول على آخر اسم في القائمة

 

أما بالنسبة لأول اسم فيكفي على ما أعتقد ان تشير إلى الخلية B18

=B18

تقبل تحياتي

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

لمعرفة رقم الصف لاول خلية غير فارغة في العامود A  مثلاً  (هذا الامرلا يأخذ بالحسبان الغراغات)

 المعادلات صفيف (ctrl+shift+enter)

=MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0)

لمعرفة عنوانها

=ADDRESS(MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0),1)

لمعرفة ماذا تحتوي

=INDEX($A$1:$A$500,MATCH(1,IF($A$1:$A$500<>0,IF($A$1:$A$500<>"",1)),0))

لمعرفة رقم الصف لاخر خلية غير فارغة في العامود A  مثلاً

=MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500))

لمعرفة عنوانها

=ADDRESS(MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)),1)

لمعرفة ماذا تحتوي

=INDEX($A$1:$A$500,MAX(($A$1:$A$500<>"")*ROW($A$1:$A$500)))

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

العمل على الملف حسب المشاركة السابقة

 

اول خلية واخر خلية salim.rar

[محمد الورفلي1]

السلام عليكم حلول ممتعمة ومعادلات اجمل

 

اوضح شى اساتذتي

 

المرفق يوجد به ابجدة تلقائية فا كل ما تدرج اسم طالب يبقا اسم يوسف هو اخر طالب تم تسجيل  فكيف تيم معرفة اخر طالب تم تسجيلة وشكراً

 

 

 

اول خلية واخر خلية.rar

[محمد الورفلي1]

للرفع

[ياسر خليل أبو البراء]

أخي الحبيب محمد الخازمي ..

لابد أن ألوم عليك أن توضح طلبك بشكل أكثر تفصيلاً .. لأن ما تطلبه الآن لم يخطر ببال أحد .. ولذلك دائماً يراعى طرح النتائج المتوقعة

إليك الملف التالي وإن شاء المولى يفي بالغرض

سيظهر في الخلية E10 آخر اسم تم تسجيله..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X
    If Not Intersect(Target, Range("B17:B400")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
            X = Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
            Range("B17:B400").Sort Key1:=Range("B17"), Order1:=xlAscending, Header:=xlYes
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Range("E10").Value = X
    End If
End Sub

وأخيراً لا تنسى التوجيهات

تقبل تحياتي

Last Name Recorded By YasserKhalil.rar

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

 هذا الملف يجيبك عن سؤالك

بعد اذن اخي ياسر حسب ما فهمت من السؤال ان المطلوب اخر اسم تم تسجيله ( يمكن الا يكون اخر اسم في اللاائحة)

ذلك لانك اينما تسجل الاسم سوف يرتب ابجديا

الكود الذي قدمته يجيب عن هذا لسؤال حتى و لو تم تسجيل الاسم في مكان فارغ من وسط اللائحة

اول خلية واخر خلية salim.rar

[محمد الورفلي1]

السلام عليكم

استاذ ياسر لومك في مكانه صحيح المفروض انى اوضح جيداًَ طلبي (( اعجبني )) تعديك للعنوان فهذا هو العنوان الصحيح 

[محمد الورفلي1]

أخي الحبيب محمد الخازمي ..

لابد أن ألوم عليك أن توضح طلبك بشكل أكثر تفصيلاً .. لأن ما تطلبه الآن لم يخطر ببال أحد .. ولذلك دائماً يراعى طرح النتائج المتوقعة

إليك الملف التالي وإن شاء المولى يفي بالغرض

سيظهر في الخلية E10 آخر اسم تم تسجيله..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X
    If Not Intersect(Target, Range("B17:B400")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
            X = Range("B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
            Range("B17:B400").Sort Key1:=Range("B17"), Order1:=xlAscending, Header:=xlYes
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Range("E10").Value = X
    End If
End Sub

وأخيراً لا تنسى التوجيهات

تقبل تحياتي

 

 

 هذا الملف يجيبك عن سؤالك

بعد اذن اخي ياسر حسب ما فهمت من السؤال ان المطلوب اخر اسم تم تسجيله ( يمكن الا يكون اخر اسم في اللاائحة)

ذلك لانك اينما تسجل الاسم سوف يرتب ابجديا

الكود الذي قدمته يجيب عن هذا لسؤال حتى و لو تم تسجيل الاسم في مكان فارغ من وسط اللائحة

 

انا ان شاء الله ملتزم بتوجهات المنتدي 

 

لكن هنا حلين حل اجمل من الاخر فا انا في حير لاختيار الافضل لانهما اعجباني  وقانون المنتدي لايسمح الابختيار اجابة واحدة    ... فلاذالك جمعت المشاركتين  وسوف اختارهما كأفضل اجابة

 

 

شكرأ وتقدير للاستاذ الخبير  سليم :fff:

 

طبعاً شكر وتقدير للمشرف استاذ ياسر :fff:

تم تعديل أبريل 21, 2015 بواسطه محمد الخازمي

[محمد الورفلي1]

السلام عليكم

 

عند نقل الكود الي الملف الاصلي ....و محاولت دمج الكود  مع كود موجود مسبقاً في الصفحة عمل على احضار الاسم بشكل ممتاز ولكن " المشكلة الصفحة اصبحت بها ارتعاش عند اضافة اسم جديد وكذالك عند الحذف.... لو تكرمتو ممكن النظر في المرفق بارك الله فيكم .......     

 

الملف الاصلي

 

 

اول خلية واخر خلية 2.rar

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

الارتعاش سببه كثرة الصفوف المدمجة

تم معالجة الامر

مع التلخيص في الكود قدر الامكان و ذلك بادراج معادلة للصفوف و الجنس

اول خلية واخر خلية 4.rar

[محمد الورفلي1]

السلام عليكم

 

استاذ الفاضل :: الايوجد حل لمثل هذا الارتعاش في الصفحة .............. لان الدمج ضروري جداً فا الملف مرتبط بعدة صفحات اخرى بارك الله فيك ياريت يكون هناك حل اخر

[ياسر خليل أبو البراء]

أخي محمد الخازمي

أنا شخصيا لا أحبذ التعامل مع الأكواد في حدث تغيير ورقة العمل حيث أن ذلك يرهق الملف بشكل كبير ..

لما لا تتم عمليات الإدخال ثم بعد ذك يتم تنفيذ الكود مرة واحدة ؟؟

مجرد تساؤل !

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

اخي ياسر

انا مع هذا الاقتراح

و يمكن حتي جعل عملية الابجدة مرة واحدة كلما بلغ عدد الصفوف حداً معيناً

 ينفد عن طريق Module  عادي بكبسة زر

[محمد الورفلي1]

هل تقصد استاذ ياسر ان انتهي من ادخال جميع الطلبة بالكامل ثم يبدا الكود  بالعمل  مع العلم عدد الطلب يفوق 300 طالب

 

طيب ممكن مع نفس الاكواد الموجودة

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

بالاذن من اخي الحبيب ياسر دعني اجيب على هذا السؤال

هذه العملية لا تتطلب اكثر من ثوانٍ معدودة حتى ولو كان عندك 5000 اسم

و الكود عبارة عن سطرين او  ثلاثة

هل توافقني الراي يا ياسر

[محمد الورفلي1]

بالاذن من اخي الحبيب ياسر دعني اجيب على هذا السؤال

هذه العملية لا تتطلب اكثر من ثوانٍ معدودة حتى ولو كان عندك 5000 اسم

و الكود عبارة عن سطرين او  ثلاثة

هل توافقني الراي يا ياسر

 

 

المهم استاذ سليم بارك الله فيك يكون بنفس الاكواد  ومع العلم "" كود النتقل الي اخر خلية مع الابجدة رغم وجود الدمج  هو من اعمالك التي استفدة منها كثيراً قد عملته لي في تاريخ 14/12/2014

 

 

 

وهذا الرابط   http://www.officena.net/ib/index.php?showtopic=55632

تم تعديل أبريل 21, 2015 بواسطه محمد الخازمي

[محمد الورفلي1]

للرفع