Nhờ xem hộ em cái sao phần thu chi quỹ không lên số tiền thu chi vậy Sub BaoCaoQuy_Update()

Nhờ giảng viên xem hộ em cái sao phần thu - chi quỹ không lên số tiền thu chi vậy giảng viên

Sub BaoCaoQuy_Update()

    'Tim dong cuoi Sheet Data_NhapXuat

    Dim DongCuoi_Data As Long

    DongCuoi_Data = Sheets("Data_NhapXuat").Range("B" & Rows.Count).End(xlUp).Row

    'Bien dieu kien

    Dim TuNgay As Long, DenNgay As Long, DonViTinh As String

    TuNgay = Sheets("BaoCaoQuy").Range("D3").Value

    DenNgay = Sheets("BaoCaoQuy").Range("D4").Value

    DonViTinh = Sheets("BaoCaoQuy").Range("D5").Value

    'Thiet lap truoc khi lay ket qua

    Sheets("BaoCaoQuy").Range("B10:I109").ClearContents    'Xoa du lieu cu

    Sheets("BaoCaoQuy").Range("B10:B109").EntireRow.Hidden = False 'Bo an cac dong

    'Bien vong lap

    Dim i As Long

    'Lay du lieu

    For i = 6 To 106

        If Sheets("Data_NhapXuat").Range("D" & i).Value >= TuNgay And _

        Sheets("Data_NhapXuat").Range("D" & i).Value <= DenNgay And _

        Sheets("Data_NhapXuat").Range("K" & i).Value = DonViTinh Then

            ' ' ' ' Lay du lieu sang bao cao

            Sheets("BaoCaoQuy").Range("B" & i + 4).Value = Sheets("Data_NhapXuat").Range("C" & i).Value 'So phieu

            Sheets("BaoCaoQuy").Range("C" & i + 4).Value = Sheets("Data_NhapXuat").Range("D" & i).Value    'Ngay lap

            Sheets("BaoCaoQuy").Range("D" & i + 4).Value = Sheets("Data_NhapXuat").Range("E" & i).Value    'So xe

            Sheets("BaoCaoQuy").Range("E" & i + 4).Value = Sheets("Data_NhapXuat").Range("F" & i).Value    ' Ten

            Sheets("BaoCaoQuy").Range("F" & i + 4).Value = Sheets("Data_NhapXuat").Range("G" & i).Value    'Dien giai

            ' ' ' ' ' ' Lay so luong vao cot Nhap hoac Xuat theo loai

            If Sheets("Data_NhapXuat").Range("B" & i).Value = Sheets("BaoCaoQuy").Range("G8").Value Then

                Sheets("BaoCaoQuy").Range("G" & i + 4).Value = Sheets("Data_NhapXuat").Range("N" & i).Value    ' Thu

            End If

            If Sheets("Data_NhapXuat").Range("B" & i).Value = Sheets("BaoCaoQuy").Range("H8").Value Then

                Sheets("BaoCaoQuy").Range("H" & i + 4).Value = Sheets("Data_NhapXuat").Range("N" & i).Value    ' Chi

            End If

        Else

            ' ' ' ' ' An cac dong khong co ket qua

            Sheets("BaoCaoQuy").Range("C" & i + 4).EntireRow.Hidden = True

        End If

    Next i

End Sub