تحديد أخر سطر

[Akram Galal]

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

اريد كود يقوم بالذهاب الي أخر خلية في العمود H

بمعنى

اذا كان العمود H مكتوب فيه حتى الخلية H10

يقوم باذهاب الي الخلية H11

وشكرا

[الصـقر]

حضرتك ارفق ملف ولو افتراضى وانا اعمله لحضرتك

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

 السلام عليكم

اكتب هذا الكود 

Sub der()
lr = Cells(Rows.Count, "H").End(xlUp).Row + 1

Range("h" & lr).Select
End Sub

اما اذا كنت تريد تحديد الصف بكامله:

Sub der()
lr = Cells(Rows.Count, "H").End(xlUp).Row + 1

Range("h" & lr).Offset(, -7).Resize(1, 8).Select
End Sub

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

بعد إذن أخى الحبيب " سليم "

أستخدم هذا الكود فى حدث الصفحة سيحقق المطلوب

تقبل تحياتى

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select
End Sub

فعلا أخى " ياسر " معك كل الحق ولكن كنت أرغب فى كتابة الطريقتين لأخى السائل

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

وهاهى الطريقة الثانية

Sub mah()
ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select
End Sub

تقبل تحياتى وشكرا على الملاحظة

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

أستاذ جمال : لماذا قمت بربط الكود بحدث الورقة .. كدا دايما التحديد هيكون على آخر خلية في العمود H مجرد سؤال هيشتغل إزاي ؟؟

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

أخي السائل إثراءاً للموضوع هذا ملف مرفق به طلبك زيادة في الخير دالة معرفة تعرفك رقم آخر صف في العمود ..

 

First Blank Cell.rar

[Akram Galal]

أخواني الأعزاء

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

حلول رائعة

[أ / محمد صالح]

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

ومن الممكن وضع الكود في حدث عن تنشيط الصفحة

وهذا يعني بمجرد فنح الصفحة يتم الذهاب لأول خلية فارغة في العمود h

Private Sub Worksheet_Activate()
ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select
End Sub

ولكن وضع الكود في حدث تغيير التحديد

لا يفي بالغرض المطلوب