پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

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

  1. #1


    آخرین بازدید
    2014/04/19
    تاریخ عضویت
    January 2014
    نوشته ها
    5
    امتیاز
    15
    سپاس
    1
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

    سوال در رابطه با کپی کردن سطرهای چند شیت در اکسل

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

  2. سپاس ها (1)


  3.  

  4. #2


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

    با درود
    اینم باز یه سوال تکراریه
    Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    تو این تاپیک کل اطلاعات از شیت های مختلف یه جا جمع میشه. حالا کافی شما تقریبا شبیه همین خیلی ساده تر عمل کنی تمام
    در پناه خداوندگار ایران زمین باشید و پیروز

  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    2014/04/19
    تاریخ عضویت
    January 2014
    نوشته ها
    5
    امتیاز
    15
    سپاس
    1
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

    ممنون دوست عزیز از راهنمایی شما
    متاسفانه موضوع من کمی فرق داره.
    من فقط 1 سطر از همه شیت ها را می خواهم کپی کنم
    تاپیکی هم که شما فرمودید کار نمیکنه متاسفانه

  7. سپاس ها (1)


  8. #4


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

    باد درود
    نمیدونم چرا تلاش نکردین . اما کد هارو راتون گذاشتم توضیحاتی هم در بخش های کد ها براتون نوشتم . فرض کنید در سه ستون ما نام و نام خانوادگی و کد ملی رو داریم در شیت 1(فرضا در ابتدا خالی) حالا میخوایم از هر چه شیته رنج A2:C7 رو بیاره زیر اینها بزاره . که شما میتونین هر جا رو خواستین عوض کنین . فقط یادتون نره . قبلش اطلاعات شیت جمع اوری پاک میشن و دوباره پر میشن. اگر نمیخواین پاک بشهباید دو خط کد پاک بشه از توی این کد
    کد:
    Sub SummurizeSheets()
    'first deactive the Automatic calculation and screenupdating causing our macro run faster
       With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
        End With
        
    Sheet1.Cells.ClearContents
    Sheet1.Range("A1:C1").Value = Array("National code", "Name and family name", "Locatction") 'header of columns A , B , C
        Dim ws As Worksheet
            For Each ws In ThisWorkbook.Sheets
        With Sheet1
        lastrow1 = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row ' find the last row in sheet1
            End With
        
               If ws.CodeName <> "Sheet1" And ws.Range("A2").Value <> "" Then ' if the sheet codename is not equal to sheet1 and that sheet have a value in range ("A2") ( is not empty ) then select
            ws.Select
            
           
                Range("A2:C7").Select 'change to specific range that you want
        Selection.Copy
                Sheet1.Select
        Range("A" & lastrow1 + 1).Select ' copy this specific range has been mentioned above in first empty row (lastrow pluse 1
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
                 Application.CutCopyMode = False
            End If
        Next ws
        'don't forget to set as defult the calculation and screenupdating
            With Application
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True
        End With
    End Sub
    کد بالا رو توی یه ماژول کپی کن و با یه باتن یا شیپ اجراش کن
    در پناه خداوندگار ایران زمین باشید و پیروز

  9. سپاس ها (4)


  10. #5


    آخرین بازدید
    2014/04/19
    تاریخ عضویت
    January 2014
    نوشته ها
    5
    امتیاز
    15
    سپاس
    1
    سپاس شده
    5 در 4 پست
    تعیین سطح نشده است

    تشکر

    خیلی از لطف شما ممنونم



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

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

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

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

  1. پاسخ ها: 3
    آخرين نوشته: 2 هفته پیش, 23:24
  2. راهنمایی ؟ کپی کردن خودکار از یک شیت به شیت دیگردر اکسل؟
    توسط zareeijavad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 12
    آخرين نوشته: 2020/10/09, 20:28
  3. کپی پیست از یک شیت به شیت دیگر
    توسط aseman در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/07/01, 13:02
  4. کمک ( کپی کردن شیت از یه فایل به فایل دیگه )
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/20, 13:20
  5. ( سوال ) کپی کردن یک ردیف در تمام شیت ها
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/13, 23:49

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

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

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

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

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

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