Snasui Excel Forum

ลองปรับโค้ดแบบนี้ดูครับ
Private Sub CommandButton1_Click()
Dim CopyRange As Range
Set CopyRange = Selection
If Len(Trim(Cells(CopyRange.Row, "a"))) > 0 Then
Set CopyRange = Cells(CopyRange.Row, "e")
Else
Set CopyRange = Cells(CopyRange.Row - 1, "e")
End If
CopyRange.Select
If Len(Trim ...

การวางโค้ดให้ทำตามกฎข้อ 5 ของบอร์ดด้านบนของหน้านี้ครับ

ลองดูโค้ดนี้ว่าทำงานได้ไหมครับ

Private Sub CommandButton1_Click()
Dim RowCount As Integer, CopyRange As Range
Dim StartRow As Integer, LastRow As Integer
Dim RowHigh As Integer, ColumnWidth As Integer
With Worksheets("Sheet1")
RowHigh ...

คำสั่งย้ายข้อมูล อยู่ในปุ่มสีฟ้าครับ
ตอนนี้คือ Code ที่ผมใช่ครับ

Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("E4:E5").Select
Range(Selection, Selection.End(xlToRight)).Copy
Sheets("Sheet1").Range("H4:H5").PasteSpecial xlPasteValues
Range("E4:G5").ClearContents
End Sub

ท ...

ไฟล์เดิมมีขนาดใหญ่เกินที่จะแนบในนี้ครับ
ที่ผมต้องการสอบถามคือ ข้อมูลสินค้าตัว ลำดับ 1 จะเริ่มบันทึกข้อมูลที่ E4-5, F4-5, G4-5
พอต้องการอัพเดท สินค้า ลำดับ 1 ก็จะให้เลื่อนข้อมูลชุดเดิม ไปที่ H4-5,I4-5,J4-5 ครับ
และข้อมูลสินค้า ลำดับที่ 2-n ก็จะเริ่มต้นทีแถว E-F-G เหมือนกันครับ
ขอบคุณครับ

สอบถามการตั้งมาโคร เพื่อขยับข้อมูลในเซลครับ โดยที่ข้อมูลเก่าในเซลไม่หายครับ
สมมุติว่า ผมเริ่มบันทึกข้อมูลที่ E4-5, F4-5, G4-5 (ทั้ง 6 เซลเป็นข้อมูลชุดเดียวกัน)
ผมต้องการตั้งค่ามาโครให้ เลื่อนข้อมูลจาก E4-5, F4-5, G4-5 ไปที่ H4-5,I4-5,J4-5
เพื่อที่จะได้ บันทึกข้อมูลชุดใหม่ ลงไปที่ E4-5, F4-5, G4-5 คร ...