فایل شما رو دیدم به نظر میرسه مشکلت در تشخیص آخیرن ردیف باشه تابع زیر به صورت کلی آخرین ردیف رو مشخص میکنه در مورد فاکتور 2 یا 6 ردیفه هم میتونی از یک شرط استفاده کنی
کد PHP:
Public Function lastrow()
Dim lrow As Long, lcol As Long, mrow As Long, mcol As Long, i As Integer
Application.ScreenUpdating = True
lcol = Application.Workbooks("leave.xlsm").Sheets("personel").UsedRange.Columns.Count
mrow = 0
For i = 1 To lcol
lrow = Range(Sheet1.Cells(Rows.Count, i), Sheet1.Cells(Rows.Count, i)).End(xlUp).Row
If lrow > mrow Then
mrow = lrow
Else
End If
DoEvents
Next i
lastrow = mrow
End Function
علاقه مندی ها (Bookmarks)