إرتباط لآخر خلية في الصفحة !

[عبد الله هُربي]

السلام عليكم ..

كيف اقوم بإنشاء ارتباط لآخر خلية في الصفحة ..

استطعت ان اسوي ارتباط عادي لكنه يصل الى أعلى الملف فقط .. انا اريد الارتباط يصل الى آخر خلية فيها بيانات في الملف !!

[رجب جاويش]

أخى الفاضل

ارفق ملف ليتم عمل ما تريد عليه

[عبد الله هُربي]

لدي ملف واضيف فيه بيانات بشكل متجدد .. اريد انشاء ارتباط يوصل لآخر بيانات مدرجة في هذا الملف ..

لا ادري كيف اوصلك الفكرة !

[رجب جاويش]

أخى الفاضل

جرب الملف المرفق

ان شاء الله يكون هو ما تريد

آخر خليه.rar

[عبد الله هُربي]

نعم هذا ما اقصده ..

كيف يمكن عمل ذلك ؟؟ واشكرك ..

[رجب جاويش]

أخى الفاضل

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

[عبد الله هُربي]

ياريت لو تكتبه هنا واكون شاكر لك .. حاولت ايجاده فظهر لي انه على شكل مجلد ..

[رجب جاويش]

أخى الفاضل

هذا هو الكود

Sub ragab()

LR = Cells(Rows.Count, 2).End(xlUp).Row

Cells(LR, 2).Select

End Sub

[رجب جاويش]

ويمكن اختصاره فى سطر واحد

Sub ragab()

Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2).Select

End Sub

[عبد الله هُربي]

كيف انفذه على رابط نصي ؟؟

[رجب جاويش]

أخى الفاضل

من الأفضل أن ترسل أنت ملف توضح فيه ما تريد حتى يتم العمل عليه

[عبد الله هُربي]

تفضل .. ارفقت الملف ..

text.zip

[رجب جاويش]

أخى الفاضل

أرجو توضيح ما تريده أكثر داخل الملف

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

بعد اذن اخي رجب

يمكن استعمال الكود الذي أدلى به أخي الحبيب رجب بالطريقة التالية

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Target.Column = 1 Then

Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Select

End If

End Sub

حيث تضغط مرتين على الخلية A1 لتنتقل الى آخر خلية تحتوي على معلومات

[عبد الله هُربي]

أخى الفاضل

أرجو توضيح ما تريده أكثر داخل الملف

مرحباً أستاذي ..

انظر الى الصفحة الأولى .. سترى رابط .. اريد عن الضغط عليه ينتقل إلى آخر خلية في الصفحة الثانية ..

هل وصلت الفكرة ؟؟

[عبد الله هُربي]

بعد اذن اخي رجب

يمكن استعمال الكود الذي أدلى به أخي الحبيب رجب بالطريقة التالية

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Target.Column = 1 Then

Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Select

End If

End Sub

حيث تضغط مرتين على الخلية A1 لتنتقل الى آخر خلية تحتوي على معلومات

نعم ، جربت الكود وهو يعمل بنجاح ..

وكما ذكرت اريده على شكل رابط حتى انتقل الى آخر خلية ..

سؤال .. هل يمكن تحديد خلية بعد آخر خلية موجود فيها البيانات ؟؟

[عبدالله باقشير]

السلام عليكم

وكما ذكرت اريده على شكل رابط حتى انتقل الى آخر خلية ..

باستخدام المعادلات

=HYPERLINK(CONCATENATE(NAMEFIL;"A";ROWEND);"END")

المرفق 2003-2007

text.rar

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

سؤال .. هل يمكن تحديد خلية بعد آخر خلية موجود فيها البيانات ؟؟

=HYPERLINK(CONCATENATE(NAMEFIL;"A";ROWEND+1);"END")

وهذا الكود لأخونا الكريم عبد الله جزاه الله خيرا

[عبد الله هُربي]

ما شاء الله .. تبارك الله ..

أشكركم جزيل الشكر ..

بخصوص الكود السابق الخاص بالماكرو .. كيف اخليه يحدد للخلية التي بعد الأخيرة ؟؟

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

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

تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال...

سؤال .. هل يمكن تحديد خلية بعد آخر خلية موجود فيها البيانات ؟؟

=HYPERLINK(CONCATENATE(NAMEFIL;"A";ROWEND+1);"END")

وهذا الكود لأخونا الكريم عبد الله جزاه الله خيرا

أخي الكريم أبو حنين لتحديد الخلية التي تلي آخر خلية غير فارغة في كود أخي الحبيب عبد الله (وأستسمحه في هذا التغيير) يكفي إضافة 1 في آخر المعادلة المسماة ROWEND فتكون كما يلي:

=MAX(NOT(ISBLANK(Sheet2!$A$2:$A$60000))*ROW(Sheet2!$A$2:$A$60000))+1

وبالفرنسية تكون:

=MAX(NON(ESTVIDE(Sheet2!$A$2:$A$60000))*LIGNE(Sheet2!$A$2:$A$60000))+1

وفي الكود الذي قدمته أيضا يمكن أيضا القيام بذلك بالفكرة نفسها فيكون الكود (وأستسمحك في التغيير) كما يلي:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Target.Column = 1 Then

Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select

End If

End Sub

أخوك بن علية

[عبد الله هُربي]

بارك الله فيكم على المجهود المتميز .. وفقكم الله اخواني ..