code cho combobox và checkbox

[nmhung49]

Khi em chọn combobox ví dụ là: 0004001021 CN Tiền Giang thì sẽ lấy số liệu bên sheet du lieu đem qua ứng với dữ liệu em tô màu hồng. Du liệu gốc bên sheet dulieu rất phức tạp tại vì em load từ phần mềm xuống em xử lý xong mới đưa vào sheet dulieu nên em không đưa dữ liệu gốc. Mong Anh Chị giúp đỡ em về code

 

[ptm0412]

File này chỉ cần autofilter, copy và paste.

 

[ptlong04x1]

Khi em chọn combobox ví dụ là: 0004001021 CN Tiền Giang thì sẽ lấy số liệu bên sheet du lieu đem qua ứng với dữ liệu em tô màu hồng. Du liệu gốc bên sheet dulieu rất phức tạp tại vì em load từ phần mềm xuống em xử lý xong mới đưa vào sheet dulieu nên em không đưa dữ liệu gốc. Mong Anh Chị giúp đỡ em về code

Code như sau :
- Click ALL CHOICE sẽ cho hiện hết dữ liệu, Combo box sẽ bị xoá trắng.
- Chọn lại giá trị trong Combo box --> Lọc dữ liệu theo Combo box và Checkbox ALL CHOICE bị clear.

Private Sub CbB1_Change()
    On Error Resume Next
    If CbB1 = "" Then Exit Sub
    ChB1 = False
    Sheets("dulieu").Range("a1").AutoFilter 1, CbB1
    CopData
End Sub

Private Sub ChB1_Change()
    If ChB1 = True Then
        CbB1 = ""
        Sheets("dulieu").AutoFilterMode = False
        CopData
    End If
End Sub

Sub CopData()
    Range("b5", [b65000].End(xlUp)).Resize(, 9).ClearContents
    With Sheets("dulieu")
        .Range("a2", .[a65000].End(xlUp)).Resize(, 9).Copy [b5]
    End With
End Sub

--> Xem file.

 

[nmhung49]

xin cho em hỏi thêm

Khi em chọn khách hàng có mã code 002 ở đầu qua sheet dulieu chon A, B, C, D, E va khi đó qua sheet report chỉ paste vào côt B,C, D, E, F, còn khi chọn em chọn khách hàng có mã code 0004 qua sheet dulieu chon A, F, H,I va khi đó qua sheet report chỉ paste vào cột G, H,I, J. Mong 2 anh chỉnh lại code giúp và các bạn giúp mình tại vì dữ liệu bên sheet dulieu có nhiều dữ liệu không cần thiết tại vì em đã xoá bớt. Thanks

 

[ptm0412]

Dữ liệu bị xoá bớt đó có đặc điểm gì khác nhau? Tại sao đối với mã này thì copy 4 cột này, đối với mã kia thì copy 4 cột kia?

Nghĩa là: Các dữ liệu đã bị xoá có liên quan đến mã hoặc ký tự trong mã, đến thời gian, đến mã hàng, đến số lượng, trọng lượng, đến thành tiền hay bất cứ thứ gì khác?

(Người trả lời biến thành người hỏi đây mà)

 

[nmhung49]

có nhiều khác biệt

tại vì khi em test từ phần mềm xuống thì nó xuất hiện rất rất nhiều dữ liệu trong excel không cần thiết, vì khách hàng mã 002là bán bên ngoài còn chi nhánh mã 0004 là bán nội bộ khác xa nhau

 

[ptm0412]

Tôi cần biết sự khác nhau, tất cả sự khác nhau, để làm một lần thôi.
Tôi muốn biết khi nào, tức là điều kiện nào, để copy 4 cột này, ngược lại, thì copy 4 cột kia.

Tôi không cần câu trả lời "có nhiều khác biệt" hay "có ít khác biệt", cũng không cần cái câu "rất rất nhiều", tôi cần liệt kê tất cả những cái khác đó ra.

Hỏi lần cuối:

1. Có phải Chỉ cần khác 4 ký tự đầu của mã là 0002 hoặc 0004 là xử lý khác nhau?

- Còn mã nào khác 0002xxxx và 0004xxxx hay không?
- Nếu có thì những mã còn lại copy cột nào, paste vào đâu?

2. Có điều kiện nào khác hơn là các ký tự đầu của mã hay không? Thí dụ Trọng lượng, thành tiền, ...
Đừng trả lời 1 câu cụt lủn là "có, có rất nhiều", nếu có thì phải liệt kê ra.

 

[ptlong04x1]

tại vì khi em test từ phần mềm xuống thì nó xuất hiện rất rất nhiều dữ liệu trong excel không cần thiết, vì khách hàng mã 002là bán bên ngoài còn chi nhánh mã 0004 là bán nội bộ khác xa nhau

Vấn đề ở đây là bạn diễn đạt làm sao cho người không biết gì về công việc của bạn cũng có thể hiểu được và thao tác được. Nếu trình bày rõ hơn thì chắc vấn đề được giải quyết lâu rồi.

 

[ngocmaipretty]

Xin phép chen ngang tí.
Các trường hợp có mã khác với 0004xxxx và 002xxxx đề nghị nmhung49 bổ sung
Các điều kiện khác nếu có, đề nghị nmhung49 bổ sung

Còn với điều kiện duy nhất hiện tại mà nmhung49 cho thì NgocMai tạm làm bằng cách bổ sung code (quậy thì đúng hơn), nếu 0004xxx thì sau khi paste sẽ xoá 4 cột này, nếu 002xxx thì xoá 4 cột kia.

Nói thật ra là trình độ VBA của NgocMai giới hạn trong record macro và For - Next thêm cái If Then Else thôi, chỉ copy 1 phần nhất là 1 phần gồm 2 Ranges rời rạc thì NgocMai không biết làm, đành phải ăn gian copy hết rồi xoá bớt.

Với lại dùng If - ElseIf sau này có thêm điều kiện gì nhét zô cũng dễ.