Nhờ sửa code ẩn hiện

[tuan16]

em có sưu tầm được đoạn code ẩn hiện dòng trên diễn đàn nhưng không hiểu sao khi thức hiện code lại ẩn hiện từ dòng 23 đến dòng 128 ... Em xin nhờ các anh chị sửa giúp với ạ
Private Sub CommandButton6_Click()
Dim Check As Boolean
Check = (CommandButton6.Caption = "Hide")
CommandButton6.Caption = IIf(Check, "Show", "Hide")
With shHSNTCVNBCV5.Range("d22:d121")
If Check Then
.AutoFilter 1, "<>", , , False
Else
.Parent.ShowAllData
End If
End With
End Sub

 

[huonglien1901]

em có sưu tầm được đoạn code ẩn hiện dòng trên diễn đàn nhưng không hiểu sao khi thức hiện code lại ẩn hiện từ dòng 23 đến dòng 128 ... Em xin nhờ các anh chị sửa giúp với ạ
Private Sub CommandButton6_Click()
Dim Check As Boolean
Check = (CommandButton6.Caption = "Hide")
CommandButton6.Caption = IIf(Check, "Show", "Hide")
With shHSNTCVNBCV5.Range("d22:d121")
If Check Then
.AutoFilter 1, "<>", , , False
Else
.Parent.ShowAllData
End If
End With
End Sub

Bạn có thể gửi file đó lên được không?

 

[befaint]

Bí mật ở đây này.

 

[tuan16]

Bạn có thể gửi file đó lên được không?

dạ xin nhờ anh chị giúp ạ

Bài đã được tự động gộp: 28/7/21

Bí mật ở đây này.

View attachment 263193

dạ nhưng sao lại chạy đến dòng 128 ạ

 

[curet]

Bạn phải lọc theo cột T mới đúng

With shHSNTCVNBCV5.Range("T22:T121")

 

[tuan16]

Bạn phải lọc theo cột T mới đúng

With shHSNTCVNBCV5.Range("T22:T121")

Cột t cũng không phải ạ.. vẫn ẩn hiện dòng đến dòng 128

 

[befaint]

ẩn hiện dòng đến dòng 128

AutoFilter nó như vậy.

 

[tuan16]

AutoFilter nó như vậy.

dạ vâng. em cảm ơn ạ