Snasui Excel Forum

Posted: **Tue Oct 08, 2013 1:51 pm**

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

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

Posted: **Tue Oct 08, 2013 2:10 pm**

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

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

Posted: **Tue Oct 08, 2013 2:55 pm**

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

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

Posted: **Tue Oct 08, 2013 3:07 pm**

ลองปรับ 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

Snasui Excel Forum

Run VBA Error 91

Run VBA Error 91

Re: Run VBA Error 91

Re: Run VBA Error 91

Re: Run VBA Error 91