الوقوف على أول خلية فارغه

[Akram Galal]

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

أريد كود يقوم بالوقوف على أول خلية فارغة في العمود A مثلا

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

[حسين مامون]

Sub sel()
Dim lr
lr = Range("a" & Rows.Count).End(xlUp).Row
       Range("a" & lr + 1).Select
End Sub

ضع الماكرو في مديول وابطه بزر على الشيت المراد

[سليم حاصبيا]

لنفرض ان البيانات تبدأ من الخلية A1 بدون فراغات  (حتى ولو كان عندك فراغات يتوقف عند أول فراغ)

جرب هذا الماكرو ( سطر وحيد)

Sub test()
 Range("A2", Range("A1")).End(4).Offset(1).Select
End Sub

 

 

 

[أحمد يوسف]

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

أين الضغط على الإعجاب ؟!💙