Ẩn dòng theo điều kiện (1 người xem)

[phanvankhanh89]

Mình muốn xin code ẩn dòng theo điều kiện trong file excel. Các bạn giúp mình với

 

[ndu96081631]

Mình muốn xin code ẩn dòng theo điều kiện trong file excel. Các bạn giúp mình với

Dùng Advanced Filter bình thường thôi là được rồi, chỉ mất có 10s thôi bạn à
Muốn viết code, hãy record macro thao tác trên

 

[SA_DQ]

Tiếp lời của NDU, ban tham khảo nha:

Option Explicit
Sub gpeLoc()
 Dim cRit As Range
 
 Sheet1.Select
 Set cRit = Range([I1], [I1].End(xlDown))
 [b2].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=cRit, CopyToRange:=Range("K1:N1"), Unique:=False
 With Sheets("KQMM")
    .[b2].CurrentRegion.Offset(1).ClearContents
    [l2].CurrentRegion.Offset(1).Copy Destination:=.[A2]
    .Select
 End With
End Sub

 

[phanvankhanh89]

Em nhầm, ở cột E là không có dữ liệu. E muốn mọi người viết code, để e có thể học luôn và những dòng mà e không muốn lấy sẽ bị xóa đi luôn!

 

[leonguyenz]

Tham khảo code này xem:
Lọc trên sheet gốc:
[gpecode=vb]
Sub AdvF()
Application.ScreenUpdating = False
On Error Resume Next
With Sheet1.Shapes("AdvFil").TextFrame.Characters
.Text = IIf(.Text = "SHOW", "HIDE", "SHOW")
If .Text = "SHOW" Then
Range("A147").AdvancedFilter 1, Range("G50:G59"), 2
Else
ActiveSheet.ShowAllData
End If
End With
Application.ScreenUpdating = True
End Sub
[/gpecode]
Lọc qua sheet2:
[gpecode=vb]
Sub AdvF_2()
Application.ScreenUpdating = False
On Error Resume Next
Sheet2.Range("A1100").Clear
Range("A147").AdvancedFilter 2, Range("G50:G59"), Sheet2.Range("A11")
Application.ScreenUpdating = True
End Sub
[/gpecode]