هل يمكن فتح مستندات إكسل على أول صف فارغ ؟؟

[halwim]

بسم الله الرحمن الرحيم

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

في المرفق أعددت جدول قمت بتعبأة صفوفه إلى الصف رقم 99 ثم عدت إلى (أول الصفحة) ثم عملت حفظ للمستند وخرجت منه .

المطلوب / عند فتح الملف يتم التركيز على أول صف فارغ وهو A99 لكي نتمكن من تعبأة الباقي بيسر وسهولة .

وهكذا في كل مرة يتم الفتح على أول صف فارغ .

وأريد إرشادي إلى مفتاح الإختزال أو الإختصار من لوحة المفاتيح لهذه المهمة ، ولكن رغبتي الأساسية هي إيجاد حل إما بكود أو بطريقة غير مفاتيح الكي برد.

تحياتي - halwim

_____________________.rar

تم تعديل أكتوبر 31, 2006 بواسطه halwim

[علي السحيب]

الكود التالي ينفذ لك ما تريد،

Private Sub Workbook_Open()
     
Sheet1.[A1].End(xlDown).Offset(1, 0).Select

End Sub

ولتنفيذ هذه المهمة عن طريق لوحة المفاتيح نستخدم زر Ctrl + سهم الأسفل للوصول لآخر خلية غير فارغة .. ثم نضغط مفتاح سهم الأسفل للوصول لأول خلية فارغة.

شاهد المرفق،

_____________________.rar

[halwim]

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

أستاذي الفاضل أباحسين ،، دعني أولا أشكرك ،

ثانيا : ألا يمكن جعل الكود يفتح على ( آخر صف فارغ ) ، وليس ( أول صف فارغ ) وشتان مابين الطريقتين ، ويكمن الفرق في ما لوقمنا بتعبأة 500 صف مثلا ثم قمنا بإدراج صف فارغ بين صف رقم 6 وصف رقم 7 فإنه من المفترض عندما نفتح الملف يتم التركيز على صف 501 ولكنه للأسف في هذه الحالة سوف يكون التركيز على صف 7 لذل أود جعل الكود يقف عند آخر صف فارغ ، وليس أول صف لتفادي هذه المشكلة .

ثالثا : لاحظت وجود زر أبيض على الصف 11 لماذا ؟ ربما يبدو أنه ماكرو ولكن لايعمل !

تحياتي

[علي السحيب]

في هذه الحالة يتم تغيير الكود إلى التالي:

Private Sub Workbook_Open()
     
Sheet1.[A65536].End(xlUp).Offset(1, 0).Select

End Sub

شاهد المرفق،

______________________2.rar

[halwim]

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

شكرا لك يا أستاذ علي ، أطال الله في عمرك ومدك في رزقك .

تحياتي