[حل شده] توضیح فرمول و رفع ایراد

[alfa]

سلام
این حط دستور در فایل خودش کار میکنه ولی وقتی تو فایلی جدید مینویسم ایرورerror میده چرا؟
توضیح خود دستور را هم میشه بدونم؟

last_row = Application.Match(Application.Rept("z", 255), Sheet1.Columns(1), 1)
'---------------------------
For i = 1 To last_row

[iranweld]

با سلام

از این کد ساده تر برای بدست آوردن آخرین سطر حاوی دیتا در ستون A در شیت یک استفاده کنید. برای ستونهای دیگر حرف A را به نام ستون مورد نظر تغییر دهید

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row 

یا

 Z1 = Sheets("نام شیت").Cells(Sheets("نام شیت").Rows.Count, "A").End(xlUp).Row 

[alfa]

بسیار ممنون