Mọi người giúp dùm việc lấy dữ liệu từ Sổ Kho tổng hợp ra kho chi tiết. (1 người xem)

[hoanglam07]

Tình hình là mình muốn lấy dữ liệu từ 1 sheet tổng hợp ( Sổ cái tổng hợp ) theo kho
Mình muốn theo dõi theo KHO vì vậy mình muốn khi mình nhập dữ liệu vào Sổ cái tổng hợp thì dữ liệu sẽ tự cập nhập vào thẻ Kho tương ứng mà trình tin học hơi bị kém nên nhờ sự giúp đỡ của mọi người.
Sổ cái tổng hợp xuất dữ liệu tương ứng quá Kho chi tiết.
Mong mọi người giúp đỡ.

 

[Ba Tê]

Tình hình là mình muốn lấy dữ liệu từ 1 sheet tổng hợp ( Sổ cái tổng hợp ) theo kho
Mình muốn theo dõi theo KHO vì vậy mình muốn khi mình nhập dữ liệu vào Sổ cái tổng hợp thì dữ liệu sẽ tự cập nhập vào thẻ Kho tương ứng mà trình tin học hơi bị kém nên nhờ sự giúp đỡ của mọi người.
Sổ cái tổng hợp xuất dữ liệu tương ứng quá Kho chi tiết.
Mong mọi người giúp đỡ.

Mỗi lần chỉ xem được 1 Kho, Thay vì chọn sheet khác thì chọn tên kho khác trong cùng 1 sheet được không?
Không chịu thì tính sau.

 

[hoanglam07]

Mỗi lần chỉ xem được 1 Kho, Thay vì chọn sheet khác thì chọn tên kho khác trong cùng 1 sheet được không?
Không chịu thì tính sau.

Dạ thank anh , anh làm thêm mỗi kho 1 sheet dc ko anh , vì từ kho đó em còn lấy dữ liệu để tính hàng tồn trong mỗi kho đó nữa .
Mong nhận được sự giúp đỡ.

 

[Ba Tê]

Mỗi lần chỉ xem được 1 Kho, Thay vì chọn sheet khác thì chọn tên kho khác trong cùng 1 sheet được không?
Không chịu thì tính sau.

Dùng VBA được không?
Hơn chục kho, dùng công thức mảng, dữ liệu nhiều máy chạy "oải" lắm.

 

[hoanglam07]

Dùng VBA được không?
Hơn chục kho, dùng công thức mảng, dữ liệu nhiều máy chạy "oải" lắm.

vâng được anh , hiện tai thì chỉ có nhiêu đó kho , ko biet sau này thêm kho thi sao anh , có thêm vào dc ko nhỉ ?
Cty em chuyên về phan bón , kho thì kho mướn nên số lượng kho có thể thay đổi.
Anh có thể chỉ sơ em về cách làm dc ko anh ?

 

[Ba Tê]

vâng được anh , hiện tai thì chỉ có nhiêu đó kho , ko biet sau này thêm kho thi sao anh , có thêm vào dc ko nhỉ ?
Cty em chuyên về phan bón , kho thì kho mướn nên số lượng kho có thể thay đổi.
Anh có thể chỉ sơ em về cách làm dc ko anh ?

- Tên các sheet Kho phải có trong cột A sheet "Ma_Kho"
- Tên sheet không nên có dấu tiếng Việt, không nên có khoảng trắng

 

[hoanglam07]

thank BA TE nhiều ,
Ak con chút mún hỏi anh , nếu em mún chèn thêm cột vào Sheet SoTongHop thì sao nhỉ anh ?

 

[Ba Tê]

thank BA TE nhiều ,
Ak con chút mún hỏi anh , nếu em mún chèn thêm cột vào Sheet SoTongHop thì sao nhỉ anh ?

Thì nói rõ chèn thêm vào đâu, chèn thêm bi nhiêu cột.
Thay code này, chỉ cần chính xác cột E là Mã Kho phải đúng với tên sheet, còn mấy cột khác nằm đâu cũng được, miễn là tiêu đề cột phải giống nhau từ trái sang phải là được.

Public Sub LOC_GPE()
Dim Dic As Object, Ws As Worksheet, sArr(), dArr(), I As Long, J As Long, K As Long, DK As String, Tem As String, Col As Long
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Ma_Kho")
    sArr = .Range(.[A2], .[A2].End(xlDown)).Value
End With
For I = 1 To UBound(sArr, 1)
    Tem = UCase(sArr(I, 1))
    If Not Dic.Exists(Tem) Then Dic.Add Tem, Empty
Next I
With Sheets("SoTongHop")
    Col = .Range("IV2").End(xlToLeft).Column
    sArr = .Range(.[A3], .[A65536].End(xlUp)).Resize(, Col).Value
End With
For Each Ws In ThisWorkbook.Worksheets
    K = 0: DK = UCase(Ws.Name)
    If Dic.Exists(DK) Then
        ReDim dArr(1 To UBound(sArr, 1), 1 To Col + 1)
        For I = 1 To UBound(sArr, 1)
            If UCase(sArr(I, 5)) = DK Then                      '"Cot E la cot MaKho"'
                K = K + 1
                For J = 1 To Col
                    dArr(K, J) = sArr(I, J)
                Next J
            End If
        Next I
        With Ws
            .[A5:A1000].Resize(, Col).ClearContents
            .[A5].Resize(K, Col) = dArr
        End With
    End If
Next Ws
Set Dic = Nothing
End Sub

 

[hoanglam07]

CẢm ơn BA TÊ rất nhiều ,