snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ในตัวอย่าง 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 ไปไม่ได้่ครับ ผมผิดตรงไหนครับ
You do not have the required permissions to view the files attached to this post.
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
คำแสดงเจตนา
ขอโทษครับ พอดีลองไปลองมาได้คำตอบแล้วครับ
