پرش به اولین سلول خالی از ستون دلخواه در اکسل با یک کلیک

پرش به اولین سلول خالی در اکسل چه کاربردی داره ؟

فرض کنید دیتای حجیمی دارید که هر روز و در ساعتهای مختلف باید دیتای جدید بهش اضافه کنید ، یک راه اینه که به ستون دلخواه برید و با زدن کلیدهای Ctrl ArrowDown ( کلید کنترل را نگه داشته و فلش رو به پائین کیبورد را بزنید ) و به آخرین سلول ستون جاری انتقال پیدا کنید و به این ترتیب یک سط پائین تر میشه اولین سلول خالی فایل شما تو ستون انتخابی .

اما راه دیگه ای وجود داره که خیلی سرع تر و البته حرفه ای تر هست و اون هم استفاده از کد نویسی و یا ایجاد ماکرو هست .

پرش به اولین سلول خالی اکسل

برای استفاده از ماکرو برای پرش به اولین سلول خالی اکسل مراحل زیر را انجام دهید .

از منوی بالای اکسل و تب Insert یکی از Shape ها رو به دلخواه انتخاب کنید و در قسمت دلخواه شیت خودتون قرار بدین .

انتخاب Shape دلخواه اکسل

روی Shape ایجاد شده راست کلیک کنید و گزینه Assign Macro رو انتخاب کنید .

اولین سلول خالی در اکسل

از پنجره ای که مثل تصویر زیر باز میشه گزینه New رو انتخاب میکنید که وارد محیط کد نویسی میشه .

ایجاد ماکرو جدید در اکسل

حالا کد زیر رو کپی کنید و در قسمت خالی آماده کدنویسی قرار بدین .

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

کد بالا باعث میشه که هر وقت روی Shape کلیک کنید به اولین سلول خالی ستون اول از شیت جاری منتقل بشید ، حالا یه سوال پیش میاد که اگه خواستیم به عنوان مثال به اولین سلول خالی ستون دوم از شیت دیگه ای پرش کنیم چکار باید کنیم .

جواب خیلی سادست کد بالا رو به شکل زیر تغییر میدید.

Dim ws As Worksheet
Set ws = Sheets(“Sheet2”)
For Each cell In ws.Columns(2).Cells
If IsEmpty(cell) = True Then cell.Select: Exit For
Next cell

حالا این کد باعث میشه که کاربر به اولین سلول خالی از ستون B توی Sheet2 هدایت بشه که با تغییر نام دادن Sheet2 به نام دلخواه میتونید کد رو تغییر بدین.