pchuanhac7
Thành viên mới

- Tham gia
- 8/1/09
- Bài viết
- 16
- Được thích
- 3
phiền anh NDU chút nữa vậy.
nếu như trong bảng trên có nhiều cột.cần sửa làm sao để đoạn code trên có thể copy nhiều cột qua sheet khác. làm sao biết được là đang kiểm tra điều kiện trên cột nào? nếu muốn thay đổi việc kiểm tra điều kiện trên cột khác thì thay đồi tại chỗ nào. mong anh giúp đỡ nhiều.
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range
On Error Resume Next
If Target.Address = "$B$1" Then
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
With Sheet1.Range("A1").CurrentRegion
.AutoFilter 1, "*" & Target & "*", xlAnd, IIf(Target = "SR10", "*", "<>*SR10*")
.Offset(1).SpecialCells(12).Copy
Range("A2").PasteSpecial 3
.AutoFilter
End With
For Each Clls In Range([A2], [A65536].End(xlUp))
Clls = Mid(Clls, 1, InStr(Clls, ",") - 1)
Next Clls
Target.Select
Application.ScreenUpdating = True
End If
End Sub