Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะ Delete ข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
        y = Worksheets("Data").Columns(1).Find(Sheets("Input").Range("I5").Value).Row

Worksheets("Data").Cells(y).EntireRow.Delete

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If
    
End Sub

Code: Select all

Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)

Code: Select all

Private Sub CommandButton1_Click()

    Dim y As Long
    Dim x As Integer
    Dim z As Integer
    
        x = MsgBox("ยืนยันที่จะ Delete ข้อมูล??", vbOKCancel, "แจ้งเตือน")
       If x = vbOK Then
        y = Worksheets("Data").Columns(1).Find(Sheets("Input").Range("I5").Value).Row

Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)

    z = MsgBox("แก้ไขข้อมูลเรียบร้อยแล้ว", vbOKOnly, "แจ้งเตือน")
        Else
        Sheets("Input").Select
    End If

End Sub
{/Code]