Code update list validation. Nhờ xem dùm sao ko chạy được. (1 người xem)

[skullrock]

Mục đích code là sẽ làm trống ô C10 khi thay đổi value ô C8. Xem giúp file đính kèm chỉ mình với.
Cám ơn.

 

[nghiaphuc]

Mục đích code là sẽ làm trống ô C10 khi thay đổi value ô C8. Xem giúp file đính kèm chỉ mình với.
Cám ơn.

Mình thấy code chạy bình thường chứ có vấn đề gì đâu nhỉ.

 

[ndu96081631]

Mục đích code là sẽ làm trống ô C10 khi thay đổi value ô C8. Xem giúp file đính kèm chỉ mình với.
Cám ơn.

Tôi thấy file đâu có vấn đề gì chứ
Nếu "Mục đích code là sẽ làm trống ô C10 khi thay đổi value ô C8" thì nó đã đạt rồi còn gì. Trên máy bạn không chạy có thể bạn chưa Enable Macros chăng?

 

[sealand]

Tiện Code ta làm luôn khỏi Name, ô trên mình dùng hàm Indirect nên cũng bỏ Name Type luôn

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rg As Range
    If Not Intersect(Target, Range("C8")) Is Nothing Then
        Sheets("sheet1").Range("C10").Value = ""
         Set Rg = Sheet2.[M2:AN2].Find([C8], LookIn:=xlValues, LookAt:=xlWhole)
            Set Rg = Sheet2.Range(Rg.Offset(1), Rg.End(xlDown))
            With [C10].Validation
        .Delete
        If Rg Is Nothing Then Exit Sub
        .Add Type:=xlValidateList, Formula1:="=indirect(" & Chr(34) & "Data!" & Rg.Address & Chr(34) & ")"
        End With
    End If
End Sub

 

[skullrock]

ah xin lỗi, em cũng không hiểu, tắt excel xong mở lại thì chạy được rồi, cám ơn mọi người.