پرسش انتقال چندین مجموعه سلولها با فور تصویر پیوست نمونه مثال است

[mohammadi59m]

انتقال چندین مجموعه سلولها با فور تصویر پیوست نمونه مثال است

سلام و احترام خدمت اساتید بزرگوار
sheet1 شیت مرجع است
اگر سطر اول در sheet2 برابر سطر اول sheet1 مرجع باشد زیر مجموعه سلولهای 12 تایی طبق تصویر پیوست که به رنگ آبی که در sheet1 مرجع است به sheet2 منتقل شوند
این کد ماکرو با فور مد نظر است
تشکر و سپاس از همکاری و لطف شما

[mrhartsclube]

سلام دوست عزیز

    Dim j, k As Integer
    If Worksheets("Sheet1").Range("A1") = Worksheets("Sheet2").Range("A1") _
    And Worksheets("Sheet1").Range("E1") = Worksheets("Sheet2").Range("E1") _
    And Worksheets("Sheet1").Range("I1") = Worksheets("Sheet2").Range("I1") _
    And Worksheets("Sheet1").Range("M1") = Worksheets("Sheet2").Range("M1") Then
        For j = 2 To 5
            For k = 1 To 15
                Worksheets("Sheet2").Cells(j, k) = Worksheets("Sheet1").Cells(j, k)
            Next k
        Next j
    End If