بروز رسانی کدنویسی در اکسل بدون درک کردن باموس

**M_ExceL** · 2018/05/16, 03:27

نوشته اصلی توسط سهیل نصرت آبادی1

زمانیکه در شیت 2-96 بعد از ردیف 1 یه دونه ردیف جدید اضاف میکنم ومحتوای اون ردیف وپر میکنم و بعد رو شماره درس که دوبارکلیک میکنم تو شیت سه اطلاعات کپی میشه اما اون ردیف جدیدی که بین اون ردیفهای موجود در شیت
96-2 که اضاف کردم و نمایش نمیده و باید کدها رو مجددا درک کنم تو شیت 3 که نمایش بده میشه راهنمایی کنید؟
یعنی هر ردیف جدید که بین ردیفهای موجود در شیت 2-96 اضاف میشه نمایش نمیده و باید کدها در شیت 3 مجدا درک بشه یا بروز رسانی بشه

سلام
علت این مشکل این هست که وقتی شما ردیف جدید می خواید ایجاد کنید روی شماره ردیف راست کلیک میکنید سپس insert را انتخاب می کنید
برای ایجاد ردیف روی یکی از سلول هایی که در ردیف مورد نظر قرار دارد راست کرده سپس گزینه insert را انتخاب کنید کادر insert باز خواهد شد
گزینه entire row را انتخاب کنید سپس روی ok کلیک کنید تا ردیف ایجاد شود.
موفق باشید ..

**سهیل نصرت آبادی1** · 2018/05/18, 01:03

سلام ممنون از پاسختون اما من دنبال یه کد هستم که کدها رو اپدیت کنه
میشه کمکم کنید ممنون

**M_ExceL** · 2018/05/18, 01:27

نوشته اصلی توسط سهیل نصرت آبادی1

سلام ممنون از پاسختون اما من دنبال یه کد هستم که کدها رو اپدیت کنه
میشه کمکم کنید ممنون

سلام
بله از طریق کد نویسی هم میشه انجام داد
ولی قسمت کدهای فایل شما توسط طراح فرم رمزگذاری شده لذا جهت مشاهده و تغییر کد ها نیاز به رمز هست.

**سهیل نصرت آبادی1** · 2018/05/18, 01:41

ممنون کد فایل برداشته شد
سپاس از همکاری شما دوست گرامی

فایل های پیوست شده

test.xls (155.5 کیلو بایت, مشاهدات 7)

**M_ExceL** · 2018/05/18, 11:21

نوشته اصلی توسط سهیل نصرت آبادی1

ممنون کد فایل برداشته شد
سپاس از همکاری شما دوست گرامی

سلام
خواهش میکنم
یک ماژول ایجاد کنید سپس این کد را درون آن پیست کنید سپس یک button "انتقال" جدید برای اجرای این کد ایجاد کنید

کد:

Sub autofillrng()
    Sheets("Sheet3").Select
    Range("A25:I25").Select
    Selection.AutoFill Destination:=Range("A25:I34")
    Range("A25:I34").Select
    Range("A25").Select
End Sub

موفق باشید

فایل های پیوست شده