Snasui Excel Forum

ในตัวอย่าง 2-2 code vbe โมดูล1ครับ
Sub sheet2_2_Click()
On Error Resume Next
Dim lng As Long, n As Long
Dim rLastCol As Range, sn As Range
lng = Sheets("sheet2-2").Range("b5")
With Sheets("fine")
Set rLastCol = .Range("A" & lng).End(xlToRight).Offset(0, 1)
End With
With Sheets("Sheet2-2")
.Range("b7").Copy: rLastCol.PasteSpecial xlPasteValues
.Range("b9").Copy: rLastCol.Offset(0, 1).PasteSpecial xlPasteValues
Range("B7,B9").SpecialCells(xlCellTypeConstants).ClearContents
End With
Application.CutCopyMode = False
End Sub
ตรงบรรทัด wiht Sheets("fine") ผมส่งข้อมูล b7,b9 จากsheet2-2 ไปไม่ได้่ครับ ผมผิดตรงไหนครับ

เอาข้อมูล B7 อย่างเดียว หรือ เอา B9 ไปด้วยครับ ผมยังงอยู่

ขอโทษครับ พอดีลองไปลองมาได้คำตอบแล้วครับ

คืองี้ครับ ที่sheet2-2 เมื่อกรอกข้อมูล วันที่จ่ายจริง-->b7 และ จำนวนจ่ายจริง-->b9 เมื่อกดปุ่มaddข้อมูล

ที่sheet"Fine" ที่รหัส 22-123-1 มันไม่มีข้อมูลเข้ามาครับ
แต่เมื่อกี้ผมเพิ่งได้คำตอบ เป็นเพราะมันยังไม่มีข้อมูลอะไรก็ได้มังครับ
ที่ sheet"fine" cell b2ผมลองใส่ชื่อลูกค้าดู แล้วทำกระบวนการกรอกข้อมูลที่sheet2-2 แล้วกดปุ่มaddดูปรากฏว่าคราวนี้มันส่งข้อมูลมาครับผม ขอบคุณครับๆคุณbank