Run VBA Error 91

[pochdo]

รบกวนอาจารย์ช่วยด้วยครับ

ผมคลิกที่ ลบข้อมูล แล้วเกิด ERROR 91
ทำอย่างไรไม่ให้ขึ้น ERROR

[bank9597]

ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Option Explicit
Private Sub Del_Click()
Dim i As Integer
If Range("H8") = "" Then Exit Sub

If Worksheets("Aging").Columns("C:C").Find(Range("H8"), LookIn:=xlValues) Is Nothing Then MsgBox "äÁèÁÕàÅ¢·Õè¹Õé"

i = Worksheets("Aging").Columns("C:C").Find(Range("H8"), LookIn:=xlValues).Row
Worksheets("Aging").Rows(i).Delete
MsgBox "źàÅ¢·Õè" & Range("H8") & "àÃÕºÃéÍÂáÅéÇ"

End Sub

[pochdo]

แก้ไขตามแล้ว

- ถ้าในตาราง Aging มีข้อมูลที่ต้องการลบ สามารถลบได้ตามที่ต้องการ
- ถ้าในตาราง Aging ไม่มีข้อมูลที่จะลบ จะปรากฎกล่องข้อความขึ้นว่า ไม่มีเลขที่นี้ พอกด OK ก็ขึ้น Error เหมือนเดิม
จะไม่ให้ขึ้น Error ต้องแก้ไขโค๊ดอย่างไรครับ

[snasui]

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

Code: Select all

'Other code
If Worksheets("Aging").Columns("C:C").Find(Range("H8"), LookIn:=xlValues) Is Nothing Then
    MsgBox "ไม่มีเลขที่นี้"
    Exit Sub
End If
'Other code