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

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

  1. #1

    آخرین بازدید
    2013/03/11
    تاریخ عضویت
    January 2013
    نوشته ها
    2
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

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

  2.  

  3. #2


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    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
    آخرين نوشته: 2013/03/11, 17:39
  2. جستجو بر اساس یک فیلد و کپی اطلات
    توسط gagaloos در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/01/19, 17:36
  3. کمک در ماکرو کپی کردن ردیف !!!
    توسط mohebbi_md در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2011/04/08, 17:15
  4. نحوه کپی کردن نوار منوی دسترسی سریع در اکسل و بقیه برنامه ها
    توسط behrangbinesh در انجمن ترفندهای اکسل Excel Tricks
    پاسخ ها: 0
    آخرين نوشته: 2010/08/16, 10:42

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

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

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

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

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