Akram Galal قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 السلام عليكم ورحمة الله وبركاتة اريد كود يقوم بالذهاب الي أخر خلية في العمود H بمعنى اذا كان العمود H مكتوب فيه حتى الخلية H10 يقوم باذهاب الي الخلية H11 وشكرا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 حضرتك ارفق ملف ولو افتراضى وانا اعمله لحضرتك رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 السلام عليكم اكتب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 بعد إذن أخى الحبيب " سليم " أستخدم هذا الكود فى حدث الصفحة سيحقق المطلوب تقبل تحياتى 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 تقبل تحياتى وشكرا على الملاحظة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 أستاذ جمال : لماذا قمت بربط الكود بحدث الورقة .. كدا دايما التحديد هيكون على آخر خلية في العمود H مجرد سؤال هيشتغل إزاي ؟؟ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 17, 2014 مشاركة قام بنشر نوفمبر 17, 2014 أخي السائل إثراءاً للموضوع هذا ملف مرفق به طلبك زيادة في الخير دالة معرفة تعرفك رقم آخر صف في العمود .. First Blank Cell.rar 1 رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر نوفمبر 18, 2014 الكاتب مشاركة قام بنشر نوفمبر 18, 2014 أخواني الأعزاء جزاكم الله خيرا حلول رائعة رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 18, 2014 مشاركة قام بنشر نوفمبر 18, 2014 ما شاء الله بارك الله لكم ومن الممكن وضع الكود في حدث عن تنشيط الصفحة وهذا يعني بمجرد فنح الصفحة يتم الذهاب لأول خلية فارغة في العمود h Private Sub Worksheet_Activate() ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Select End Sub ولكن وضع الكود في حدث تغيير التحديد لا يفي بالغرض المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان