Nhờ anh ndu96081631 sửa lại code

[doanhhoang79]

Chào anh,

Mấy hôm trước anh đã giúp đỡ em hoàn thiện code trong form danh mục.
Em đã thử và phát hiện nếu thêm mới dữ liệu thì trong ComboBox không xuất hiện theo ý mình. Nghĩa là nó không lọc đúng anh ạ.
VD: Trong file đính kèm em đã thêm dữ liệu mới ở dòng 682 (Quận 13 của Tp. HCM thì trong ComboBox nó lại xuất hiện Quận Hồng Bàng của Tp. Hải Phòng)

Em không biết chỉnh lại đoạn code nào nên nhờ anh giúp đỡ.

Cảm ơn anh,

 

[ndu96081631]

Chào anh,

Mấy hôm trước anh đã giúp đỡ em hoàn thiện code trong form danh mục.
Em đã thử và phát hiện nếu thêm mới dữ liệu thì trong ComboBox không xuất hiện theo ý mình. Nghĩa là nó không lọc đúng anh ạ.
VD: Trong file đính kèm em đã thêm dữ liệu mới ở dòng 682 (Quận 13 của Tp. HCM thì trong ComboBox nó lại xuất hiện Quận Hồng Bàng của Tp. Hải Phòng)

Em không biết chỉnh lại đoạn code nào nên nhờ anh giúp đỡ.

Cảm ơn anh,

Tôi quên nói cho bạn biết trước:
- Code này dựa trên cơ sở của hàm Match và Countif để định vị vùng dử liệu, vì thế nếu bạn thêm dử liệu mới vào bạn phải Sort lại dử liệu theo cột Tỉnh (Để những tỉnh giống nhau nằm gần nhau)
- Bạn có thể Sort bằng tay hoặc tự động tùy thích ---> Nếu tự động thì viết thêm code.. đai khái khi Form load thì nó tự sort dử liệu cột A tăng dần ---> Nhưng nhớ khi sort chỉ bôi đên cột A và B thôi nha.. đừng có bôi đen luôn cột C thì có mà chết
-----------
Hãy thử xem

 

[doanhhoang79]

Tôi quên nói cho bạn biết trước:
- Code này dựa trên cơ sở của hàm Match và Countif để định vị vùng dử liệu, vì thế nếu bạn thêm dử liệu mới vào bạn phải Sort lại dử liệu theo cột Tỉnh (Để những tỉnh giống nhau nằm gần nhau)
- Bạn có thể Sort bằng tay hoặc tự động tùy thích ---> Nếu tự động thì viết thêm code.. đai khái khi Form load thì nó tự sort dử liệu cột A tăng dần ---> Nhưng nhớ khi sort chỉ bôi đên cột A và B thôi nha.. đừng có bôi đen luôn cột C thì có mà chết
-----------
Hãy thử xem

Em chưa hiều ý của anh, cho file cụ thể đi anh.
Em muốn nó tự động sort, anh hoàn thiện code giúp em

 

[ndu96081631]

Em chưa hiều ý của anh, cho file cụ thể đi anh.
Em muốn nó tự động sort, anh hoàn thiện code giúp em

Chài... ai....
Chỉ sort thôi mà bạn... thêm 1 đoạn nữa:

Private Sub UserForm_Initialize()
  With Range([A1], [B65536].End(xlUp))
    .Sort .Cells(2, 1), 1, Header:=xlGuess
  End With
End Sub