Snasui Excel Forum

Posted: **Wed Feb 07, 2018 10:02 am**

ผมทำการ 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

Posted: **Wed Feb 07, 2018 10:23 am**

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

Posted: **Wed Feb 07, 2018 10:26 am**

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

Posted: **Wed Feb 07, 2018 11:47 am**

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

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

Posted: **Wed Feb 07, 2018 3:25 pm**

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

Snasui Excel Forum

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

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

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

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

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

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