سلام
این کد با همین حالت خوب جواب میده در صورتی که ی ردیف رو در نظر بگیرم
اما وقتی میخوام چند ردیف رو انجام بده قاطی میکنه و اطلاعات جدید رو روش اضافه میکنه و سلول های کپی شده قبلی رو بهم میریزه
کد:
Sub al()Dim a
Dim b
a = Range("A1")
b = Range("A3:I3")
Sheets("NOT").Select
Rows("1:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheet17.Range("A1") = a
Sheet17.Range("A2:L2") = b
این کد سالمه میخوام مثلا از رنج A3:I3 رو به A3:I9 تغییر بدم دیگه کار نمیکنه .
ردیف هام ممکنه تا ردیف 10 پر باشه ممکنه نباشه چکار کنم که این مشکل حل بشه و فقط ردیف هایی که پر هستن رو انتقال بده
ممکنه ی شیت 10 تا ردیف پر داشته باشه و شیت دیگه 1 که بخوام انتقال بدم به شیت NOT مشکل پیش نیاد
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)