Các bạn giúp mình sữa lỗi VBA trong file mình gửi kèm với (2 người xem)

[nvthanhdienbien]

Các bạn giúp mình gỡ lỗi VBA trong file với

 

[BuiQuangThuan]

Hãy mô tả rõ ràng 1 chút. Chứ nói cụt ngủn thế kia thì biết giúp bạn thế nào?

 

[Nhattanktnn]

Các bạn giúp mình gỡ lỗi VBA trong file với

Góc đoán mò: Không có KH02, arrKH không có gì cả --> Lỗi

 

[SA_DQ]

@Tác giả bài đăng: Lỗi gì bạn đang gặp phải vậy? & nó báo cho bạn rồi mà bạn không báo cho chứng tớ với là nghỉ chơi với bạn luôn à nha!

    With wsData
        .Activate
        For Each cll In .Range(Cells(2, "A"), Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A"))
          '. . . . .   '
        Next cll
    End With

Hình như phải viết là:
For Each cll In .Range( .Cells(2, "A"), .Cells(Rows.Count, "A").End(xlUp))

 

[nvthanhdienbien]

@Tác giả bài đăng: Lỗi gì bạn đang gặp phải vậy? & nó báo cho bạn rồi mà bạn không báo cho chứng tớ với là nghỉ chơi với bạn luôn à nha!

    With wsData
        .Activate
        For Each cll In .Range(Cells(2, "A"), Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A"))
          '. . . . .   '
        Next cll
    End With

Hình như phải viết là:
For Each cll In .Range( .Cells(2, "A"), .Cells(Rows.Count, "A").End(xlUp))

Khi

Hãy mô tả rõ ràng 1 chút. Chứ nói cụt ngủn thế kia thì biết giúp bạn thế nào?

Xin lỗi bạn, mình mô tả lỗi như sau: Khi mình chạy Userform và chọn Option phần KH01 hoặc KH02, nếu trong bảng dữ liệu có KH01 và KH02, nếu không có thì sẽ bị báo lỗi

Bài đã được tự động gộp: 23/10/23

Góc đoán mò: Không có KH02, arrKH không có gì cả --> Lỗi

Đúng rồi bạn, vậy nếu muốn bỏ qua lỗi đó thì xử lý sao

 

[Nhattanktnn]

Đúng rồi bạn, vậy nếu muốn bỏ qua lỗi đó thì xử lý sao

Sửa .List_DS.Column = arrKH thành:

If Not Not arrKH Then .List_DS.Column = arrKH

 

[SA_DQ]

Xin lỗi bạn, mình mô tả lỗi như sau: (1) Khi mình chạy Userform và chọn Option phần KH01 hoặc KH02, nếu trong bảng dữ liệu có KH01 và KH02, nếu không có thì sẽ bị báo lỗi

(2) Đúng rồi bạn, vậy nếu muốn bỏ qua lỗi đó thì xử lý sao

(1) Nó báo lỗi ở macro nào hay cụ thể là ở dòng lệnh nào?
Biết điều này để giải quyết căn cơ hơn mà thôi
Ví dụ nếu macro lỗi là như #4 thì ta xét xem
.Range(Cells(2, "A"), Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "A"))
Vùng này có bao nhiêu ô không rỗng . . .
(2) Ta phải học cách sống chung với lỗi, không nên phớt lờ nó!