Snasui Excel Forum

Code: Select all

Sub DelSelectRow()
    If MsgBox("คุณต้องการลบที่เลือก ใช่หรือไม่?", 36, "ยืนยันการการลบข้อมูล") = 6 Then
        Application.ScreenUpdating = False
    Cells(ActiveCell.Row, "B").Resize(1, 4).ClearContents
    SortData
    Application.ScreenUpdating = True
 MsgBox "ลบข้อมูลเรียบร้อยแล้ว !! "
     Else: MsgBox "ยกเลิกการลบข้อมูล !! "
    End If
End Sub

Code: Select all

'Other code
Application.ScreenUpdating = False
Cells(ActiveCell.Row, "B").Resize(1, 7).SpecialCells(xlCellTypeConstants, 23).ClearContents
SortData
'Other code