XEM GIÚP EM ĐOẠN CODE ẨN CỘT THEO ĐIỀU KIỆN

Chia sẻ bởi:hands

★★★★★

‹ Shape trong excel bị lỗi. Xin giúp đỡ code VBA copy các... ›

Quảng cáo

Code như sau ạ: Ẩn cột có điều kiện là từ cột F tới cột AIE, hàng F4 tới AIE4, có chữ Qty thì ẩn cột. Sau đó ấn button cái nữa thì trả về như cũ
Code chạy lúc oke, lúc thì báo : Object variable or with block variable not set ( Chưa đặt biến hay gì gì đấy ạ )
Các bác giúp em
Sub Ancot_Level5()
Dim Rng As Range, Rng1 As Range
Set Rng = Range("F4:AIE4")
For Each Cll In Rng
    If Cll.Value = "Qty" Then
        If Rng1 Is Nothing Then
            Set Rng1 = Cll
        Else
            Set Rng1 = Union(Rng1, Cll)
        End If
    End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

Sub Ancot_Level5()
Dim Rng As Range, Rng1 As Range, Cll As Range

Set Rng = Range("F4:AIE4")
For Each Cll In Rng
If Cll.Value = "Qty" Then
If Rng1 Is Nothing Then
Set Rng1 = Cll
Else
Set Rng1 = Union(Rng1, Cll)
End If
End If
Next
1 If Not Rng1 Is Nothing Then
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
2 MsgBox Rng1.Cells.Count
3 Else
4 MsgBox "Mothing"
5 End If
End Sub