Giúp mình code xóa vùng dữ liệu

[QuytFootball]

Hi cả nhà,

Kiểm tra giúp cái code chỉ xóa hàng trong bảng , các cột bên cạnh không xóa. MÌnh xóa với Entire.Row thì bay nguyên hàng T.T!

File đính kèm ở dưới ah. Cảm ơn nhé

 

[BuiQuangThuan]

Kiểm tra giúp cái code chỉ xóa hàng trong bảng , các cột bên cạnh không xóa. MÌnh xóa với Entire.Row thì bay nguyên hàng T.T!

File đính kèm ở dưới ah. Cảm ơn nhé

Bạn thay code của bạn bằng code:

Private Sub CommandButton1_Click()
Dim i As Integer
 i = Me.TextBox1.Value
    Sheets("QS").Range(Cells(i, 1), Cells(i, 6)).ListObject.ListRows(1).Delete
End Sub