Lỗi 424 - Run-time Erro

[lele13]

em đang muốn lập công thức tự động ẩn cột theo điều kiện, em mới học VBA qua google thôi nên mọi người giúp đỡ giúp em với
Mục tiêu là ẩn các cột từ H4:HM4 có giá trị khác với ô A3
Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range
If Target.Address = "$A$3" Then
For Each Clls In [h4:hm4]
CllsEntireColumn.Hidden = (Month(Clls) <> Month(Target))
Next Clls
End If
End Sub
Em cảm ơn mn.

 

[Bluestar092011]

em đang muốn lập công thức tự động ẩn cột theo điều kiện, em mới học VBA qua google thôi nên mọi người giúp đỡ giúp em với
Mục tiêu là ẩn các cột từ H4:HM4 có giá trị khác với ô A3
Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range
If Target.Address = "$A$3" Then
For Each Clls In [h4:hm4]
CllsEntireColumn.Hidden = (Month(Clls) <> Month(Target))
Next Clls
End If
End Sub
Em cảm ơn mn.

Tôi chỉ sửa cho code chạy thôi, còn nó chạy sai là do bạn tổ chức dữ liệu nhé.

Sub Worksheet_Change(ByVal Target As Range)
 Dim Clls As Range
 If Target.Address = "$A$3" Then
   For Each Clls In [h4:hm4]
      Clls.EntireColumn.Hidden = (Val(Left(Clls, 2)) <> Target)
   Next Clls
 End If
End Sub

Dữ liệu vùng [h4:hm4] do bạn ghép lại nên code chạy như thế là đúng.

 

[SA_DQ]

A3 đang là con số 6, hay bạn sẽ nhập gì khác vô ô sự kiện này?