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
سلام ممنون از پاسختان اگر امکان داره توضیحاتی در مورد چگونگی کارکرد کد و اعداد داخل کد بیان کنید چون میبایست جای ردیف و جای شیتها را تغییر بدم باز هم ممنون
کامنت