code ẩn đi những cột dữ liệu trong vùng dữ liệu không có giá trị

[buihung.8]

Muốn nhờ các bác cao thủ giúp em đoạn ẩn đi các Cột không có dữ liệu khi nhấn vào nút trong bảng sau.

 

[Ba Tê]

Muốn nhờ các bác cao thủ giúp em đoạn ẩn đi các Cột không có dữ liệu khi nhấn vào nút trong bảng sau.

Không phải "cao thủ" mà muốn làm thì được không?
Cứ viết : "Nhờ các bạn ..." là được rồi.
Đâu phải ai cũng muốn "làm" cao thủ đâu.

 

[buihung.8]

Thank bác Ba tê rất nhiều

 

[TrungChinhs]

Muốn nhờ các bác cao thủ giúp em đoạn ẩn đi các Cột không có dữ liệu khi nhấn vào nút trong bảng sau.

Bạn thử code này

Sub HUColumn()
    With [b4].SpecialCells(5).Offset(1)
        If .Columns.Count <> .SpecialCells(12).Columns.Count Then
            .EntireColumn.Hidden = False
            Exit Sub
        End If
        .EntireColumn.Hidden = True
        .SpecialCells(2).EntireColumn.Hidden = False
        .SpecialCells(3).EntireColumn.Hidden = False
    End With
End Sub