Lấy dữ liệu từ 1 Sheet sang Sheet khác theo điều kiện tự nhập ! (2 người xem)

[bannhap]

Chủ đề này cũng đã có nhiều bạn hỏi , nhưng mình đọc xong mấy bài viết khác thì cứ như vịt nghe sấm , vi vay mình tạo một chủ đề mới nhờ các bạn hướng dẫn giúp . File cua minh thì cũng đơn giản có 2 Sheet , một Sheet là có 2 cột la MaNCC va Mã mặt hàng NCC đó bán . Ở Sheet 2 thi có một dòng điều kiện , khi đánh mã NCC thì cột mã mặt hàng do NCC đó bán sẽ tự động hiện ra , nó giống như kiểu subform bên Access vậy .
Minh thấy co nhiều bài gần giống như vậy , nhưng thú thực nó phức tạp quá
Mong mọi người giúp đỡ , đang làm báo cáo mà vướng quá .Vi mình mới chỉ làm VBA bên Access nên mọng mọi người thông cảm hỗ trợ chi tiết để mình có thể hiểu và học theo được a
Cảm ơn mọi người trước a .

 

[Let'GâuGâu]

Chủ đề này cũng đã có nhiều bạn hỏi , nhưng mình đọc xong mấy bài viết khác thì cứ như vịt nghe sấm , vi vay mình tạo một chủ đề mới nhờ các bạn hướng dẫn giúp . File cua minh thì cũng đơn giản có 2 Sheet , một Sheet là có 2 cột la MaNCC va Mã mặt hàng NCC đó bán . Ở Sheet 2 thi có một dòng điều kiện , khi đánh mã NCC thì cột mã mặt hàng do NCC đó bán sẽ tự động hiện ra , nó giống như kiểu subform bên Access vậy .
Minh thấy co nhiều bài gần giống như vậy , nhưng thú thực nó phức tạp quá
Mong mọi người giúp đỡ , đang làm báo cáo mà vướng quá .Vi mình mới chỉ làm VBA bên Access nên mọng mọi người thông cảm hỗ trợ chi tiết để mình có thể hiểu và học theo được a
Cảm ơn mọi người trước a .

bạn muốn làm bằng vba hay cthuc
nếu vba, bạn phải đưa cấu trúc file thật của bạn
vì vba thì ko thể viết tổng quát cho mọi trường hợp được, phải "đo ni đóng giầy"

 

[bannhap]

Có thể viết bằng công thức được à bạn .File đầy đủ mình lại để ở công ty ,sáng mai mình xin gửi file đầy đủ lên để nhờ bạn hướng dẫn bằng VBA , vì mình cũng muốn tìm hiểu và sau này sẽ làm các file khac bàng VBA . Nhưng nếu được bạn có thể hướng dẫn mình cả cách làm bằng công thức được không .
Cảm ơn rất nhiều

 

[johnnylinhanh]

Bạn xem file ở dưới xem đúng ý chưa nhé!

 

[bannhap]

Đúng rồi đó bạn , bạn có thể hướng dẫn mình được không . Mình cảm ơn nhiều . File gốc của mình phía dưới nhờ các bạn giúp hộ mình ạ
Cảm ơn các bạn nhiều

 

[bannhap]

Bạn xem file ở dưới xem đúng ý chưa nhé!

Như vậy nếu làm bàng công thức thì sẽ có tạo thêm một cột NCC nữa đúng không bạn , Bạn hướng dẫn giúp mình được không

 

[bannhap]

Chắc là vầy ah? Paste code vào sheet "Dat hang"

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, dArr, I&, J&, r&
Application.ScreenUpdating = False
If Target.Address = "$B$4" Then
With Sheets("DM")
    Arr = .Range(.[A1], .[A65000].End(3)).Resize(, 11).Value
End With
ReDim dArr(1 To UBound(Arr), 1 To 2)
    For r = 2 To UBound(Arr)
        If Arr(r, 3) = Sheets("Dat hang").[B4].Value Then
        I = I + 1
            dArr(I, 1) = Arr(r, 1)
            dArr(I, 2) = Arr(r, 8)
        End If
    Next r
With Sheets("Dat hang")
    .Range("A10:B65000").ClearContents
    If I Then .Range("A10").Resize(I, 2) = dArr
End With
End If
Application.ScreenUpdating = True
End Sub

Đúng là hắn rùi , cảm ơn bạn rất nhiều . Còn làm bằng công thức có phải làm bằng privottablet không vậy các bạn

 

[doveandrose]

Đúng là hắn rùi , cảm ơn bạn rất nhiều . Còn làm bằng công thức có phải làm bằng privottablet không vậy các bạn

privottablet là công nghệ gì vậy bạn ? mới được MS giới thiệu chăng ?

 

[johnnylinhanh]

Như vậy nếu làm bàng công thức thì sẽ có tạo thêm một cột NCC nữa đúng không bạn , Bạn hướng dẫn giúp mình được không

Bạn xem code của bạn hpkhuong xem đúng ý chưa đã nhé!

 

[bannhap]

privottablet là công nghệ gì vậy bạn ? mới được MS giới thiệu chăng ?

Hic la PivotTable. Xin lỗi mình viết nhầm . Code cua ban hpkhuong chuẩn rồi đấy ạ. Nhưng sao mình cứ tắt file là nó cũng mất luôn code , mặc dù mình đã ấn nút Save vậy ạ