สอบถาม VBA การIF หน่อยครับ Snapshot Data แต่ผมทำรายวัน

[kampanart]

ผมทำการ Snapshot Data แต่ผมทำรายวันครับ ผมต้อง IF ทั้งหมด 365 ครั้งคือปี จะมีวิธีไหนที่มัน Auto Next Feilds ไหมครับ

Private Sub Snapshot()

If Sheet25.Range("F1") = "Y" Then
Range("F10:F13").Value = Range("F3:F6").Value
End If

If Sheet25.Range("G1") = "Y" Then
Range("G10:F13").Value = Range("G3:F6").Value
End If

If Sheet25.Range("H1") = "Y" Then
Range("H10:H13").Value = Range("H3:H6").Value
End If

If Sheet25.Range("I1") = "Y" Then
Range("I10:F13").Value = Range("I3:I6").Value
End If

If Sheet25.Range("J1") = "Y" Then
Range("J10:J13").Value = Range("J3:J6").Value
End If


End Sub

[eyepop99]

รบกวนแน๊บไฟลจริง ตัวอย่างที่เป็นไฟล์ต้นทางด้วยครับ
และกรุณาโพสcode ในรูปแบบ code เพื่อความสะดวกครับ

[kampanart]

แนบไฟล์ใหม่เรียบร้อยแล้วครับ

[puriwutpokin]

ปรับเป็นโค้ดนี้ครับ

Code: Select all

Private Sub Snapshot()
Dim c As Range
For Each c In Sheets("Snapshot Data").Range("f1:lw1")
        If c = "Y" Then
       c.Offset(9, 0).Resize(4, 1).Value = c.Offset(2, 0).Resize(4, 1).Value
        End If
Next c
End Sub

[kampanart]

ขอบคุณมากครับ