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

موضوع: ثبت اختصاصي اطلاعات يك شيت در شيت ديگر منطبق بر id

  1. #1


    آخرین بازدید
    2019/04/01
    تاریخ عضویت
    January 2014
    نوشته ها
    55
    امتیاز
    32
    سپاس
    39
    سپاس شده
    22 در 9 پست
    تعیین سطح نشده است

    confused ثبت اختصاصي اطلاعات يك شيت در شيت ديگر منطبق بر id

    سلام اساتيد گرامي!
    طبق فايل پيوست من بايد ماكرويي بنويسم كه در شيت 1 هر id ايي كه وارد كردم، در شيت 2، همان id را پيدا كند و در ركورد متناظرش آنجا كپي شود. اگر قبلا اطلاعاتي در آن ركورد متناظر (شيت 2) وارد شده بود، مسيج باكسي نمايش داده شود كه: "قبلا اطلاعات وارد شده است" و اطلاعات ثبت نگردد. چگونه اين ماكرو رو بايد نوشت؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm ID.xlsm اطلاعات (26.3 کیلو بایت, 23 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    سلام
    اول باید ردیف مورد نظر رو پیدا کنید بعد اسم و فامیل متناظر با اون رو فراخوانی کنید .
    یه چیزی شبیه به این میشه :
    کد PHP:
    Private Sub CommandButton1_Click()
    On Error Resume Next
    lastrow 
    Sheet2.Range("A:A").Find(What:=(Sheet1.Range("b1").Value), After:=[a1], SearchOrder:=xlByRowsSearchDirection:=xlPreviousLookAt:=xlWhole).Row
    Sheet2.Range("b" lastrow).Value
    Sheet2.Range("c" lastrow).Value
    If "" And "" Then
    Sheet2
    .Range("b" lastrow).Value Sheet1.Range("b2").Value
    Sheet2
    .Range("c" lastrow).Value Sheet1.Range("b3").Value
    MsgBox 
    "ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"
    Else
    MsgBox "ÇØáÇÚÇÊí ÞÈáÇ ËÈÊ ÔÏå ÇÓÊ ÈÇ ãÔÎÕÇÊí ÔÇãá" vbNewLine vbNewLine "First Name : " vbNewLine "Last Name : " c
    End 
    If
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm ID.xlsm اطلاعات (34.2 کیلو بایت, 25 نمایش)



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

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

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

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

  1. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2019/04/09, 22:37
  2. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  3. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/19, 00:27
  4. اولين سوال من(حذف قابليت cut در محدوده خاصي از سلولها)
    توسط samadi1973 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 11
    آخرين نوشته: 2012/04/09, 18:46
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2011/02/13, 14:42

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

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

کلمات کلیدی این موضوع

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

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

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