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

موضوع: راهنمایی جهت کپی و انتقال یک range

  1. #1


    آخرین بازدید
    2023/12/21
    تاریخ عضویت
    June 2012
    نوشته ها
    111
    امتیاز
    20
    سپاس
    30
    سپاس شده
    20 در 13 پست
    تعیین سطح نشده است

    راهنمایی جهت کپی و انتقال یک range

    سلام
    یک جدول مشخصات فردی در SHEET3 دارم که در ستون A شماره تلفن های همراه و ثابت ثبت شده اند
    یک دستور لازم دارم که ردیفی که شماره تلفن های همراه را به SHEET2 منتقل کند
    دستور برای انتقال اشکال دارد (( Sheet3.Range("A(c.Value):M(c.Value)").Value ))
    Dim c
    k2 = Cells(Rows.Count, "A").End(xlUp).Row
    For Each c In Sheet3.Range("A2:A" & k2)
    If c > Sheet1.Range("L7") And c < Sheet1.Range("L8") Then
    Sheet2.Range(Sheet2.Range("A2").End(xlDown).Offset (1, 0), Sheet2.Range("A1").End(xlDown).Offset(1, 12)) = Sheet3.Range("A(c.Value):M(c.Value)").Value
    End If
    Next
    لطفا راهنمایی نمائید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2019/04/13
    تاریخ عضویت
    September 2014
    نوشته ها
    38
    امتیاز
    22
    سپاس
    6
    سپاس شده
    12 در 9 پست
    تعیین سطح نشده است

    سلام
    ملاحظه بفرمایید
    کد:
    Sub CopyPaste()
        Sheets("Sheet3").Select
        Range("A1").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets("Sheet2").Select
        Range("A1").Select
        ActiveSheet.Paste
        Columns("A:A").EntireColumn.AutoFit
        Range("A1").Select
        Sheets("Sheet3").Select
        Application.CutCopyMode = False
        Range("A1").Select
    End Sub

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    لطفا نمونه فایل ضمیمه کنید .

    موفق باشید میر


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

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

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

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

  1. چطور چند سلول مرج شده را کپی کنم در سلول هایی که مرج نشدن؟؟!!
    توسط mooli در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/09/11, 07:15
  2. پرسش چگونگی کپی سلول هایی با یک کاراکتر مشترک در یک شیت
    توسط lejeuner در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 7
    آخرين نوشته: 2017/01/14, 20:01
  3. پاسخ ها: 3
    آخرين نوشته: 2016/08/01, 12:00
  4. [حل شده] range یک محدوه با کلیک
    توسط khorasan66 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 5
    آخرين نوشته: 2015/08/26, 13:43
  5. پاسخ ها: 5
    آخرين نوشته: 2014/06/02, 14:47

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

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

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

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

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