اخرین سطر - اخرین ستون و .....

[master]

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

z1 = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

میخواستم بدوم کد سوالات زیر چی میشه:
شماره اخرین ستون پر
شماره اخرین ستون پر به شرط اینکه دیگه بعدش همه ستون ها خالی باشن (توی بالایی ممکنه 4 تا ستون پر باشن و بعدش چند تا خالی و دوباره چند تا پر)
همین دو سوال برا سطر

اولین سر یا ستون خالی به شرا اینکه:
1-بعدش دیگه سطر (یا ستون) خالی نباشه
2-ممکنه باشه یا نباشه

ضمنا اگه بخوام به جای شماره ادرس بگیرم چه تغییراتی تو کد ها بدم؟ و اینکه ادرس رو چطوری میده؟(شماره سلول میده مثلا میگه E5 یا اینکه به صورت عددی میده مثلا cells(5,5))
باتشکر

[amir_ts]

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

آخرین ستون دارای اطلاعات ردیف 2
عددی که ستون غیر خالی هست رو نمایش میده.

Col = Cells(2, Columns.Count).End(xlToLeft).Column 

نمایش آدرس ستون غیر خالی

MsgBox Cells(2, Col).Address 

برای ردیف همون فرمول خودتون رو بعلاوه 1 کنید میشه اولین ردیف خالی

[hadi_tt]

جهت پایین+ctrl آخرین سلول موجود در کاربرگ