پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

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

  1. #1


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,063
    امتیاز
    2371
    سپاس
    1,348
    سپاس شده
    1,841 در 553 پست

    jansiz hayat به 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

    آخرین بازدید
    17 _ 02 _ 2013
    تاریخ عضویت
    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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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