Snasui Excel Forum

Code: Select all

Sub cmdCLEAR()
    Dim rngAll As Range, rng As Range, i As Integer
    Dim Msg, Style, Title, Response
    Msg = "คุณต้องการลบข้อมูลหรือไม่?"   ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
    Title = "คุณต้องการลบข้อมูลหรือไม่"  ' Define title.
    ' Display message.
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' User chose Yes.
        Sheets("database").Select
        Set rngAll = Range("d2", Range("d" & Rows.Count).End(xlUp))
        For Each rng In rngAll
            If rng.Value = Me.ComboBox1.Text Then
                rng.Value = ""
                i = i + 1
            End If
        Next rng
        If i > 0 Then
            rngAll.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
    End If
End Sub