Nhờ giúp dùm Code xoá (1 người xem)

[chicpt]

' Nhờ các cao thủ chỉ giúp mình với
Mình muốn xoá theo điều kiện (i,k) trong đó i = vị trí dòng ( 155) đến k= vị trí dòng (160)
Xó hết dữ liệu từ dòng 155 đến 160 mình dùng Code sau nhưng báo lỗi hoài. Nhờ cao thủ giúp. Thân !

Sub xoa()
 Dim i, k
    With Sheet30
        i = Cells(1, 43).Value
        k = Cells(1, 44).Value
    End With
        Sheets("DL").Select
            Rows("i:k").Select
         Selection.Delete Shift:=xlUp
        
End Sub

 

[Hoàng Trọng Nghĩa]

' Nhờ các cao thủ chỉ giúp mình với
Mình muốn xoá theo điều kiện (i,k) trong đó i = vị trí dòng ( 155) đến k= vị trí dòng (160)
Xó hết dữ liệu từ dòng 155 đến 160 mình dùng Code sau nhưng báo lỗi hoài. Nhờ cao thủ giúp. Thân !

Sub xoa()
 Dim i, k
    With Sheet30
        i = Cells(1, 43).Value
        k = Cells(1, 44).Value
    End With
        Sheets("DL").Select
            Rows("i:k").Select
         Selection.Delete Shift:=xlUp
        
End Sub

Bạn sửa code của bạn như sau:

Sub xoa()
    Dim i As Long, k As Long
    With [COLOR=#ff0000]Sheets("Sheet30")[/COLOR]
        i = [B][COLOR=#0000cd][/COLOR][COLOR=#ff0000][SIZE=6].[/SIZE][/COLOR][COLOR=#0000cd]Cells(1, 43).Value[/COLOR][/B]
        k = [COLOR=#0000cd][/COLOR][COLOR=#ff0000][B][SIZE=6].[/SIZE][/B][/COLOR][COLOR=#0000cd][B]Cells(1, 44).Value[/B][/COLOR]
    End With
    Sheets("DL").Rows(i & ":" & k).Delete
End Sub

Nếu Sheet Name (tại tab của sheet mà mình nhìn thấy được) là Sheet30 thì dùng như trên, còn là Sheet Code Name (vào VBA mới thấy tên đó) thì chỉ dùng With Sheet30 thôi.

Lưu ý, khi đặt With làm "thừa số chung" thì trước các "phần tử" của nó ta phải thêm dấu chấm (.),