Xóa dữ liệu dựa vào điều kiện đã chọn (1 người xem)

[keke355992]

Xin chào các AC trong diễn đàn. E có 1 bài toán, nhờ các AC xem giúp ạ. Y/c e đã ghi trong file. E cảm ơn nhìu !

 

[Let'GâuGâu]

Xin chào các AC trong diễn đàn. E có 1 bài toán, nhờ các AC xem giúp ạ. Y/c e đã ghi trong file. E cảm ơn nhìu !

thử xem được ko

Option Explicit
Sub timvagiet()
Dim Srng, Trng, fcll, cll As Range
On Error Resume Next
Set Srng = Application.InputBox(prompt:="Pls choose your range", Type:=8)
If Srng Is Nothing Then Exit Sub
For Each fcll In Srng
 Set cll = [Q2:AI26].Find(fcll.Value, , , 1)
 If Not cll Is Nothing Then cll.ClearContents
Next
On Error GoTo 0
End Sub

 

[keke355992]

thử xem được ko

Option Explicit
Sub timvagiet()
Dim Srng, Trng, fcll, cll As Range
On Error Resume Next
Set Srng = Application.InputBox(prompt:="Pls choose your range", Type:=8)
If Srng Is Nothing Then Exit Sub
For Each fcll In Srng
 Set cll = [Q2:AI26].Find(fcll.Value, , , 1)
 If Not cll Is Nothing Then cll.ClearContents
Next
On Error GoTo 0
End Sub

Đúng y em muốn rùi, Thank A nhìu ạ
P/s: A làm cái Sub timvagiet phũ phàng qá )