Giúp lọc dữ liệu theo file đính kèm (1 người xem)

[longevason]

Các anh chị giúp em hướng dẫn cách lọc file đính kèm.

Tại ô B2 sheet RECIPE là tên mặt hàng cocktail.
Sheet CHI TIET là danh mục các thành phần rượu dùng để pha chế ra loại cocktail này
Giờ em muốn tại ô B2 em lấy ra tên loại cocktail nào thì sẽ đổ ra toàn bộ các tên rượu, đơn giá, thành phần, đvt ứng theo tên cocktail đó.

Nhờ mọi người giúp đỡ, em cảm ơn nhiều nhiều.

 

[Hieu07061984]

Các anh chị giúp em hướng dẫn cách lọc file đính kèm.

Tại ô B2 sheet RECIPE là tên mặt hàng cocktail.
Sheet CHI TIET là danh mục các thành phần rượu dùng để pha chế ra loại cocktail này
Giờ em muốn tại ô B2 em lấy ra tên loại cocktail nào thì sẽ đổ ra toàn bộ các tên rượu, đơn giá, thành phần, đvt ứng theo tên cocktail đó.

Nhờ mọi người giúp đỡ, em cảm ơn nhiều nhiều.

Bạn xem có phù hợp với bạn chưa.

 

[chuot0106]

Các anh chị giúp em hướng dẫn cách lọc file đính kèm.

Tại ô B2 sheet RECIPE là tên mặt hàng cocktail.
Sheet CHI TIET là danh mục các thành phần rượu dùng để pha chế ra loại cocktail này
Giờ em muốn tại ô B2 em lấy ra tên loại cocktail nào thì sẽ đổ ra toàn bộ các tên rượu, đơn giá, thành phần, đvt ứng theo tên cocktail đó.

Nhờ mọi người giúp đỡ, em cảm ơn nhiều nhiều.

Tôi dùng VBA, bạn nhớ Ennable Macros trước khi mở File nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, dk As Range, rng As Range, myrng As Range, kq As Range, k As Long, j As Long
    Set myrng = Sheet2.Range("D9:Q21")
    Set rng = Sheet2.Range("K8:Q8")
    Set kq = Sheet3.Range("B9:D32")
        If Not Intersect(Target, [B2]) Is Nothing Then
            kq.Resize(20).ClearContents
            For Each dk In rng
                If dk.Value = Sheet3.Range("B2").Value Then
                    For i = 1 To myrng.Rows.Count
                        If myrng(i, dk.Column - 3) <> "" Then
                            j = j + 1
                            kq(j, 1).Offset(0, 0).Resize(, 3) = myrng(i, dk.Column) _
                            .Offset(0, -(dk.Column - 1)).Resize(, 3).Value
                        End If
                    Next i
                End If
            Next dk
        End If
End Sub

 

[longevason]

Cảm ơn cả 2 bạn giúp đỡ, xin giúp em thêm chút nữa: đơn giá: em muốn lấy cột đơn giá qui đổi, đvt: em muốn lấy đvt recipe; định mức:là các số từng loại rượu tương ứng từng loại tên cocktail. Các anh giúp thêm chút ạ.

 

[chuot0106]

Cảm ơn cả 2 bạn giúp đỡ, xin giúp em thêm chút nữa: đơn giá: em muốn lấy cột đơn giá qui đổi, đvt: em muốn lấy đvt recipe; định mức:là các số từng loại rượu tương ứng từng loại tên cocktail. Các anh giúp thêm chút ạ.

Lần sau nói thật rõ yêu cầu từ đầu nhé bạn! Cứ lắt nhắt thế này ngại lắm!

 

[chuot0106]

File trên tôi tính nhầm cột đơn giá, do nhìn gà hóa quốc, tải lại File này nhé! Có gì hồi âm!

 

[Hieu07061984]

Cảm ơn cả 2 bạn giúp đỡ, xin giúp em thêm chút nữa: đơn giá: em muốn lấy cột đơn giá qui đổi, đvt: em muốn lấy đvt recipe; định mức:là các số từng loại rượu tương ứng từng loại tên cocktail. Các anh giúp thêm chút ạ.

Bạn xem file đính kèm nhe.

 

[longevason]

Cảm ơn 2 anh đã giúp đỡ nhiệt tình. Không biết phải cảm ơn như thế nào nữa. Em thấy sử dụng macro thật là hay, chỉ có điều em mù tịt về khoản này. Đi tìm sách đọc mà cũng không thấy quyển nào hướng dẫn về khoản này. Ai có hoặc biết tài liệu nào thì giới thiệu em với nhé. Cảm ơn anhHieu07061984 các công thức của anh cũng hiệu quả quá, em sẽ xem và nghiên cứu thêm từng công thức để hiểu rõ hơn.

 

[chuot0106]

Cảm ơn 2 anh đã giúp đỡ nhiệt tình. Không biết phải cảm ơn như thế nào nữa. Em thấy sử dụng macro thật là hay, chỉ có điều em mù tịt về khoản này. Đi tìm sách đọc mà cũng không thấy quyển nào hướng dẫn về khoản này. Ai có hoặc biết tài liệu nào thì giới thiệu em với nhé. Cảm ơn anhHieu07061984 các công thức của anh cũng hiệu quả quá, em sẽ xem và nghiên cứu thêm từng công thức để hiểu rõ hơn.

Cảm ơn thì có nhiều cách: Vật chất và tinh thần. Cảm ơn bằng tinh thần thì bạn đã làm rồi đó(Nhấn nút cảm ơn)_Rất ý nghĩa. Còn cảm ơn bằng vật chất thì cho tôi xin địa chỉ của bạn nếu có dịp đi đâu đó ghé qua làm vài chén với chuối xanh là OK rồi_ Ý nghĩa hơn!

 

[longevason]

Dạ em ở TP. Biển Nha Trang, rượu chuối thì ở đây tìm đỏ mắt cũng không ra, em xin bó tay. Nếu có dịp các anh ghé em xin thay bằng rượu vang thay chuối hột vậy.

 

[chuot0106]

Dạ em ở TP. Biển Nha Trang, rượu chuối thì ở đây tìm đỏ mắt cũng không ra, em xin bó tay. Nếu có dịp các anh ghé em xin thay bằng rượu vang thay chuối hột vậy.

Rượu gì không quan trọng, quan trọng là "đồ' để uống rượu! Ở Nha Trang thì nhiều đồ biển lắm nhỉ? Có dịp sẽ ghé qua chỗ bạn.Cho tôi xin số ĐT. Số của tôi: 0996.202.666

 

[longevason]

Dạ, số của em là 01212 135 999