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

موضوع: انتخاب یک سلول و کپی شدن سطر متناظر آن به شیت های دیگر

  1. #1


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

    Javid Mokhtari به Yahoo ارسال پیام

    انتخاب یک سلول و کپی شدن سطر متناظر آن به شیت های دیگر

    با سلام.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Dim r As Variant
    r = ActiveCell.Row
    Application.Rows( r ).Select
    Selection.Copy
    Sheets(Array("Sheet2", "Sheet3")).Select
    Sheets("Sheet2").Activate
    Application.Rows( r ).Select
    ActiveSheet.Paste
    If ActiveCell.Value <> "" Then
    MsgBox "ÇØáÇÚÇÊ ˜í ÔÏ"
    Else
    MsgBox "ÚÏã ãÍÊæíÇÊ ÏÑ ÓØÑ ÇäÊÎÇÈí"
    End If
    Sheets("Sheet1").Select
    Application.CutCopyMode = False
    Application.Rows( r ).Select
    End Sub
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2

    آخرین بازدید
    2013/02/17
    تاریخ عضویت
    September 2010
    نوشته ها
    3
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: انتخاب یک سلول و کپی شدن سطر متناظر آن به شیت های دیگر

    سلام امیدوارم روش بنده پاسخ گو باشد.


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    a = Target.Row
    f = ActiveSheet.Index
    Rows(a).Select
    Selection.Copy
    b = Sheets.Count
    For i = 1 To b
    If i <> f Then
    Sheets(i).Activate
    Application.Rows(a).Select
    ActiveSheet.Paste
    Selection.Copy
    End If
    Next
    Application.CutCopyMode = False
    End Sub


    در صورت مفهوم نبودن پیغام بگذارید.

  4. #3

    آخرین بازدید
    2020/12/10
    تاریخ عضویت
    April 2019
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    سلام وقت بخیر من هم به این مورد نیاز دارم میشه راهنمایی کنید چجوری از کدی که نوشتین استفاده کنم؟


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

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

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

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

  1. کپی داده های یک فایل اکسل به فایل اکسل جدید
    توسط mohsen_persia در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 6
    آخرين نوشته: 2013/06/18, 09:30
  2. کپی پیست از یک شیت به شیت دیگر
    توسط aseman در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/07/01, 13:02
  3. کمک ( کپی کردن شیت از یه فایل به فایل دیگه )
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/20, 13:20
  4. ( سوال ) کپی کردن یک ردیف در تمام شیت ها
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/13, 23:49
  5. کمک در ماکرو کپی کردن ردیف !!!
    توسط mohebbi_md در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2011/04/08, 17:15

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

کپی کردن یک سلول در سلول شیت دیگر

کپی یک سطر با انتخاب یک سلول در اکسل

کپی یک سطر با انتخاب کد در اکسل

نحوه‌کپی کردن if در اکسل

نحوه کپی کردن محدوده sheet در وبژوال بیسیک

طریقه select کردن شیت در vba

کپی مقدار یک سلول در شیت دیگر

توابع اکسل انتخاب از سلول متناظر

ارتباط سطر در شیتهای اکسل

ارتباط دادن مقدار يك سلول يبه شيت ديگر

یافتن سلول های متناظر در اکسل

جستجوی سطر exceliran.com

پیدا کردن مقادیر مشابه در 2 شیت

پیدا کردن مقدار متناظر با یک سطر در سطر دیگر اکسل

ارتباط يك سلول به سطر در اكسلي ديگر

سلول متناظر در اکسل

خانه هاي متناظر در اكسل

کد کپی سطر اکسل vba

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

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

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