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

موضوع: کد vba انتقال کد از یک شیت به شیت دیگر ؟

  1. #1


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    کد vba انتقال کد از یک شیت به شیت دیگر ؟

    با سلام و احترام


    بنده در یک شیت برای هزینه هام کد تعریف کردم حالا میخوام وقتی با یک فرم دیگه همین هزینه هام با کد ثبت کنم چه کدی رو در vba باید بنویسم برای کمبوباکسی که هزینه رو فراخوانی میکنه که کد هزینه رو هم نمایش بده و در شیت ثبت هزینه ثبت کنه ؟


    فایل در لینک زیر هست :

    soal
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست


  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    798
    امتیاز
    1667
    سپاس
    591
    سپاس شده
    1,242 در 436 پست
    تعیین سطح نشده است

    سلام
    اینو اضافه کنید
    کد:
    Private Sub CBox2_Change()
    Dim c As Range
    For Each c In Sheet7.Range("b3:b6")
    If CBox2.Text = c Then TextBox1.Value = c.Offset(0, -1)
    Next c
    End Sub


  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط ali.b نمایش پست ها
    سلام
    اینو اضافه کنید
    کد:
    Private Sub CBox2_Change()
    Dim c As Range
    For Each c In Sheet7.Range("b3:b6")
    If CBox2.Text = c Then TextBox1.Value = c.Offset(0, -1)
    Next c
    End Sub
    با سلام و احترام
    ممنونم از پاسخ خوبتون فقط میاره کد هزینه رو ولی در کد ثبت چی اضافه کنم این کدی که آورده رو ثبت کنه؟
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست


  6. #4


    آخرین بازدید
    2019/10/02
    تاریخ عضویت
    January 2017
    محل سکونت
    تهران
    نوشته ها
    85
    امتیاز
    31
    سپاس
    92
    سپاس شده
    21 در 8 پست
    تعیین سطح نشده است

    با سلام و احترام
    با یک خط کد ادرسی با افست به کد در شیت مورد نظر در ثبت فرم درست شد ...ممنونم
    این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست



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

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

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

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

  1. پاسخ ها: 3
    آخرين نوشته: 2024/02/13, 23:24
  2. [حل شده] فراخوانی تعدادی جدول متغیر با رکورد های متفاوت از شیت 1 به شیت 2
    توسط jack007 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/11/05, 21:52
  3. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/06/15, 18:35
  4. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54
  5. کپی از یک شیت به شیت دیگر بدون رویت شیت دوم
    توسط khorasan66 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 3
    آخرين نوشته: 2015/03/04, 22:16

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

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

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

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

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