Code VBA UpdateItem

[suka]

เรียนอาจารย์และทุกท่านช่วยค่ะ
Code ข้างล่างนี้คีย์ตามแบบโพสต์ในเฟสบุ้คของอาจารย์มาถามนะคะ มีความสงสัยว่าเขียนโค้ดเลียนแบบผิดค่ะ
จากไฟล์ตัวอย่างที่เซลล์ H2:K2 เมื่อรันโค้ดแล้วต้องการให้วางข้อมูลต่อลงที่เซลล์ A9:D9 ค่ะ
แต่ปัญหาเมื่อรันโค้ดแล้วข้อมูลวางทับที่เซลล์ A8:D8 ค่ะ

Code: Select all

Sub UpdateItem()
    Dim i As Integer, j As Integer
    i = [countif(a2:a100,h2)]
    If i > 0 Then
        j = [match(h2,a2:a100,0)]
    Else
        j = [counta(a2:a100)]
    End If
    Range("h2:k2").Copy Range("a" & j + 1)
    Application.CutCopyMode = False
End Sub

[puriwutpokin]

ปรับตามนี้ครับ

Code: Select all

Sub UpdateItem()
    Dim i As Integer, j As Integer
    i = [countif(a2:a100,h2)]
    If i > 0 Then
        j = [match(h2,a2:a100,0)]
    Else
        j = [counta(a2:a100)] + 1
    End If
    Range("h2:k2").Copy Range("a" & j + 1)
    Application.CutCopyMode = False
End Sub

[suka]

ได้ตรงตามต้องการค่ะ ขอบคุณคุณ puriwutpokin มากนะคะ