Copy ข้อมูลและเพิ่มข้อมูลอัตโนมัต

[nurak]

ผมลองบันทึกมาโคร Copy ข้อมูลจาก Sheet Raw ไป Sheet Sum แต่ติดปัญหาคือ
1.ข้อมูลเพิ่มขึ้นเรื่อยๆแต่มาโครยังคงเหมือนเดิม ==>จะแก้ไขอย่างไรให้มาโครผันแปรตามข้อมูลที่เพิ่มขึ้น
2.ข้อมูลที่อ้างอิงวันที่มีแค่ชุดเดียว ==> จะแก้ไขอย่างไรให้ทุกข้อมูลที่ Copy มามีข้อมูลวันที่เหมือนข้อมูลชุดแรก
ขอบคุณครับ

[joo]

ลองศึกษาจากลิงค์นี้ไปประยุกต์ปรับใช้ดูครับ viewtopic.php?f=3&t=3155

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Macro()
'
' Macro áÁâ¤Ã
'

'
    Sheets("Sum").Select
    Columns("B:C").Select
    Selection.ClearContents
    Range("B3").Select
    Sheets("Raw").Select
    Range("B4:C21").Select
    Selection.Copy
    Sheets("Sum").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Raw").Select
    Range("B4:B21, D4:D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sum").Select
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Raw").Select
    Range("B4:B21, E4:E21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sum").Select
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C39").Select
    Sheets("Raw").Select
    Application.CutCopyMode = False
    Sheets("Sum").Select
End Sub

[nurak]

ติดปัญหาตอนเพิ่มข้อมูลที่ sheet Raw แต่มาโครยัง copy ข้อมูลมาที่ sheet Sum ขนาดเท่าเดิมทำให้ข้อมูลไม่ update ครับรบกวนแนะนำด้วยครับ

[snasui]

ลองพยายามปรับมาก่อน ได้เท่าไรก็เท่านั้น ติดตรงไหนค่อยถามกันต่อครับ

[nurak]

ได้แบบนี้น่ะครับ ถ้ามีแบบที่กว่านี้รบกวนแนะนำด้วยครับ

[snasui]

บรรทัดไหนที่ได้ปรับให้ยืดหยุ่นตามข้อมูลต้นแหล่งครับ

[nurak]

ตามที่แนบมาครับ

[snasui]

ตามที่แนบมานั้นยังไม่ได้ปรับใช้กับ Code ผมกำลังถามถึง Code ครับ