Copy ข้อมูลไป Sheet ใหม่

[noona]

ต้องการบันทึกข้อมูลจากหน้า Form ไปที่ หน้า Database แต่ข้อมูลไปแค่บรรทัดเดียว รบกวนขอคำแนะนำด้วยนะคะ

Code: Select all

  
    Dim lastRow&
    
    With Sheets("Database")

        lastRow = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        
        .Range("a" & lastRow) = lastRow - 1
    
        .Range("b" & lastRow, .Range("K" & lastRow)).Value = _
Sheets("Form").Range("a7:K11").Value
    
End With
End Sub
    

[logic]

เพราะบรรทัดไม่เท่ากัน เลยได้ผลลัพธ์มาแค่บรรทัดเดียว

ลองแบบนี่้ครับ

Code: Select all

Sub RecordData()
    Dim lastRow&
        
    With Sheets("Database")
        lastRow = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & lastRow) = lastRow - 1
        .Range("b" & lastRow, .Range("K" & lastRow)).Resize(5).Value = _
            Sheets("Form").Range("a7:K11").Value
    End With
End Sub

[noona]

เพราะบรรทัดไม่เท่ากัน เลยได้ผลลัพธ์มาแค่บรรทัดเดียว

ลองแบบนี่้ครับ

Code: Select all

Sub RecordData()
    Dim lastRow&
        
    With Sheets("Database")
        lastRow = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & lastRow) = lastRow - 1
        .Range("b" & lastRow, .Range("K" & lastRow)).Resize(5).Value = _
            Sheets("Form").Range("a7:K11").Value
    End With
End Sub

ขอบคุณมากนะคะ