Snasui Excel Forum

ได้ตรงตามต้องการแล้วค่ะ ขอบคุณมากนะคะ



Sub SaveR()
Dim r As Range
Set r = Sheets("center").Range("B4", Sheets("center").Cells(Rows.Count, 2).End(xlUp))
With Sheets("report").Cells(Rows.Count, 2).End(xlUp)(2).Resize(r.Count)
.Value = r.Value
.Offset(, -1).Formula = "=counta(B$2:B" & .Row ...

สวัสดีทุกท่านค่ะ

รายละเอียด
1.ชีท center เป็นช่องให้กรอกข้อมูลมีจำนวน 6 บรรทัด ในการกรอกข้อมูลแต่ละครั้งอาจจะกรอกไม่ครบทั้ง 6 บรรทัด
2.ชีท DATA จะเป็นการเก็บข้อมูลจากชีท center มาเรียงตามต้องการก่อน
3.เมื่อกดปุ่ม save report ที่ชีท center จะ copy ข้อมูลจากชีท DATA ไปที่ชีท report โดยเก็บข้อม ...