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

موضوع: ثبت خلاصه ای از اجزای فاکتور فروش در یک شیت دیگر

  1. #1


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

    Nuclear ثبت خلاصه ای از اجزای فاکتور فروش در یک شیت دیگر

    سلام بر اساتید گرامی
    من یک فایل اکسل با دو سربرگ Factor و Maleyat دارم. مطابق فایل پیوست; می خواهم هر بار که دکمه "ثبت فاکتور" را زدم، خلاصه ای از اطلاعات فاکتور در سربرگ Maleyat ذخیره شود. (در حقیقت سربرگ Maleyat حکم یک دیتابیس را برای من دارد).
    توجه بفرمایید که در یک فاکتور، قطعا مشتریان عوض می شوند و باید با هر بار زدن دکمه "ثبت فاکتور" خلاصه ای از اطلاعات آن مشتری در سربرگ Maleyat ثبت شود.
    چگونه باید این کار را انجام دهم؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.
    ویرایش توسط afshin3a : 2014/12/21 در ساعت 03:07

  2.  

  3. #2


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    بفرماييد دوست عزيز
    لطفا تو شيت ديتابيستون هيچي وارد نكنين. حتي شماره رديف. همه چي خودكار انجام ميشه
    کد:
    Sub sabt()
    'Collect Data:
    Sheet1.Activate
    EI_Name = Range("B1").Value
    EI_Factor = Range("G2").Value
    EI_Date = Range("G1").Value
    EI_Sum = Range("E10").Value
    EI_Maliat = Range("F10").Value
    EI_Count = Range("B2").Value
    'Paste Data:
    Sheet2.Activate
    Range("A1").End(xlDown).Offset(1, 0).Range("A1").Select
    ActiveCell.Value = Selection.Row - 2
    ActiveCell.Offset(0, 1).Value = EI_Name
    ActiveCell.Offset(0, 2).Value = EI_Factor
    ActiveCell.Offset(0, 3).Value = EI_Date
    ActiveCell.Offset(0, 4).Value = EI_Sum
    ActiveCell.Offset(0, 5).Value = EI_Maliat
    Sheet1.Activate
    End Sub



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

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

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

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

  1. قابل توجه اعضای محترم انجمن در خصوص رعایت قوانین
    توسط ~M*E*H*D*I~ در انجمن دفتر مديريت - Management Office
    پاسخ ها: 1
    آخرين نوشته: 2016/03/25, 19:24
  2. کپی خودکار محتوای یک سلول به سلولی در شیت دیگر
    توسط adinehzadeh577 در انجمن موارد متفرقه كاربرد اكسل در حسابداري
    پاسخ ها: 1
    آخرين نوشته: 2014/12/20, 18:47
  3. توضیح کد انتقال اطلاعات به شیت هم نام
    توسط امیر رضا در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2014/04/15, 12:18
  4. [حل شده] آیا می توان نوار شیت ها را مخفی کرد
    توسط hajihadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/03/13, 00:33
  5. کمکــــــــــــــــ !!!چگونه می توان در یک شیت پرتکت شده یک ماکرو اجرا کرد؟
    توسط eham_r1 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2011/11/19, 09:08

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

خلاصه ای از اکسل

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

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

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

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