สอบถาม VBA การบันทึกข้อมูลลง Database ครับ

[snasui]

ค่อย ๆ ถามตอบกันไปครับ

ช่วยอธิบายมาใหม่ว่าต้องการ Copy จากไหนไปไหน และชี้ให้เห็นว่าหากทำถูกต้อง ข้อมูลปลายทางที่ต้องการจะมีลักษณะเป็นอย่างไรมาด้วยครับ

[jakawan]

ครับอาจารย์
1.เมื่อเราใส่ข้อมูลในช่อง ("C9", "C10" "C11","C12","L14","C14","C15","G15","L15","C16","L16","D17","F20","C21","C24", "F24", "A29", "A40", "A47", "C51", "E51","j66) ใน sheet input
2.เมื่อกดปุ่ม บันทึกข้อมูล ให้ข้อมูลที่ใส่มาข้างต้นใน Sheet input ส่งไปที่ sheet database ผมทำเป็นตารางแนวนอนไว้ครับ คนแรกเริ่มต้นที่ A3 - W3
3.เมื่อบันทึกข้อมูลคนต่อไปให้ต่อไปอีกบรรทัดคือ A4-W4 เรียงกันไปเรื่อยๆ ครับเมื่อกดบันทึกข้อมูล

ผมได้แนบตารางข้อมูลมาในไฟล์แนบ รบกวนอาจารย์ด้วยนะครับ

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub Paste()
    Dim irRange As Variant
    Dim i As Integer, rw As Long
    irRange = Array("C9", "C10", "C11", _
        "C12", "L14", "C14", "C15", "G15", _
        "L15", "C16", "L16", "D17", "F20", _
        "C21", "C24", "F24", "A29", "A40", _
        "A47", "C51", "E51", "j66")
    rw = Worksheets("Database").Range("a" & Rows.Count).End(xlUp).Row + 1
    For i = 0 To UBound(irRange)
        With Worksheets("Database")
            .Range("a" & rw).Offset(0, i).Value = Sheets("Input").Range(irRange(i)).Value
        End With
    Next i
End Sub

[jakawan]

ทำได้แล้วครับ ขอบคุฃรอาจารย์มากครับ