دالة لاظهار اخر محتوي مكتوب في عمود معين داخل خلية اخري

[وليد زقزوق]

هذا لا يجتاج لمثال

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

ما اريدة هو معادلة او كود لاظهار هاذ المحتوي الاخير داخل خلية  خلية اخري علي واجهة البرنامج وسوف تتجدد باستمرار كما ذكرت عند الدخول كل مرة

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

السلام عليكم

على افتراض ان القيم المراد معرفتها موجودة في الورقة 1 في العمود الاول

و تريد رؤيتها في الورقة 2 في العمود H

فيكون الكود كالتالي :

Private Sub Workbook_Open()
Sheets("ورقة2").Range("H1").Value = Sheets("ورقة1").Range(("A") & Sheets("ورقة1").Cells(Rows.Count, "A").End(xlUp).Row).Value
Sheets("ورقة2").Select
End Sub

[بن علية حاجي]

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

 

أهلا بك أخي "أبو حنين" افتقدك المنتدى كثيرا وشكر على الكود الجميل الذي وضعته... هذا حل آخر بالمعادلة على أساس أن البيانات في العمود A من الورقة Sheet1 :

 

 

=INDEX(Sheet1!A:A;MATCH("zzz";Sheet1!A:A;1))
 

بطبيعة الحال هذا إن لم يكن أحد المستعملين اسمه "zzz" وأن تكون الأسماء نصية...

 

أخوكم بن علية

تم تعديل فبراير 27, 2013 بواسطه بن علية حاجي

[وليد زقزوق]

وهل مع تغير وضع البيانات عندي اغيرها بالتبعية في الاكواد او المعادلة

[بن علية حاجي]

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

 

وهل مع تغير وضع البيانات عندي اغيرها بالتبعية في الاكواد او المعادلة

أخي الكريم وليد، هذا أكيد يجب تغيير وضع البيانات (العمود واسم الورقة) (ملاحظة : اسم الورقة غير ضروري إن كانت عمود البيانات وحجز المعادلة (أو تنفيذ الكود) في الورقة نفسها....

 

والله أعلم

[رجب جاويش]

ولاثراء الموضوع

هذه معادة لايجاد آخر بيان فى العمود A  سواء كان نص أو رقم أو شئ آخر

=OFFSET(A1;MAX(ROW(A:A)*(A:A<>""))-1;0)

وهى معادلة صفيف أى لابد من الضغط على مفاتيح  CTRL + SHIFT + ENTER  معا

[حمادة عمر]

السلام عليكم

اروع ما في الموضوع فعلا هو ان يجتمع هذه الكوكبة من الاساتذة فيه

االاستاذ / أبو حنين

الاستاذ / بن علية حاجي

الاستاذ / رجب جاويش

 

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

تم تعديل فبراير 27, 2013 بواسطه حمادة عمر

[جمال عبد السميع]

بعد إذن أساتذتى أللى وحشونى بجد وهذا حل أخر لإثراء الموضوع

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

[رجب جاويش]

والله أنت اللى وحشتنا جدا أخى الحبيب / محمود

نورت المنتدى

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

ويارب ما تغيب عننا تانى

أخوك / رجب جاويش

[رجب جاويش]

أخى الحبيب / حمادة عمر

شكرا جزيلا أخى الحبيب على مرورك العطر

[جمال عبد السميع]

أستاذى الرائع العظيم ( رجب جاويش وحشتنى بجد والله ياأستاذ والله المنتدى منور طول مافية عباقرة مثلكم بيعطوا بإخلاص وحب ليس لشئ إلا محبة فى عمل الخير ووفاء لدين هذه الجامعة فى رقبتنا

بارك الله فيك أستاذى وأكثر اللهم من أمثالك

[حمادة عمر]

السلام عليكم

اروع ما في الموضوع فعلا هو ان يجتمع هذه الكوكبة من الاساتذة فيه

االاستاذ / أبو حنين

الاستاذ / بن علية حاجي

الاستاذ / رجب جاويش

 

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

 

السلام عليكم

وانضم الي العمالقة العملاق القدير / mahmoud-lee

ويارب ما تغيب عننا تانى

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

[وليد زقزوق]

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

[وليد زقزوق]

هذا مثال لما اقولالمصنف1.rar

[رجب جاويش]

هل تقصد هكذا

 

المصنف1.rar

[وليد زقزوق]

الف شكر اخي رجب

ممتازة هذا ما قصده

[خالد القدس]

السلام عليكم

الاساتذة الكرام

حلول رائعة ومتنوعة

بارك الله فيكم

[جمال عبد السميع]

وأستمرارا لتنوع الحلول وبعد إذن أستاذى ( رجب جاويش ) تطبيق معادلة المرفق السابق على مرفقك

أخر خلية.rar

[عبدللرحيم]

جزاكم الله كل الخير وبارك لكم وزادكم من فضله

 

[fwaz]

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

عندى ملف يتم مشاركته يتم العمل عليه من أكثر من شخص

ويتم إدخال بيانات فى الصفوف وكل صف عبارة عن بيانات معاملة واحدة

أحتاج كود يظهر فى كل صف إسم الجهاز الذى تم من خلاله التعديل على بيانات  كل  صف حتى يتم معرفة الشخص الذى أدخل بيانات كل صف

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

اثراءً للموصوع 

هذا الملف

Adress_Values.rar

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

بارك الله فيك أخي الحبيب سليم على الملف الجميل والحل الرائع وعلى إثراء موضوع قيم

 

[Ahmed Mohamed Eg]

شكرا على هذه المجهودات والمعلومات القيمة 

هل يوجد دالة أو كود يمكن أن تقرأ أو يقرأ الخلية المفلترة 

بمعنى عندما اقوم بعمل تصفيات او فلاتر لعامود من البيانات حتى تظهر امامي خلية واحدة فقط يتم قراءتها اوتوماتيك في خلية أخرى بشيت آخر

 

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

الرابط