نوشته اصلی توسط
iranweld
شماره سطر آخرین سلول دارای دیتا را تو ستون مورد نظر میده
بسیار بسیار سپاسگذارم دوست گرامی و محترم
در خصوص کپی اطلاعات هم راهنمایی بفرمایید ممنونتون میشم
فایل و کدی که شما لطف فرمودید این است :
کد:
Sub copyErsalruzbiKol()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
k = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1
For i = 2 To Z
If Sheet1.Range("A" & i) <> "" Then
Sheet1.Range("A" & i & ":w" & i).Copy Destination:=Sheet2.Range("A" & k)
k = k + 1
End If
Next
Sheet2.Select
End Sub
فایل و کد بنده((شیت مبدا دارای فرمول است که برای نمونه فرمول ها حذف شده اند))
کد:
Sub copyErsalruzbiKol()
Z = Sheet43.Cells(Sheet43.Rows.Count, "A").End(xlUp).Row
o = Sheet18.Cells(Sheet18.Rows.Count, "A").End(xlUp).Row + 1
For o = 2 To Z
If Sheet43.Range("i" & o) <> "0" Then
Sheet43.Range("A" & o & ":w" & o).Copy Destination:=Sheet18.Range("A" & o)
o = o + 1
End If
Next
Sheet18.Select
End Sub
خطوط فرمان کد شمارو تغییر دادم بر اساس سطر و ستون های فایل اصلی
کد کار نکرد
خطایی نمیده ولی کارهم نمیکنه
ممنون میشم راهنمایی بفرمایید
علاقه مندی ها (Bookmarks)