Giúp mình trích dữ liệu từ bảng tổng hợp

[enter86]

Các bạn ơi giú mình trích dữ liệu từ bảng tổng hợp vào thẻ kho tưng mặt hàng.

 

[agiap]

Mình bận lắm nên làm hộ 1 file thôi nhé. con lại tương tự bạn à

 

[agiap]

mình gửi kèm theo file nhưng không được. Đối với bài này mình nghĩ chỉ đơn thuần dùng hàm if thôi bạn ah. không khó đâu, bạn thử xem nha.

 

[SA_DQ]

Bạn thử kiểm lại trong file đính kèm xem sao?!

  Option Explicit
Sub TheKho()
 Dim eRw As Long, Jj As Long:                       Dim ShIndex As Integer
 Dim Dat As Date, Loai As String, SoCT, DGiai As String
 Dim Rng As Range:                                  Const Kh As String = " -"
 
 Sheets(3).Select:                                  eRw = [E65500].End(xlUp).Row
 For Jj = 4 To 6
    Sheets(Jj).Range("A9:H" & eRw).ClearContents
    
 Next Jj
 Jj = 5
 Do
    Jj = Jj + 1:                If Cells(Jj, "E").Value = "" Then Exit Do
    With Cells(Jj, "E")
        If .Offset(, -4).Value <> "" Then Dat = .Offset(, -4).Value
        If .Offset(, -3).Value <> "" Then Loai = .Offset(, -3).Value
        If .Offset(, -2).Value <> "" Then SoCT = .Offset(, -2).Value
        If .Offset(, -1).Value <> "" Then DGiai = .Offset(, -1)
        ShIndex = CInt(Switch(.Value = "DY", "4", .Value = "Po", "5", .Value = "VEN", "6"))
        Set Rng = Sheets(ShIndex).[f65500].End(xlUp)
        Rng.Offset(1, -5) = Dat:                    Rng.Offset(1, -4) = Loai
        Rng.Offset(1, -3) = SoCT:                   Rng.Offset(1, -2) = DGiai
        If UCase$(Loai) = "N" Then
            Rng.Offset(1) = .Offset(, 2):           Rng.Offset(1, 1) = Kh
            Rng.Offset(1, 2).FormulaR1C1 = "=R[-1]C+RC[-2]"
        Else
            Rng.Offset(1, 1) = .Offset(, 5):        Rng.Offset(1) = Kh
            Rng.Offset(1, 2).FormulaR1C1 = "=R[-1]C-RC[-1]"
        End If
    End With
 Loop
 Exit Sub:      End Sub

 

[enter86]

Nhạp số liệu không tự chuyển vào thẻ kho

mình nhập sô liệu ma ko thấy chuyển vô thẻ kho có thể chỉ rõ dùm mình không