Nhờ hỗ trợ lấy dữ liệu từ bảng chung. (1 người xem)

[tieuanhkiet]

Nhờ mọi người giúp đỡ ạ. Hàng ngày mình sẽ nhập lượng mua vật tư vào sheet NhapVatTu (sổ nhập liệu) theo từng nhà cung cấp.
Mình muốn ban hành công thức để excel tự động lấy theo nhà cung cấp cấp qua các sheet khác. Mỗi sheet là 1 ncc để mình theo dõi.
Nhờ mọi người giúp ạ. Chân thành cảm ơn!

 

[VetMini]

Dùng Advanced Filter thôi chứ tự động chi cho rườm rà.

 

[be_09]

Nhờ mọi người giúp đỡ ạ. Hàng ngày mình sẽ nhập lượng mua vật tư vào sheet NhapVatTu (sổ nhập liệu) theo từng nhà cung cấp.
Mình muốn ban hành công thức để excel tự động lấy theo nhà cung cấp cấp qua các sheet khác. Mỗi sheet là 1 ncc để mình theo dõi.
Nhờ mọi người giúp ạ. Chân thành cảm ơn!

Bạn vào mục Tìm kiếm của diễn đàn và gõ từ khóa Tách sheet thì sẽ tìm được rất nhiều bài viết. Nếu tìm được và tải File về tham khảo nhưng làm không được thì vào lại đó và đưa File lên hỏi thì sẽ nhanh hơn

 

[Thóc Sama]

Nhờ mọi người giúp đỡ ạ. Hàng ngày mình sẽ nhập lượng mua vật tư vào sheet NhapVatTu (sổ nhập liệu) theo từng nhà cung cấp.
Mình muốn ban hành công thức để excel tự động lấy theo nhà cung cấp cấp qua các sheet khác. Mỗi sheet là 1 ncc để mình theo dõi.
Nhờ mọi người giúp ạ. Chân thành cảm ơn!

Bạn thử code này xem được không nhé!

Sub Chia_ncc()
Dim Ws As Worksheet
Dim i As Long, j As Long, k As Long, Lr As Long, Lrs As Long
Application.ScreenUpdating = False
For Each Ws In Worksheets
    If Ws.Name <> "NhapVatTu" Then
        Sheets(Ws.Name).Range("A2:H10000") = ""
    End If
Next
With Sheet1
    Lr = .Range("B" & Rows.Count).End(xlUp).Row
    For i = 4 To Lr + 1
        For Each Ws In Worksheets
        If .Cells(i, 2) = Ws.Name And Ws.Name <> "NhapVatTu" Then
        Lrs = Sheets(Ws.Name).Range("A" & Rows.Count).End(xlUp).Row
        Sheets(Ws.Name).Range("A1:H10000").Borders.LineStyle = xlNone
        Sheets(Ws.Name).Range("A1:H" & Lrs + 1).Borders.LineStyle = xlContinuous
            Lrs = Lrs + 1
            For j = 1 To 3
                Sheets(Ws.Name).Cells(Lrs, j) = .Cells(i, j)
            Next j
            For k = 4 To 8
                Sheets(Ws.Name).Cells(Lrs, k) = .Cells(i, k + 1)
            Next k
        End If
        Next
    Next i
End With
Application.ScreenUpdating = True
End Sub

 

[tieuanhkiet]

Cảm ơn bạn nhiều nhe. Để mình làm thử

 

[le_vis]

Nhờ mọi người giúp đỡ ạ. Hàng ngày mình sẽ nhập lượng mua vật tư vào sheet NhapVatTu (sổ nhập liệu) theo từng nhà cung cấp.
Mình muốn ban hành công thức để excel tự động lấy theo nhà cung cấp cấp qua các sheet khác. Mỗi sheet là 1 ncc để mình theo dõi.
Nhờ mọi người giúp ạ. Chân thành cảm ơn!

Bạn thích công thức thì xem thử cách làm này, 100 nhà cung cấp cũng chỉ dùng 1 sheet để gọi theo mã NCC đó là được

 

[tieuanhkiet]

Vậng cảm ơn bạn rất nhiều nhe