Lập công thức trích xuất dữ liệu từ sheet này qua sheet khác

[daianphuc]

Kính gởi anh chị trong diễn đàn !
Tôi cần lập công thức trích xuất dữ liệu từ sheet Tổng hợp qua các sheet chi tiết ( File đính kèm ) . Kính mong anh chị hướng dẫn lập hàm và hổ trợ
Chân thành cảm ơn

 

[Thóc Sama]

Kính gởi anh chị trong diễn đàn !
Tôi cần lập công thức trích xuất dữ liệu từ sheet Tổng hợp qua các sheet chi tiết ( File đính kèm ) . Kính mong anh chị hướng dẫn lập hàm và hổ trợ
Chân thành cảm ơn

Sheet 60C-39702 ô B18 thử công thức: =IFERROR(INDEX('Tong hop'!$A$1:$N$24,SMALL(IF(IFERROR(SEARCH("60C-39702",'Tong hop'!$F$18:$F$24),"")<>"",ROW('Tong hop'!$F$18:$F$24),""),ROW(W1)),COLUMN(B1)),"")
Ctrl+Shift+Enter
Fill qua phải và xuống dưới
Các phần còn lại có thể tham khảo công thức trên
Nhưng khuyên bạn:
Nên thiết kế lại cơ sở dữ liệu để dùng Pivot Table cho nhanh hoặc nhờ viết code. Nếu có vài chục cái xe mà viết công thức kiểu này là mỏi tay đấy.

 

[Maika8008]

Một khi công thức dài, rối rắm cộng với dữ liệu nhiều thì dùng công thức trở thành một gánh nặng cho file.

 

[TongDe]

Kính gởi anh chị trong diễn đàn !
Tôi cần lập công thức trích xuất dữ liệu từ sheet Tổng hợp qua các sheet chi tiết ( File đính kèm ) . Kính mong anh chị hướng dẫn lập hàm và hổ trợ
Chân thành cảm ơn

Bạn tham khảo cách của mình nha...
Tổ chức nhập dữ liệu hàng ngày như sheet PhatSinh...
Qua Sheet Khach hoặc Xe chọn trong combobox ô H1...

 

[daianphuc]

Sheet 60C-39702 ô B18 thử công thức: =IFERROR(INDEX('Tong hop'!$A$1:$N$24,SMALL(IF(IFERROR(SEARCH("60C-39702",'Tong hop'!$F$18:$F$24),"")<>"",ROW('Tong hop'!$F$18:$F$24),""),ROW(W1)),COLUMN(B1)),"")
Ctrl+Shift+Enter
Fill qua phải và xuống dưới
Các phần còn lại có thể tham khảo công thức trên
Nhưng khuyên bạn:
Nên thiết kế lại cơ sở dữ liệu để dùng Pivot Table cho nhanh hoặc nhờ viết code. Nếu có vài chục cái xe mà viết công thức kiểu này là mỏi tay đấy.

Cảm ơn Bạn . Mình sẽ cố gắng rfút gọn biểu

Bài đã được tự động gộp: 11/4/22

Bạn tham khảo cách của mình nha...
Tổ chức nhập dữ liệu hàng ngày như sheet PhatSinh...
Qua Sheet Khach hoặc Xe chọn trong combobox ô H1...

Cảm ơn bạn đã hổ trợ

 

[daianphuc]

Bạn tham khảo cách của mình nha...
Tổ chức nhập dữ liệu hàng ngày như sheet PhatSinh...
Qua Sheet Khach hoặc Xe chọn trong combobox ô H1...

Bác xem giúp mình ở sheet phatsinh . Ở cột khách hàng khi mình sử dụng hàm vlook để dò tìm khách hàng cho nhanh thì lúc chuyển qua sheet khách hàng xem chi tiết khách hàng thì bị báo lổi . Mong bác xem giúp

 

[BuiQuangThuan]

Bác xem giúp mình ở sheet phatsinh . Ở cột khách hàng khi mình sử dụng hàm vlook để dò tìm khách hàng cho nhanh thì lúc chuyển qua sheet khách hàng xem chi tiết khách hàng thì bị báo lổi . Mong bác xem giúp

Anh thay toàn bộ code trong sheet PhatSinh bằng code này. Xin phép cho em sửa 1 chút code trong file của anh Tống Văn Đệ

Option Explicit
Private Sub Worksheet_Deactivate()
    Dim sArr(), Dic As Object, iR&, Dic1 As Object, i&
    Set Dic = CreateObject("Scripting.dictionary")
    Set Dic1 = CreateObject("Scripting.dictionary")
    Application.EnableEvents = False
    Application.ScreenUpdating = False
        iR = Range("A" & Rows.Count).End(3).Row
        sArr = Range("A6:N" & iR).Value
        For i = 2 To UBound(sArr)
            If Dic.exists(sArr(i, 6)) = False Then
                Dic.Add (sArr(i, 6)), i
            End If
            If Dic1.exists(sArr(i, 8)) = False Then
                Dic1.Add (sArr(i, 8)), i
            End If
        Next
        With Sheets("Khach").Range("H1").Validation
            .Delete
            .Add xlValidateList, , , VBA.Join(Dic1.keys, ",")
        End With
        With Sheets("XE").Range("H1").Validation
            .Delete
            .Add xlValidateList, , , VBA.Join(Dic.keys, ",")
        End With
        Set Dic1 = Nothing: Set Dic = Nothing
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[TongDe]

Khi Deactive trang PhatSinh, thì tạo list validation cho 2 sheet chọn...
Nếu dã có list sẵn thì bạn chỉ cần gán thẳng vào cell H1...