Xin hỗ trợ Code Vba lọc dữ liệu (4 người xem)

[nhannv.banker]

Xin các cao thủ chỉ giáo code VBA
Em có file gồm sheet dữ liệu và sheet lọc thông tin như file đính kèm
Tại sheet thông tin khách hàng em cần lọc các tài khoản ACCNO có cùng 1 số CIFNO khi nhập số CIF vào ô CIF, và với điều kiện chỉ lấy các tài khoản có CBAL >0.
Kính mong các cao thủ chỉ giáo bằng code VBA.
Em đã sử dụng hàm và Pvtable tuy nhiên do dữ liệu lớn và còn thêm nhiều thao tác ở phía sau mong các cao thủ giúp đỡ.
Trân trọng cảm ơn.

 

[concogia]

Xin các cao thủ chỉ giáo code VBA
Em có file gồm sheet dữ liệu và sheet lọc thông tin như file đính kèm
Tại sheet thông tin khách hàng em cần lọc các tài khoản ACCNO có cùng 1 số CIFNO khi nhập số CIF vào ô CIF, và với điều kiện chỉ lấy các tài khoản có CBAL >0.
Kính mong các cao thủ chỉ giáo bằng code VBA.
Em đã sử dụng hàm và Pvtable tuy nhiên do dữ liệu lớn và còn thêm nhiều thao tác ở phía sau mong các cao thủ giúp đỡ.
Trân trọng cảm ơn.

Thử em này
Thân

 

[nhannv.banker]

Thử em này
Thân

Em cảm ơn anh nha !
Để em chạy thử.

 

[nhannv.banker]

Em cảm ơn anh nha !
Để em chạy thử.

Em chạy được rồi, em cảm ơn anh !

 

[nhannv.banker]

Em chạy được rồi, em cảm ơn anh !

Tiếp theo code này, em vận dụng để lấy số id ở cột 6 khi có cùng số cif tại cột 38 của sheet coldx.
Điền vào ô a110 đến hết.
Tuy nhiên khi chạy báo lỗi runtime erro 6 overflow
Mong mọi người khắc phục giúp em ạ.

 

[SA_DQ]

Trong file có 3 macro; Hiện cái nào mà bạn chạy báo lỗi vậy?
Tiêu đề cột 6 & 38 nên tô màu khác để dễ nhận biết => Tiết kiệm thời gian cho người có nhã í giúp bạn.
Câu lệnh này nên viết tường minh hơn:

Vung = Sheets("tfmast").Range(Sheets("tfmast").[A2], Sheets("tfmast").[A500000].End(xlUp)).Resize(, 86)

 

[nhannv.banker]

Trong file có 3 macro; Hiện cái nào mà bạn chạy báo lỗi vậy?
Tiêu đề cột 6 & 38 nên tô màu khác để dễ nhận biết => Tiết kiệm thời gian cho người có nhã í giúp bạn.
Câu lệnh này nên viết tường minh hơn:

Vung = Sheets("tfmast").Range(Sheets("tfmast").[A2], Sheets("tfmast").[A500000].End(xlUp)).Resize(, 86)

Dạ, macro info_taisan đó ạ.
Nó báo lỗi overflow. Runtime error 6 ạ.

 

[SA_DQ]

Public Sub Info_TaiSan()
    Dim Vung, I, K, Kq, Dk
    Dk = Sheets("Thong tin khach hang").[B1]
    With Sheets("COLDX")
1        Vung = .Range(.[A2], .[A500000].End(xlUp)).Resize(, 6).Value   '*'
    End With
    ReDim Kq(1 To UBound(Vung), 1 To 1)
        For I = 1 To UBound(Vung)
2            If Vung(I, 38) = Dk Then                                '*'
                    K = K + 1
                    Kq(K, 1) = Vung(I, 6)
            End If
        Next I
    If K > 0 Then
        [A110:A500000].ClearContents
        [A110].Resize(K) = Kq
    End If
End Sub

Dòng lệnh cũ mang số 1 bạn có 2 lỗi nhỏ cần khắc fục
a./ Cuối câu lệnh cần tường minh như mình nhắc
b./ Tại ô [A113] đang chứa trị sai; Bạn sửa lại ngay Hay thử bỏ trị đang hiện hữu đi.

Dòng lệnh đánh số 2 đang sai & bạn được cảnh báo do: Mảng nạp vô chỉ gồm 6 cột, Lấy đâu ra 38 cột kia chứ?

 

[nhannv.banker]

Public Sub Info_TaiSan()
    Dim Vung, I, K, Kq, Dk
    Dk = Sheets("Thong tin khach hang").[B1]
    With Sheets("COLDX")
1        Vung = .Range(.[A2], .[A500000].End(xlUp)).Resize(, 6).Value   '*'
    End With
    ReDim Kq(1 To UBound(Vung), 1 To 1)
        For I = 1 To UBound(Vung)
2            If Vung(I, 38) = Dk Then                                '*'
                    K = K + 1
                    Kq(K, 1) = Vung(I, 6)
            End If
        Next I
    If K > 0 Then
        [A110:A500000].ClearContents
        [A110].Resize(K) = Kq
    End If
End Sub

Dòng lệnh cũ mang số 1 bạn có 2 lỗi nhỏ cần khắc fục
a./ Cuối câu lệnh cần tường minh như mình nhắc
b./ Tại ô [A113] đang chứa trị sai; Bạn sửa lại ngay Hay thử bỏ trị đang hiện hữu đi.

Dòng lệnh đánh số 2 đang sai & bạn được cảnh báo do: Mảng nạp vô chỉ gồm 6 cột, Lấy đâu ra 38 cột kia chứ?

Cảm ơn anh đã giúp đỡ.