Run VBA แล้ว ERROR ค่ะ

[missy]

สวัสดีค่ะ ดิฉันมีปัญหากับ VBA ค่ะ จากไฟล์ที่แนบมาให้ พอกดปุ่ม DEL แล้วมันไม่ยอม ลบข้อมูลให้ค่ะ ระบุ cell ก็ถูกแล้วนะคะ ตอนปริ้นcell ออกมาดูก็ถูกต้องค่ะแต่พอลองกดปุ่ม DEL แล้วมันไม่ยอมลบ ไม่ทราบว่าติดตรงไหน ขอความกรุณาช่วยดูให้หน่อยได้ไหมคะ ขอบคุณมากค่ะ

[snasui]

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

Code: Select all

Private Sub Del_Click()
    If Range("F2") = "" Then Exit Sub
    If Worksheets("Sold History").Columns("B:B").Find(Sheets("Sold").Range("F2"), LookIn:=xlValues) Is Nothing Then
        MsgBox "ใบเสร็จ" & Range("F2") & "ลบ "
    Else
        i = Worksheets("Sold History").Columns("B:B").Find(Sheets("Sold").Range("F2"), LookIn:=xlValues).Row
        Worksheets("Sold History").Rows(i).Delete
        MsgBox "Delete number complete"
    End If
End Sub

[missy]

ขอบคุณค่ะ มากค่ะ ใช้ได้แล้วค่ะ ขอบคุณมากจริงๆ ค่ะ

[missy]

รบกวนอาจารย์อีกรอบค่ะ ถ้าเกิดเราจะรันเลขที่ใบเสร็จ ต่อๆ กัน เราจะทำได้อย่างไรคะ จากไฟล์ที่ส่งให้ไปค่ะ

[snasui]

ควรแจ้งมาว่า Run ด้วยวิธีใด ถ้าเขียนมาเองแล้วให้ยก Code นั้นมาด้วยแล้วแจ้งว่าติดที่บรรทัดใด จะได้เข้าถึงปัญหาได้โดยไว

การใช้ VBA จำเป็นต้องเขียนมาเองก่อนเสมอ ติดปัญหาแล้วค่อยสอบถามกันครับ