نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: اصلاح کد

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    اصلاح کد

    سلام
    این کد با همین حالت خوب جواب میده در صورتی که ی ردیف رو در نظر بگیرم
    اما وقتی میخوام چند ردیف رو انجام بده قاطی میکنه و اطلاعات جدید رو روش اضافه میکنه و سلول های کپی شده قبلی رو بهم میریزه


    کد:
    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 مشکل پیش نیاد
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.


  2. سپاس ها (2)


  3.  

  4. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    منظورم اینه که ّرای کد rowچی بنویسم که خودش بخودکار فقط ردیف های خالی رو حذف کنه نه سلول های خالی که باعث به ریختن داده ها بشه


  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    منتظر فایل نمونه هستیم ... دوست عزیز ...
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  7. سپاس ها (1)


  8. #4


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    اینم فایل پیوستی
    کلا میخوام با ی ماکرو همه ردیف هایی که در هر شیت هست رو به شیت جدید انتقال بده
    مثل گزارش گیری منیخوام بشه
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm 1.xlsm اطلاعات (20.6 کیلو بایت, 14 نمایش)


  9. #5


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    بعد از انتقال چطور کنار هم قرار بگیرن ...؟
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/



  10. سپاس ها (2)


  11. #6


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    در زیر هم قرار بگیرن


  12. #7


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    اقا یکی به داد ما برسه



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است