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

موضوع: جستجو بر اساس یک فیلد و کپی اطلات

  1. #1

    آخرین بازدید
    11 _ 03 _ 2013
    تاریخ عضویت
    January_2013
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست

    جستجو بر اساس یک فیلد و کپی اطلات

    سلام خسته نباشید
    باور کنید وقتی این سایتو پیدا کردم از خوشحالی داشتنم بال درمیوردم
    من یه فایل اکسل درست کردم که کارش صدور فاکتوره
    3تا شیت داره که هر شیت مربوط به مشتری های یک ویزیتوره
    شیت چهارم رو میخام جوری باشه که وقتی با وارد کردن شماره فاکتور، جستجو رو تویه این 3 شیت انجام بده و تمامی اطلاعات اون فاکتور رو کپی کن.
    فایل رو ضمیمه کردم.
    وقتی شماره فاکتور رو تویه قسمت قرمز رنگ وارد کردیم قسمت هایی که زرد شدن عینن منتقل بشن.
    دستتون درد نکنه
    ok30hen@yahoo.com
    این ایمیلمه اگه درستش کردید واسم ایمیل کنید.

    نمیدونم چه جوری فایلو ضمیمه کنم!
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    03 _ 04 _ 2017
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    653
    سپاس
    29
    سپاس شده
    799 در 342 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: جستجو بر اساس یک فیلد و کپی اطلات

    با درود فراوان

    حجم فایل زیاد بود براتوون میل کردم کدش هم اینجا قرار میدیم برای دیگر دوستانی که سئوال مشابه به این دارند

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i, cod, j
    Dim c, firstAddress
    If Target.Address = "$I$3" Then

    cod = Sheet3.Range("i3").Value
    For i = 1 To Sheets.Count

    With Sheets(i).Range("i1:i5000")

    Set c = .Find(cod, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If c.Offset(0, -1) = Sheet3.Range("h3") Then

    For j = 0 To 38
    Sheet3.Range("i3").Offset(2 + j, -6).Value = c.Offset(2 + j, -6).Value
    Sheet3.Range("i3").Offset(2 + j, -1).Value = c.Offset(2 + j, -1).Value
    Next j
    Exit Sub
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    End With

    Next i
    End If
    End Sub


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

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

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

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

  1. کپی کردن یک رنج خاص از اعداد
    توسط khorasan66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 11 _ 03 _ 2013, 16:39
  2. جستجو بر اساس یک فیلد و کپی اطلات
    توسط gagaloos در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 19 _ 01 _ 2013, 16:36
  3. کمک در ماکرو کپی کردن ردیف !!!
    توسط mohebbi_md در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 08 _ 04 _ 2011, 16:15
  4. نحوه کپی کردن نوار منوی دسترسی سریع در اکسل و بقیه برنامه ها
    توسط behrangbinesh در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 0
    آخرين نوشته: 16 _ 08 _ 2010, 09:42

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

جستجو بر اساس یک فیلد و کپی اطلاعت

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

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