แก้ไข Code RecordBill Vba Excel

[liveday]

เรียนอาจารย์ทุกท่านครับ
ผมต้องการนำข้อมูลจาก Sheet. Template!A2:J18 มาบันทึกไว้ที่ Sheet.Import! ตั้งแต่ B2:K ครับ
Code ที่ผมใช้อยู่ข้อมูลจะกระโดดข้าม Cell ไปเยอะครับ โดยไม่เรียงข้อมูลลงมาต่องเนื่องได้อย่างถูกต้องครับ
จะต้องแก้ไขสูตรอย่างไรครับ

Code: Select all

Sub RecordBill1()
Dim rs As Range, rt As Range
Dim i As Integer

Worksheets("ãºÃѺÊÔ¹¤éÒà¢éÒ").Range("G9") _
    = Application.Max(Worksheets("Import") _
        .Range("J:J")) + 1

With Worksheets("Template")
 i = Application.CountIf( _
        .Range("J2:J16"), ">0")
    Set rs = .Range("A2:J16" & 2 + i)
End With
    Set rt = Worksheets("Import") _
        .Range("B65536").End(xlUp).Offset(1, 0)
    rs.Copy
    rt.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
MsgBox "Finish"
End Sub

[snasui]

กรุณาตั้งชื่อกระทู้ใหม่ให้สื่อความหมายตามกฎการใช้บอร์ดข้อ 2 ด้านบนครับ

[liveday]

แก้ไขตามที่อาจาร์ยแจ้งครับ

[snasui]

การลบโพสต์จะทำได้ภายใน 10 นาทีหลังจากโพสต์ ส่วนการแก้ไขทำได้ภายใน 60 นาทีหลังจากโพสต์ครับ

กระทู้นี้ผมแก้ให้แล้วครับ

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

'Other code
With Worksheets("Template")
    i = Application.CountIf( _
            .Range("F2:F16"), ">0")
    Set rs = .Range("A2:J" & 1 + i)
End With
'Other code