[حل شده] انتقال به شیت

[kazem1359]

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

ادرس فایل ارسالی

http://s9.picofile.com/file/8366022034/Book1.zip.html

[M_ExceL]

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

ادرس فایل ارسالی

http://s9.picofile.com/file/8366022034/Book1.zip.html

سلام،

Sub M_E()
Application.ScreenUpdating = False
    For sht = 2 To Sheets.Count
        If Sheets(1).Range("f5") = Sheets(sht).Name Then
            For i = 1 To 4
                 Sheets(sht).Cells(1, i) = Sheets(1).Cells(5, i + 6)
            Next i
        End If
    Next sht
Application.ScreenUpdating = True
End Sub

[kazem1359]

سلام ممنون از پاسختان اگر امکان داره توضیحاتی در مورد چگونگی کارکرد کد و اعداد داخل کد بیان کنید چون میبایست جای ردیف و جای شیتها را تغییر بدم باز هم ممنون