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

موضوع: مشکل کپی اطلاعات یک سطر اکسل در صورت برقراری شرط در شیت دیگر

  1. #1


    آخرین بازدید
    2016/08/26
    تاریخ عضویت
    April 2014
    نوشته ها
    14
    امتیاز
    11
    سپاس
    9
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    مشکل کپی اطلاعات یک سطر اکسل در صورت برقراری شرط در شیت دیگر

    مشکل کپی اطلاعات یک سطر اکسل در صورت برقراری شرط در شیت دیگر؟سلام دوستان کسی راه حلی برای این مشکل داره؟هرچی پست بود جستجو کردم چیزی گیرم نیامد.فایل نمونه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx Book1.xlsx اطلاعات (11.8 کیلو بایت, 29 نمایش)

  2.  

  3. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    درود

    میتونی از کد لینک زیر ایده بگیری


    کامنت گزاری این کد لططططططططططططططفا ؟ @@




  4. #3


    آخرین بازدید
    2016/08/26
    تاریخ عضویت
    April 2014
    نوشته ها
    14
    امتیاز
    11
    سپاس
    9
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    تشکر مهدی جان

    تشکر مهدی جانخوب متوجه نشدم اگر نمونه ای باشه معرفی کنی ممنون می شممن اکسل بلدم ولی نه زیاد.....

  5. #4


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

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




  6. #5


    آخرین بازدید
    2016/08/26
    تاریخ عضویت
    April 2014
    نوشته ها
    14
    امتیاز
    11
    سپاس
    9
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    ممنون از راهنمایی شما...

    من روش کار میکنم خبر میدم....بازهم ممنون از وقتی که گذاشتی...

  7. سپاس ها (1)


  8. #6


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط goblinup نمایش پست ها
    من روش کار میکنم خبر میدم....بازهم ممنون از وقتی که گذاشتی...

    ابتدا شیت هایی که ایجاد کردی جز شیت اصلی حذف کن

    با alt+f11 وارد محیط vba میشی

    یک ماژول ایجاد کن


    و کد زیر رو کپی کن
    کد PHP:
    Sub test()
    Application.ScreenUpdating False
    Dim c 
    As Range
    For Each c In Sheet1.Range("A2:A13000")
        
    Dim wsm
        
    For Each ws In Worksheets
        a 
    c.Value
        m 
    0
            
    If ws.Name c.Offset(04).Value Then
            m 
    1
            
    Exit For
            
    End If
        
    Next
        
        
    If (<> 0Then
       
        
    Else
            
            
            If 
    c.Offset(04) <> "" Then
                
                    Sheets
    .Add After:=Sheets(Sheets.Count)
                    
    Application.ActiveSheet.Name c.Offset(04).Value
                    Dim n
                    n 
    0
                    Dim cb 
    As Range
                    
                    Sheets
    (c.Offset(04).Value).Range("a2").Offset(00).Value "ÑÏíÝ"
                   
    Sheets(c.Offset(04).Value).Range("a2").Offset(01).Value "ÊÇÑíÎ"
                          
    Sheets(c.Offset(04).Value).Range("a2").Offset(02).Value "ÔãÇÑå ÓäÏ"
                          
    Sheets(c.Offset(04).Value).Range("a2").Offset(03).Value "ÔÑÍ"
                          
    Sheets(c.Offset(04).Value).Range("a2").Offset(04).Value "ÔãÇÑå æ˜ÇáÊ"
                          
                    
    For Each cb In Sheet1.Range("A3:A13000")
                     
                        If 
    cb.Offset(04).Value c.Offset(04).Value And cb.Offset(04) <> "" Then
                        n 
    1
                          Sheets
    (c.Offset(04).Value).Range("a2").Offset(n0).Value n
                          Sheets
    (c.Offset(04).Value).Range("a2").Offset(n1).Value cb.Offset(00).Text
                          Sheets
    (c.Offset(04).Value).Range("a2").Offset(n2).Value cb.Offset(01).Text
                          Sheets
    (c.Offset(04).Value).Range("a2").Offset(n3).Value cb.Offset(02).Text
                          Sheets
    (c.Offset(04).Value).Range("a2").Offset(n4).Value cb.Offset(03).Text
                        End 
    If
                    
    Next cb
                    
             
            End 
    If
        
    End If


    Next c


    End Sub 




  9. #7


    آخرین بازدید
    2016/08/26
    تاریخ عضویت
    April 2014
    نوشته ها
    14
    امتیاز
    11
    سپاس
    9
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلام مهدی جان راستش من تاحالا از ماژول تو اکسل استفاده نکردم خیلی زحمت کشیدی برنامشو نوشتی ولی هرچی کلنجار رفتم نتونستم ازش تو اکسل استفاده کنم.
    اگه ممکنه لینکی برای نحوه استفاده از ماژول برام بزاری یا روی نمونه برام بگی ممنون می شم.
    نمونه هرچی باشه خوبه....

  10. #8


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    فایل پیوست رو مشاهده کنید
    فايل هاي پيوست شده فايل هاي پيوست شده



  11. #9


    آخرین بازدید
    2016/08/26
    تاریخ عضویت
    April 2014
    نوشته ها
    14
    امتیاز
    11
    سپاس
    9
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

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

  12. #10


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,399
    امتیاز
    12759
    سپاس
    4,642
    سپاس شده
    12,135 در 3,224 پست
    سطح اکسل
    70.00 %

    دو خط پایین رو با گذاشتن یک کاما ' غیر فعال کن

    کد PHP:
    Sheets.Add After:=Sheets(Sheets.Count)
                            
    Application.ActiveSheet.Name c.Offset(04).Value 



  13. سپاس ها (2)



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

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

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

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

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

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

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

برقراری شرط در اکسل

offset site:exceliran.com

مشکل کپى در اکسل

کپی کردن یک سطر در شیت دیگر در صورت برقراری شرط

کپی دو خط مجزا در یک سطر اکسل

خطای valueدر کپی کردن خانه های اکسل

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

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

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

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