کپی کردن ردیف ها بین کاربرگ ها بر اساس یک مقدار متن

Question

ماریان متعجب است که آیا راهی برای کپی کردن یک ردیف کامل از یک کاربرگ به کاربرگ دیگر بر اساس وقوع یک مقدار متن خاص ("بله") در ستون E ردیف وجود دارد. Vlookup به نظر نمی رسد برای این نوع ارزیابی کار کند.

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

اگر مجبورید این کار را بیشتر انجام دهید، می توانید یک ماکرو ایجاد کنید تا کپی کردن به صورت فوری انجام شود. ماکرو زیر 1000 ردیف اول Sheet1 را بررسی می کند و هر ردیفی که حاوی "بله" در ستون E باشد را در Sheet2 کپی می کند.

Sub CopyYes()
    Dim c As Range
    Dim j As Integer
    Dim Source As Worksheet
    Dim Target As Worksheet

     Change worksheet designations as needed
    Set Source = ActiveWorkbook.Worksheets("Sheet1")
    Set Target = ActiveWorkbook.Worksheets("Sheet2")

    J = 1      Start copying to row 1 in target sheet
    For Each c In Source.Range("E1:E1000")    Do 1000 rows
        If c = "yes" Then
           Source.Rows(c.Row).Copy Target.Rows(j)
           j = j + 1
        End If
    Next c
End Sub

توجه داشته باشید که ماکرو اطلاعات موجود در Sheet2 را بازنویسی می کند. همچنین "پویا" نیست، به این معنی که اگر مقادیر ستون E تغییر کند و بخواهید ردیف های Sheet2 آن تغییرات را منعکس کنند، ماکرو کمکی نخواهد کرد.

اطلاعات اضافی در مورد کپی خودکار اطلاعات از یک کاربرگ به کاربرگ دیگر را می توان در این وب سایت یافت:

https://www.mrexcel.com/forum/excel-questions/602635-
automatically-move-entire-rows-one-worksheet-into-
another-worksheet-same-workbook.html

حتی اگر URL در سه خط در اینجا نشان داده شده است، همه آن یک URL واحد است. شما می خواهید مطمئن شوید که همه آن را در مرورگر خود وارد کرده اید.