ادراج خط في اخر صف مستخدم

[ماجدجلال]

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

وكل عام وانتم بالف خير وصحة 

اخوان الاعزاء   الملف المرفق به نطاق فية بيانات والمطلوب هو اضاف كود يقوم بادراج خط في اخر صف موجود فية بيانات كدليل علي انتهاء الكتابة وعلي ان هذا اخر شي مكتوب 

وشكرا لكم 

 

109.zip

[عبدالله باقشير]

السلام عليكم

 

جرب هذا

Sub Macro1()
With Range(Range("A5"), Range("A5").End(xlDown)).Resize(, 9).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlMedium
End With
End Sub

تحياتي

[ماجدجلال]

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

هذا هو المطلوب شكرا لك استاذ عبدالله 

شكرا جزيلا وبارك الله فيك 

[ماجدجلال]

ممكن سؤال 

الكود السابق للاستاذ عبدالله كان ممتاز جدا 

ولكن احب اضيف تعديل بسيط جدا وهو ان يكون خلية الانطلاق هي الخلية   I5    بدلا من الخلية A5   فما هو التعديل الذي يتم تغيرة في الكود  

لانني غيرت بدلا من الرقم تسعة غيرت -9   و لم ينجح الكود

ارجو المساعدة وشكرا لكم 

[عبدالله باقشير]

السلام عليكم

 

ممكن سؤال 

الكود السابق للاستاذ عبدالله كان ممتاز جدا 

ولكن احب اضيف تعديل بسيط جدا وهو ان يكون خلية الانطلاق هي الخلية   I5    بدلا من الخلية A5   فما هو التعديل الذي يتم تغيرة في الكود  

لانني غيرت بدلا من الرقم تسعة غيرت -9   و لم ينجح الكود

ارجو المساعدة وشكرا لكم 

 

استبدل السطر

With Range(Range("A5"), Range("A5").End(xlDown)).Resize(, 9).Borders(xlEdgeBottom)

بهذا السطر

With Cells(Cells(Rows.Count, "i").End(xlUp).Row, "a").Resize(1, 9).Borders(xlEdgeBottom)

تحياتي

[ماجدجلال]

شكرا جزيلا لك استاذي العزيز

ادعوا الله تعالي لك بالتوفيق و السعادة

 

 

ما هو الفرق بين range    cells؟