كود آخر خلية في كل عمود على حدة

**أبو أنس حاجب** · يونيو 3, 2012

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

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

أبو أنس

**طارق محمود** · يونيو 3, 2012

ألسلام عليكم

أخي الحبيب

استخدم هذين الكودين بدلا مما هو موجود بالملف


Sub last()

[A65536].End(xlUp).Offset(1, 0).Select

End Sub


Sub last2()

[B65536].End(xlUp).Offset(1, 0).Select

End Sub

**أبو أنس حاجب** · يونيو 3, 2012

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

أستاذي وسيدي وحبيبي في الله طارق بن محمود لا أعلم أنت الوحيد الذي احتار في الرد عليه ولكن اللهم أجعله مستجاب الدعاء ونور له دربه أين ما كان.

أول شئ عملته بدون تردد أن أدخلت ردك في الملف الأصلي ثقة بالله وبكفاءتك.

أبو أنس

تم تعديل يونيو 3, 2012 بواسطه دغيدى

**أبو أنس حاجب** · يونيو 4, 2012

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

أستاذي وسيدي القاضل لو ممكن أضافة بسيطة على الكود:

وهي بعد أن يتم الأنتقال إلى أول خلية فارغة يقوم الكود بالقفز خطوة واحدة بأتجاه اليسار أو اليمين (أي للخلية المجاورة)

أبو أنس

**طارق محمود** · يونيو 4, 2012

السلام عليكم

بسيطة

غير الصفر إلي 1 في أمري الأوفست أي أن

Offset(1, 0)

تتغير إلي

Offset(1, 1)

في كلا من الكودين

**أبو أنس حاجب** · يونيو 4, 2012

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

أعزك الله وأكرم منزلك في الجنة

أبو أنس

الردود الموصى بها