การบันทึกข้อมูล RecordData

[palmy]

ผมได้ลองทำไฟล์เกี่ยวกับการบันทึกข้อมูลโดยใช้ Code ดังนี้

Code: Select all

Dim rTarget As Range
With Sheets("Search")
    i = .Range("F4").Value
    j = .Range("I8").Value
    Set rSource = .Range("F9")
End With
With Sheets("Remove")
    Set rTarget = .Range(.Range("H" & i + 1), .Range("H" & i + j))
End With
Application.ScreenUpdating = False
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡Êèǹ§Ò¹áÅéÇ"
Sheets("Remove").Select
Range("H" & i + 1).Select
Application.ScreenUpdating = False
End Sub

นั่นคือ การนำข้อความใน Cell F9 Sheet Search ไปจัดเก็บในคอลัมภ์ H Sheet Remove ที่ได้สร้าง Index ไว้แล้ว
ทั้งนี้ ผมต้องการประยุกต์ โดยนำ ค่าเพิ่มเติมจาก Sheet Search Cell F10 และ F11 ไปจัดเก็บไว้ใน Sheet Remove คอลัมภ์ต่อเนื่อง I และ J
รบกวนขอคำแนะนำด้วยครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยครับ และช่วยระบุด้วยว่าต้องการวางข้อมูลอย่างไร ปัจจุบันปัญหาคืออะไร

[palmy]

ไฟล์ค่อนข้างใหญ่ ขออนุญาติตัดไฟล์สักครู่ครับ

[palmy]

ไฟล์แนบครับ

[snasui]

ผมต้องการประยุกต์ โดยนำ ค่าเพิ่มเติมจาก Sheet Search Cell F10 และ F11 ไปจัดเก็บไว้ใน Sheet Remove คอลัมภ์ต่อเนื่อง I และ J
รบกวนขอคำแนะนำด้วยครับ

จากที่ถามมา ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub RecordData()
    Dim rSource As Range
    Dim i As Long, j As Integer
    Dim rTarget As Range
    With Sheets("Search")
        i = .Range("F4").Value
        j = .Range("I8").Value
        Set rSource = .Range("F9")
    End With
    With Sheets("Remove")
        Set rTarget = .Range(.Range("H" & i + 1), .Range("H" & i + j))
    End With
    Application.ScreenUpdating = False
    'rSource.Copy
    'rTarget.PasteSpecial xlPasteValues
    rTarget = rSource
    rTarget.Offset(0, 1) = rSource.Offset(2, 0)
    rTarget.Offset(0, 2) = rSource.Offset(4, 0)
    Application.CutCopyMode = False
    MsgBox "บันทึกส่วนงานแล้ว"
    Sheets("Remove").Select
    Range("I" & i + 1).Select
    Application.ScreenUpdating = False
End Sub

[palmy]

ขอบคุณครับอาจารย์