جایگزینی برای end(xldown)

[daghyad]

میشه با دستور (مثلا اخرین سطر حاوی داده در ستون a)

dim r as long
r=cells(rows.count,"a").end(xlup).row 

شماره اخرین سطر حاوی داده را پیدا کرد
و بعد یه دیتابیس set کرد و با for eachتوی این دیتا بیس پیمایش انجام داد

dim mydatabase as range
set mydatabase =sheet1.range("a1:g" & r) 

و بعد نوشت

for each c in mydatabase
if c....then 

برای پیدا کردن اخرین ستون حاوی داده توی سطر دوم می نویسیم:

Sub LastColumnWithData_xlToLeft()


Dim lastColumn As Integer


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


MsgBox lastColumn

 

End Sub