nhưng em sửa rồi mà vẫn chưa chạy dược anh ơi
xlFilterValues chứ không phải là x1filterValues, copy code mà còn sai.
Cái video này nó lọc ở cột A mà bạn. Theo bạn mô tả hình như là lọc cột C thì phải. nếu đúng vậy thì bạn có thể sử dụng code sau.
Private Sub textbox1_change()
ActiveSheet.Range("$A$3:$I$" & Range("A65000").End(xlUp).Row).AutoFilter Field:=3, Criteria1:="*" & [b2] & "*"
End SubBạn dùng code này cho file của bạn.
Sub GPE()
On Error Resume Next
Dim i As Long, VungDel As Range, k As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
k = 0
For i = Sheet1.Range("A65000").End(xlUp).Row To 5 Step -1
If WorksheetFunction.CountBlank(Sheet1.Range("A" & i).Resize(, 9)) = 9 Then
If VungDel Is Nothing Then
Set VungDel = Rows(i)
Else
Set VungDel = Union(VungDel, Rows(i))
k = k + 1
If (k = 100) And (Not VungDel Is Nothing) Then
VungDel.EntireRow.Delete
Set VungDel = Nothing
k = 0
End If
End If
End If
Next i
If Not VungDel Is Nothing Then VungDel.EntireRow.Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Trong code có chỗ SearchDirection:=xlNext, sửa lại thành SearchDirection:=xlPrevious thì nó sẽ tìm từ dưới lên
Em cảm ơn thầy
Trong code bạn ghì: Cells.Find(....) có nghĩa là tìm trên toàn bộ bảng tính? Như vậy không tốt lắm, bời tên cty nằm ở cột C mà
Sub Button2_Click()
On Error Resume Next
Range("C5:C10000").Find(Range("C2").Value, , xlValues, xlPart, , xlPrevious, False).Select
End Sub
Thầy Ndu! chỉnh lại hộ em đoạn code file dưới với ạ. đoạn code mọi khi em vẫn dùng, nhưng hnay giữ liệu nhiều hơn bị lỗi khả năng do vùng làm việc nhỏ quá nên lỗi nhờ thầy xem cho em với..
