صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 12

موضوع: انتقال چند سطر از یک شیت به شیت دیگر

  1. #1


    آخرین بازدید
    2013/06/05
    تاریخ عضویت
    May 2013
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    انتقال چند سطر از یک شیت به شیت دیگر

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

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    RE: انتقال چند سطر از یک شیت به شیت دیگر

    با درود
    نمونه فایل

  4. #3


    آخرین بازدید
    2013/06/05
    تاریخ عضویت
    May 2013
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: انتقال چند سطر از یک شیت به شیت دیگر


  5. #4


    آخرین بازدید
    2013/06/05
    تاریخ عضویت
    May 2013
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: انتقال چند سطر از یک شیت به شیت دیگر

    : (
    هیچکس نیست؟

  6. #5


    آخرین بازدید
    2017/01/31
    تاریخ عضویت
    April 2013
    محل سکونت
    بابل
    نوشته ها
    22
    امتیاز
    23
    سپاس
    2
    سپاس شده
    44 در 10 پست
    تعیین سطح نشده است

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

    RE: انتقال چند سطر از یک شیت به شیت دیگر

    سلام
    درخواست شما انجام شد.لطفا به فایل پیوست مراجعه بفرما.

    http://s4.picofile.com/file/77588310...nbar.xlsm.html

  7. #6


    آخرین بازدید
    2013/06/05
    تاریخ عضویت
    May 2013
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    RE: انتقال چند سطر از یک شیت به شیت دیگر

    کد:
                If Range("d2").Interior.ColorIndex = 35 Then c.Offset(0, 4).Value = ChrW(10003)
                If Range("d2").Interior.ColorIndex = 3 Then c.Offset(0, 5).Value = ChrW(10003)
    ضمن تشکر. لطفا راجع به این قسمت برام کمی توضیح بدید
    ممنون می شم.

  8. #7


    آخرین بازدید
    2017/01/31
    تاریخ عضویت
    April 2013
    محل سکونت
    بابل
    نوشته ها
    22
    امتیاز
    23
    سپاس
    2
    سپاس شده
    44 در 10 پست
    تعیین سطح نشده است

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

    RE: انتقال چند سطر از یک شیت به شیت دیگر

    سلام
    دو تا کدی را که مدنظر شماست، این کار را انجام می دهد:
    اگر انتقال اطلاعات از شیت ورود یراق آلات باشد با تشخیص رنگ سلول D2 در این شیت، مقادیر را در گردش انبار در قسمت ستون مورد نظر علامت تیک که با کد (ChrW(10003 ایجاد می شود را قرار می دهد.
    همچنین در شیت خروج یراق آلات که سلول D2 قرمز رنگ می باشد تشخیص می دهد و در شیت گردش انبار علامت تیک را در ستون مربوطه قرار می دهد.
    امیدوارم که توضیحات مفید واقع شده باشد.
    با سپاس

  9. #8

    آخرین بازدید
    2019/07/17
    تاریخ عضویت
    August 2014
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    یک شیت دارم که دارای ردیف است . از 1 تا 10. میخواستم به صورت خورکار ردیف 1 بره به شیت 2،ردیف 2 بره به شیت3 و........

  10. #9


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

    نقل قول نوشته اصلی توسط سید حمید اقوامی نمایش پست ها
    یک شیت دارم که دارای ردیف است . از 1 تا 10. میخواستم به صورت خورکار ردیف 1 بره به شیت 2،ردیف 2 بره به شیت3 و........

    سلام دوست عزيز
    نميدونم شما ميخواين كاملا از ليست اوليه حذف كنيد يا نه ولي فكر كنم اين كد حدود كار رو دستتون مياره
    کد:
    For i = 1 To 10
        Rows(i).Copy
        Sheets(i + 1).Select
        Rows("1:1").Select
        Selection.Insert Shift:=xlDown
        Application.CutCopyMode = False
    next i

  11. سپاس ها (2)


  12. #10


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

    کد:
    Sub Button1_Click()
    On Error Resume Next
    Dim c As Range
    Dim d As Range
    For i = 1 To Sheets.Count
        For Each c In Sheet1.Range("D3:D200")
            If c.Value = Sheets(i).Name Then
                Range("A3:C3").Select
                Selection.Copy
                Sheets(i).Activate
                Range("a1").Select
                Selection.End(xlDown).Select
                ActiveCell.Offset(1, 0).Range("a1").Select
                Selection.PasteSpecial Paste:=xlPasteValues
                Sheet1.Rows(c.Row).ClearContents
                Application.CutCopyMode = False
                Sheet1.Select
            End If
        Next c
    Next i
    Sheet1.Select
    Range("a3").Select
    End Sub
    َما با این کد میتونید اطلاعاتتون رو بر حسب رنجی که تعریف میکنید به هر شیتی که هم نام با سلول مورد نظرتون باشه انتقال بدین
    یعنی اگه یک ردیفی رو پر کردین و در سلولی مشخص نوشتین 1 تمام محتویات ردیف رو به شیتی که نامش 1 باشه انتقال میده


  13. سپاس ها (1)



صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

  1. پاسخ ها: 3
    آخرين نوشته: 2024/02/13, 23:24
  2. پرسش کپی محتویات یک شیت به شیت دیگر با قابلیت اپدیت
    توسط miillad در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2019/05/16, 13:05
  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

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

چگونگی انتقال داده های یک سطر به سطر دیگر در اکسل

برای انتقال متن از یک سطر به سطر دیگر

انتقال متن از یک سطر به سطر دیگر

انتقال مقدار يك سلول به شيت ديگر

انتقال بعضی از داده ها در اکسل

فرمان‌ انتقال یک سطر از یک شیت

چند شیت ازیک میز

انتقال اطلاعات از یک شیت به شیت دیگرد با نام یکسان

انتقال یک سطر در اکسل به شیت دیگر و حذف آن

انتقال چند سطر از یک شیت به شیت دیگر

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

نحوه انتقال بعضی ازردیفهای یک شیت به شیت یگرهمزمان باثبت درشیت

https:forum.exceliran.comshowthread.php2388-انتقال-چند-سطر-از-یک-شیت-به-شیت-دیگر

انتقال اطلاعات از یک جدول اکسل به اکسل حدیدانتقال یک ردیف درچندستون دراکسلآموزش آوردن اطلاعات یک ستون از شیت به شیت دیگرروش انتقال ردیف دراکسلجستجوی شماره کارگزینی یک نفر از چندین شیت و انتقال به یک شیت استفاده از سلولهاي يك شيت در شيت ديگردر اکسل یک ستون را در شیت دیگر به صورت سطر دراوردنانتقال مطالب یک سطر به صفحه دیگر در اکسلوارد کردن اطلاعات در بک شیت و ذخیره در شیت دبگر اضافه کردن چند سطر از یک شیت در شیت دیگرانتقال مجموع یک ستون به سلول شیت دیگر در اکسل مراحل ایجاد جدول در اکسل کپی شده از شیت 1 به شیت 2

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

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

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