ช่วยด้วย code Offset ส่งค่าไป 2 แถว

[aggie3]

สวัสดีครับอาจารย์
วันนี้มีเรื่องรบกวนอีกแล้วครับ ผมเขียนโค้ดให้Sheet Main พอคลิ๊กที่รายการใด ให้ไปบันทึกไว้ใน sheet PrintOut และให้ลบบรรทัดในSheet Main
ผลปรากฎว่า Sheet PrintOut ปรากฎ ข้อมูลเป็น 2 รายการ รบกวนอาจารย์ช่วยชี้แนะด้วยนะครับ

ขอบคุณครับ

[snasui]

ลองปรับ Code เป็นด้านล่างครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowNumberValue As Integer
    Dim columnNumberValue As Integer
    Dim sd As Range
    Dim po As Range
    Application.EnableEvents = False
    rowNumberValue = ActiveCell.Row
    columnNumberValue = ActiveCell.Column
    ActiveSheet.Range(Cells(rowNumberValue, columnNumberValue), Cells(rowNumberValue, columnNumberValue + 5)).Select
    Selection.Copy
    Set po = Worksheets("PrintOut").Range("A65536").End(xlUp).Offset(1, 0)
    po.PasteSpecial xlPasteValues
    ActiveWorkbook.Save
    Selection.Delete Shift:=xlUp
    Application.EnableEvents = True
End Sub