Tự động cập nhật dữ liệu không theo ý muốn!

[NH_DK]

Chào các AC! Em có file này không hiểu sao tối qua em tạo thêm cho sheet SCT và sheet SCT2 mỗi sheet 1 cái nút combobox. Nhưng không hiểu sao từ khi tạo xong thì bên sheet KHPTR và sheet KHPT cứ thêm mã khách hàng vào cột A thì nó lại tự động cập nhật dữ liệu của các sheet chi tiết kia. Cả tối qua tìm mãi cách để xử lý nhưng vẫn chưa có giải pháp nào cả. Hôm nay em đưa lên đây nhờ các AC chỉ dùm cho em chỗ code sai của em nhé!
Em chân thành cám ơn!

 

[sealand]

Mình đã xem nhưng không hiểu nó cập nhật như thế nào cả.

 

[ndu96081631]

Chào các AC! Em có file này không hiểu sao tối qua em tạo thêm cho sheet SCT và sheet SCT2 mỗi sheet 1 cái nút combobox. Nhưng không hiểu sao từ khi tạo xong thì bên sheet KHPTR và sheet KHPT cứ thêm mã khách hàng vào cột A thì nó lại tự động cập nhật dữ liệu của các sheet chi tiết kia. Cả tối qua tìm mãi cách để xử lý nhưng vẫn chưa có giải pháp nào cả. Hôm nay em đưa lên đây nhờ các AC chỉ dùm cho em chỗ code sai của em nhé!
Em chân thành cám ơn!

Cái vụ ComboBox "tự kích hoạt" tôi đã từng bị rồi
Tuy nhiên, bạn đưa 1 file có cả đống dữ liệu + code thế kia thì chẳng ai đủ kiên nhẩn xem cho bạn đâu
Vậy thì: Cứ tự mình nghiên cứu bằng cách thêm cái này, bớt cái kia để tìm ra vấn đề nhé

 

[ptm0412]

I. Nguyên nhân:

Có 2 nguyên nhân:
1. Các code taoso trong module được gọi ra chạy trong sự kiện Combobox change.
- ListFillRange của combobox là 1 Name.
- Đã là Name thì nó sẽ tự cập nhật khi có thay đổi (tăng thêm mã)
- Name cập nhật: Combobx cũng cập nhật (thay đổi) dẫn đến Code taoso chạy

2. Các sub taoso đặt trong module chứ không phải đặt trong sheet. Trong đó có đoạn:

Do
    [COLOR=#ff0000]Cells(i, 1)[/COLOR].Resize(, 4) = S2.Cells(TimCell.Row, 1).Resize(, 4).Value
    Select Case TimCell.Column
    Case 6
        [COLOR=#ff0000]Cells(i, 5)[/COLOR] = TimCell.Offset(, 1).Value
        [COLOR=#ff0000]Cells(i, 6)[/COLOR] = TimCell.Offset(, 2).Value
    Case 7
        [COLOR=#ff0000]Cells(i, 5)[/COLOR] = TimCell.Offset(, -1).Value
        [COLOR=#ff0000]Cells(i, 7)[/COLOR] = TimCell.Offset(, 2).Value
    End Select

Những cells tô đỏ trên đây không xác định của sheet nào, nó sẽ bị cho rằng của ActiveSheet.

II. Khắc phục:

1. Chạy code dựa vào sự thay đổi của LinkedCell thay vì sự thay đổi của bản thân Combobox.
2. Chắc không cần nói...

 

[ptm0412]

Bực mình quá!
Tại sao góp ý bao nhiêu lần mà vẫn để chuyện này xảy ra: Tất cả file Excel của tôi đang làm việc bị gán tiêu đề vớ vẩn thế này:

Tôi cần quái gì phải trương cái "chương trình kế toán excel" vớ va vớ vẩn đó trong máy của tôi?
Cứ thế này thì lần sau tôi sẽ không bao giờ mở file của NHDK ra nữa.