اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by محمد الورفلي1,

الردود الموصى بها

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

في الخلية 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)))
  • Like 3
رابط هذا التعليق
شارك

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

 

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

 

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

 

 

 

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

رابط هذا التعليق
شارك

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

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

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

سيظهر في الخلية 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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 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:

 

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

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

السلام عليكم

 

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

 

الملف الاصلي

 

 

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

 

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

رابط هذا التعليق
شارك

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

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

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

مجرد تساؤل !

  • Like 1
رابط هذا التعليق
شارك

اخي ياسر

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

 

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

 

 

 

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

تم تعديل بواسطه محمد الخازمي
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information