الإنتقال الي اخر خلية

[Akram Galal]

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

الأساتذة الكرام

اريد كود ( زر ) يقوم بالإنتقال إلي الخلية التي بعد أخر خلية بها كتابة في العمود E مثلاً

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

[أبو محمد عباس]

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

الاخ العزيز اكرم جلال  هذا كود للعالم العلامة الاستاذ عبد الله باقشير حفظه الله وجزاه الله خيرا

تقبل فائق احترامي وتقديري

Sub ÇáÎáíÉ_ÇáäÔØÉ()
Dim U As Integer
U = ActiveCell.Row
Dim LastRow As Integer
LastRow = Cells(Rows.Count, "E").End(xlUp).Row + 1
If U = LastRow Then
Range("E7").Select
Else
Range("E" & LastRow).Select
End If
ActiveWindow.View = xlNormalView
End Sub

تم تعديل فبراير 12, 2014 بواسطه أبو محمد عباس

[احمد عبد الناصر]

السلام عليكم

 

زيادة في الخير 

range("e"&range("e"&rows.Count).End(xlUp).Row+1)

[أبو محمد عباس]

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

الاستاذ والاخ الحبيب احمد عبد الناصر جزاك الله خيرا وبارك فيك

استاذنا الفاضل حاولت ان استخدم الكود لكن لم استطيع عمله هل يمكن الكود كاملا

زادك الله علما وشرفا

تقبل فائق احترامي وتقديري

[احمد عبد الناصر]

معذرة هذا بعد التعديل

range("e"&range("e"&rows.Count).End(xlUp).Row+1).Select

تحياتي

[أبو محمد عباس]

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

الاستاذ الفاضل احمد عبد الناصر وفقك الله ورعاك

وزادك من الخيرات كثيرا

تقبل فائق احترامي وتقديري