Page 1 of 1
Copy ข้อมูลไป Sheet ใหม่
Posted: Wed Jul 03, 2019 11:25 pm
by 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
Re: Copy ข้อมูลไป Sheet ใหม่
Posted: Thu Jul 04, 2019 11:25 am
by 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
Re: Copy ข้อมูลไป Sheet ใหม่
Posted: Thu Jul 04, 2019 12:00 pm
by noona
logic wrote: Thu Jul 04, 2019 11:25 am
เพราะบรรทัดไม่เท่ากัน เลยได้ผลลัพธ์มาแค่บรรทัดเดียว
ลองแบบนี่้ครับ
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
ขอบคุณมากนะคะ
