Trợ giúp em mã VBA Tỉnh, Huyện, Xã

[tranbang98]

hiện là em đang làm bảng nhập liệu tên khách hàng, em dùng code dùng cho tỉnh:
"Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll1, Cll2
Dim ws As Worksheet
With Sheets("KHU_VUC")
Set Cll1 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 1)
If Cll1 Is Nothing Then Exit Sub
Set Cll2 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 2)
cb_huyen.RowSource = "KHU_VUC!" & Cll1.Offset(, 1).Address & ":" & Cll2.Offset(, 1).Address
End With
End Sub"

và code cho huyện:
Private Sub cb_huyen_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll0, Cll3
With Sheets("KHU_VUC")
Set Cll0 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 1)
If Cll0 Is Nothing Then Exit Sub
Set Cll3 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 2)
cb_xa.RowSource = "KHU_VUC!" & Cll0.Offset(, 1).Address & ":" & Cll3.Offset(, 1).Address
End With
End Sub

nhưng nó hiện ra lỗi tên huyện trùng rất nhiều !
A/C có cách nào làm cho nó không trùng tên huyện không, mong chỉ giúp ạ!
Download file

 

[be09]

hiện là em đang làm bảng nhập liệu tên khách hàng, em dùng code dùng cho tỉnh:
"Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll1, Cll2
Dim ws As Worksheet
With Sheets("KHU_VUC")
Set Cll1 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 1)
If Cll1 Is Nothing Then Exit Sub
Set Cll2 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 2)
cb_huyen.RowSource = "KHU_VUC!" & Cll1.Offset(, 1).Address & ":" & Cll2.Offset(, 1).Address
End With
End Sub"

và code cho huyện:
Private Sub cb_huyen_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll0, Cll3
With Sheets("KHU_VUC")
Set Cll0 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 1)
If Cll0 Is Nothing Then Exit Sub
Set Cll3 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 2)
cb_xa.RowSource = "KHU_VUC!" & Cll0.Offset(, 1).Address & ":" & Cll3.Offset(, 1).Address
End With
End Sub

nhưng nó hiện ra lỗi tên huyện trùng rất nhiều !
A/C có cách nào làm cho nó không trùng tên huyện không, mong chỉ giúp ạ!
Download file

Xem thử File.