Xóa dòng bị báo lỗi (1 người xem)

[vidangtinhyeu99]

Kính chào các thầy, anh chị năm mới sức khỏe
cho em nhờ cái nầy tí
số là em muốn tạo nút xóa ví dụ em muốn xóa dòng 2 thì nó xóa nguyên dòng 2
tương tự dòng nào thì nó xóa dòng đó
em đã làm nhưng nó báo lỗi j đó em không biết nữa. Rất mong sự trợ giúp

 

[SA_DQ]

Bạn thử nghiệm với macro sau:

Option Explicit
Sub XoaDong_dinh()
Dim Sh As Worksheet
Dim Dg2 As Long
Dim MsgText$, Msg_Tb$
Const TB As String = "Thong báo"
'*  *   *   *   *   *   *   *   *   *   *   *'
 Set Sh = Sheets("Data")
 Dg2 = [o7].Value
 If Dg2 < 2 Then Exit Sub
 MsgText = "Ban kiem tra lai, co muon Dong Du lieu " & Dg2 & vbLf & " Ma so : " & _
    Sh.Cells(Dg2, 2).Value & vbLf & " Ten khach hang : " & Sh.Cells(Dg2, 3).Value & " Khong?"
 Msg_Tb = MsgBox(MsgText, vbYesNoCancel + vbDefaultButton2)
 If Msg_Tb = vbYes Then
    Sh.Rows(Dg2 & ":" & Dg2).Delete
    MsgBox "Xóa Dòng Xong!", , TB
        Sheets("data").Select
'Néu Tra Lòi NO Thì:'
 ElseIf Msg_Tb = vbNo Then
    MsgBox "Khong Thuc Hien", , TB
  '*    *   *   * Dành Cho Loc O STDOi'
 Else
    MsgBox "Chon Cancel Coi Nhu Khong Có Gì Xay Ra!", , TB
 End If
End Sub

 

[vidangtinhyeu99]

Xin chân thành cảm ơn bạn nhé. đã đúng yêu cầu của mình rồi. Chúc bạn sức khỏe và gặp nhiều may mắn trong cuộc sống. Khi nào gặp hậu tạ nhé