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

موضوع: جابجایی اطلاعات شیت ها

  1. #1


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    جابجایی اطلاعات شیت ها

    سلام. وقت بخیر.
    در فایل پیوست در شیت 1 اپراتور در سلول های سبز رنگ دیتا میده و در سلول های زرد رنگ ( هاید شده است ) یک سری محاسبات برروی دیتاها اعمال میشه و سپس اطلاعات زرد رنگ به شیت 2 انتقال پیدا میکنه. مشکلی که هست اینه که ممکنه اپراتور فقط 2 یا 3 ردیف اطلاعات رو پرکنه. ماکرویی که در فایل وجود داره چون محدوده زرد رنگ فرمول هس کل محدوده رو انتقال میده. چطور میشه هوشمند کرد که تاجایی که دیتا وجود داره این کار صورت بگیره؟
    سپاس
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

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

    از کد ذیل نیز میتوانید الگو بگیرید چنانچه دیتای مورد نظر زرد رنگ در ستون A باشد کدهای ذیل آخرین ردیف سلول پر را برای شما بدست میاورد

    کد PHP:
    Sub test()

    Sheet1.Cells(Sheet1.Rows.Count"A").End(xlUp).Row

    For Z To 1 Step -1

    If Range("A" i) <> "" Then

    MsgBox i

    Exit For

    End If

    Next

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xls Book1.xls اطلاعات (41.5 کیلو بایت, 17 نمایش)
    ویرایش توسط iranweld : 2016/04/07 در ساعت 13:44


  4. #3


    آخرین بازدید
    2021/04/26
    تاریخ عضویت
    February 2010
    محل سکونت
    تهران-مشهد-عسلویه
    نوشته ها
    86
    امتیاز
    66
    سپاس
    67
    سپاس شده
    63 در 31 پست
    تعیین سطح نشده است

    فایل پیوست شد
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip vb1.zip اطلاعات (15.2 کیلو بایت, 24 نمایش)

  5. #4


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    از این کد استفاده کنید دوست عزیز

    کد:
    Sub Macro1()
    For Each c In Range("M5:M11")
        If c.Value = "" Then
            lastrow = c.Row - 1
            Exit For
        End If
    Next c
    If lastrow > 4 Then
        Range("M5:R" & lastrow).Copy
        Sheets("Sheet2").Range("B1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
        Sheets("Sheet1").Range("C5:H11").ClearContents
    End If
    End Sub


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

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

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

موضوعات مشابه

  1. راهنمایی ؟ کپی کردن خودکار از یک شیت به شیت دیگردر اکسل؟
    توسط zareeijavad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 12
    آخرين نوشته: 2020/10/09, 20:28
  2. پاسخ ها: 3
    آخرين نوشته: 2015/09/26, 13:37
  3. راهنمایی جهت ثبت مقادیر در شیت دیگر
    توسط khorasan66 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 2
    آخرين نوشته: 2014/11/06, 11:17
  4. جابه جایی بین شیت های قفل شده
    توسط ali.b در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2014/07/27, 14:42

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

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

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

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

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

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