سؤال بالارتباط التشعبي

[أبو يحيى الجبلاوي]

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

انا واضع فيه ازرار للذهاب للصفحات بربطهم عن طريق ارتباط تشعبي  

سؤالي هو انه كلما خرجت من الصفحة ورجعت لها مرة اخرى ترجع الصفحة للخلية A1 وهذا يسبب مشكلة لانه يوجد تسجيل اكتر من 1000 سطر 
هل يوجد طريقة لجعله يذهب الى اخر سطر مسجل عند الدخول للصفحة 

وهذه صورة تبين المطلوب بارك الله فيكم : 
 

[أبو يحيى الجبلاوي]

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

[أبوعيد]

أرفق الملف للعمل عليه ومعرفة سبب المشكلة

[أبو يحيى الجبلاوي]

اخي الكريم الملف بالمرفقات المشكلة على الشكل التالي :

لدي بالصفحة مسجل حوالي 1000 سطر لما اخرج من الصفحة واعود اليها يتم تحديد الخلية a1 مما يضطرني للنزول 1000 سطر حتى يتم الوصول للسطر الاخير لتكملة التسجيل 

انا سالت ان كانت توجد طريقة لظهور آخر سطر بشكل  تلقائي عند الدخول للصفحة 

انتقال الارتباط التشعبي.zip

تم تعديل أكتوبر 10, 2016 بواسطه أبو يحيى الجبلاوي

[أبوعيد]

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

انتقال الارتباط التشعبي1.rar

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

بارك الله فيك أبو عيد

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

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

 

 

[أبو يحيى الجبلاوي]

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

 

[أبوعيد]

شكرا لك أخي أبويحيى

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

عمل ارتباط تشعبي يعطيك آخر خليه

انتقال الارتباط التشعبي2.rar

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

بارك الله فيك أخي أبو عيد

إثراءً للموضوع إليكم ملف بدون أكواد بمعادلات فقط تمكنك من الذهاب إلى آخر خلية في العمود المحدد (في المرفق مطبق على العمود C) بحيث يذهب لآخر خلية في العمود C ..

رابط الملف المرفق من هنا

[أبو يحيى الجبلاوي]

في ١٠‏/١٠‏/٢٠١٦ at 12:47, أبوعيد said:

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

انتقال الارتباط التشعبي1.rar

أخي أبو عيد لو سمحت كيف  هل يمكنني تحديد الخلية الأولى الفارغة بعد اخر خلية مكتوبة ؟ 

Sub gotoo()
Sheets("اللإيردات").Activate
Range("D" & Rows.Count).End(xlUp).Select
End Sub

هذا الكود يحدد الخلية الأخيرة الممتلئة هي يمكن تحديد الخلية التي تليها ؟ 

 

[أبوعيد]

السلام عليكم

نعم يمكن ذلك , غير سطر الكود بإضافة Offset(1, 0) كما يأتي

Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select