Snasui Excel Forum

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

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