بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد ومميز وكود جديد من مكتبة اكواد اكسيل Excel VBA
كيفية تحديد اول خلية فارغة فى اى عمود فى كل اوراق العمل
او خر صف فية بيانات حتى يتسنى لنا عمل اكواد الترحيل ووضع البيانات تحت بعضها ولكننا لم نسمع ان نحدد الخلية الاولى الفارغة
وهذا سؤال احد الاصدقاء
للاجابة على هذا السؤال نحتاج ان نذكركم بكيفية تحدد اللاست رو Last Row من خلال الكود التالى
Sub lastblankcell()
lastcell =
Cells(Rows.Count, 1).End(xlUp).Row
Cells(lastcell,
1).Select
End Sub
ثم نقوم بتحديد اول خلية فارغة فى العمود من خلال هذا الكود
Sub firsblankcell()
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In ws.Columns(1).Cells
If IsEmpty(cell) = True Then cell.Select:
Exit For
Next cell
End Sub
ويقوم هذا الكود بوظيفة محددة وهى كيفية اختبار الخلايا الفارغة فى العمود من خلال الدالة IsEmpty