NHỜ A/CHỊ CÀI GIÚP CÔNG THỨC ĐỂ LINKS DỮ LIỆU SANG SHEET MỚI (2 người xem)

[nhphuc91]

Nhờ A/chị xem giúp e bài này

 

[n0thing1988]

Nhờ A/chị xem giúp e bài này

Công thức tại A7=IFERROR(LOOKUP(2;1/((ROW()-6)='SO THEO DOI TIEN MAT'!$J$5:$J$18);'SO THEO DOI TIEN MAT'!B$5:B$18);"")
Kéo cho toàn bảng.
Số dư đầu: G3='SO THEO DOI TIEN MAT'!I2+SUMIFS('SO THEO DOI TIEN MAT'!$G$5:$G$18;'SO THEO DOI TIEN MAT'!$A$5:$A$18;"<="&Sheet2!F3)-SUMIFS('SO THEO DOI TIEN MAT'!$H$5:$H$18;'SO THEO DOI TIEN MAT'!$A$5:$A$18;"<="&Sheet2!F3)
Chi tiết trong file đính kèm

 

[phulien1902]

Nhờ A/chị xem giúp e bài này

Thử:

Option Explicit
Sub abc()
     Dim a(), b(), i&, k&, DK&
    With Sheets("SO THEO DOI TIEN MAT")
        a = .Range("A5", .Range("A6000").End(3)).Resize(, 9).Value
    End With
    ReDim b(1 To UBound(a), 1 To 8)
    With Sheets(2)
        DK = .Range("F3").Value
        For i = 1 To UBound(a)
            If a(i, 1) = DK Then
                k = k + 1: b(k, 1) = a(i, 2): b(k, 2) = a(i, 3): b(k, 3) = a(i, 4)
                b(k, 5) = a(i, 5): b(k, 6) = a(i, 6): b(k, 7) = a(i, 7): b(k, 8) = a(i, 8)
            End If
        Next
        .Rows("7:50").EntireRow.Hidden = False
        If k Then
            .Range("A7").Resize(k, 8) = b
            .Rows(7 + k & ":50").EntireRow.Hidden = True
            .Range("A7").Resize(k, 8).Borders.LineStyle = 1
        Else
            Rows("7:50").ClearContents
            MsgBox "Không có DL ngày " & Range("F3")
        End If
    End With
End Sub

 

[be_09]

Nhờ A/chị xem giúp e bài này

Tôi sửa cấu trúc lại 1 tí cho đồng nhất.
Để thao tác: Bạn gõ ngày vào F2 của sheet2 rồi nhấn nút Loc để xem kết quả.