Đối chiếu số liệu trong các bộ phận khác nhau

[hunggtg]

Chào các bạn,

Tôi có 1 vấn để sau cần các bạn hướng dẫn giùm

Tôi cần đối chiếu số liệu xuất nhập tồn của 3 bộ phận kế toán, mua hàng và thủ kho trong từng tháng. Vì có các trường hợp sau đây:

1. Bộ phận mua hàng: mua nhiều hơn số lượng nhập kho
2. Thủ kho xuất số lượng nhiều hơn bán ra thực tế
Trong 3 bộ phận, chỉ có số liệu của bộ phận kế toán là chính xác nhất do xuất hoá đơn rõ ràng.

Trong file đính kèm tôi có 4 sheets thể hiện của 3 bộ phận và 1 sheet để thống kê đối chiếu số liệu của 3 bộ phận đó. Ở đây tôi chỉ thể hiện 10 sản phẩm để mô tả, chứ thực sự chúng tôi có khoảng 3,000 mặt hàng để quản lý do đó đối chiếu từng hàng với nhau bằng cách thủ công là việc không thể thực hiện được.

Rất mong nhận được chỉ giáo của các bạn

Cám ơn.

 

[SA_DQ]

Bạn cần kiên nhẫn hơn tẹo nữa, nha

& xem theo file đính kèm!

 

[hunggtg]

Chào SA_DQ,

Nhờ bạn xem lại sheet mua và Thop giùm

Cám ơn

 

[SA_DQ]

Bạn copy đoạn mã sau & chép đè lên toàn bộ nội dung macro cũ & thử nha

Option Explicit
Sub DoiChieu()
 Dim Sh As Worksheet, Sh0 As Worksheet             '<=|'
 Dim Rng As Range, sRng As Range, Cls As Range, Clls As Range
 Dim eRw As Long:                                  Dim fName As String
 
 Sheets("THop").Select:                            Set Sh0 = Sheets("Bán")
 [B5].CurrentRegion.Offset(1, 1).Clear
 Sh0.[B5].CurrentRegion.Offset(1, 1).Copy Destination:=[B6]
 eRw = [B5].CurrentRegion.Rows.Count * 2:          Set Rng = [B5].Resize(eRw)
 For Each Sh In Worksheets
   fName = Left(Sh.Name, 1)
   If fName = "K" Or fName = "M" Then
      For Each Cls In Sh.Range(Sh.[b9], Sh.[B65500].End(xlUp))
         Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
         If sRng Is Nothing Then
            With [B65500].End(xlUp).Offset(1)
               .Resize(, 7).Value = Cls.Resize(, 7).Value
               Set Clls = Cells(.Row, IIf(fName = "K", "G", "H"))
               Clls.Value = Cls.Offset(, 4).Value
               Clls.Interior.ColorIndex = 38
            End With
         Else
            If fName = "K" And Cls.Offset(, 5).Value <> sRng.Offset(, 4).Value Then
               sRng.Offset(, 5).Value = Cls.Offset(, 5).Value
               sRng.Offset(, 5).Interior.ColorIndex = 40
9            ElseIf fName = "M" And Cls.Offset(, 4).Value <> sRng.Offset(, 4).Value Then
               For Each Clls In Sh0.Range(Sh0.[B5], Sh0.[B65500].End(xlUp))
                  If Clls.Value = Cls.Value Then
                     sRng.Offset(, 6).Interior.ColorIndex = 0
                     sRng.Offset(, 6).Value = "":  Exit For
                  Else
                     sRng.Offset(, 6).Value = Cls.Offset(, 4).Value
                     sRng.Offset(, 6).Interior.ColorIndex = 39
                  End If
               Next Clls
            End If
         End If
      Next Cls
   End If
 Next Sh
End Sub

 

[hunggtg]

Chào bạn,

Nó đúng cột mua vào và tồn kho, bị dư cột số lượng bán ra. Vì trong VD bán ra = 0.

Bạn chỉnh lại giùm nhé.

 

[ChanhTQ@]

Bạn xem lại file & nói rõ hơn xem còn sai chổ nào vậy?

 

[hunggtg]

Chào bạn,

Bạn xem trong sheet Tổng hợp (THop) nhé, cột Slg là cột bán ra, mà hạng mục số 11 là không có bán ra. Tóm tắt như thế này:

Bộ phận mua hàng mua 11 cái
Thủ kho chỉ nhập kho 5 cái
Bộ phận bán hàng: không bán

=> bị thất lạc 6 cái

Vấn đề là mình phải tìm ra được con số này.

Thanks.

 

[SA_DQ]

Trong sheet THop nhé, cột Slg là cột bán ra, mà hạng mục số 11 là không có bán ra. Tóm tắt như thế này: Bộ phận mua hàng mua 11 cái
Thủ kho chỉ nhập kho 5 cái Bộ phận bán hàng: không bán
=> bị thất lạc 6 cái Vấn đề là mình phải tìm ra được con số này.
Thanks.

Trong hàng có STT lá 11 đó, các số liệu trước cột [Kho] là do chép từ trang 'Kho' qua; Còn số 11 ở cột mua là từ trang 'Mua' chuyển qua;

Vậy giờ bạn cần 3 cột của hàng 11 này sẽ là những giá trị gì? Hiện chúng đang là:

A|. . . |F|G|H
11|. . .|5|5|11

 

[hunggtg]

Trong hàng có STT lá 11 đó, các số liệu trước cột [Kho] là do chép từ trang 'Kho' qua; Còn số 11 ở cột mua là từ trang 'Mua' chuyển qua;

Vậy giờ bạn cần 3 cột của hàng 11 này sẽ là những giá trị gì? Hiện chúng đang là:

A|. . . |F|G|H
11|. . .|5|5|11

Cột F sẽ lấy từ sheet "Bán" qua, và trong truờng hợp này phải là số 0 mới đúng

 

[SA_DQ]

Mã hàng đó không có trong 'Bán', nên sẽ rỗng bằng cách sau

Bạn đổi dòng lệnh

 .Resize(, 7).Value = Cls.Resize(, 7).Value

thành

           [COLOR=silver] With [B65500].End(xlUp).Offset(1)[/COLOR]
               [COLOR=purple][B].Resize(, 4).Value = Cls.Resize(, 4).Value[/B][/COLOR]
  [COLOR=silver]             Set Clls = Cells(.Row, IIf(fName = "K", "G", "H"))
               Clls.Value = Cls.Offset(, 4).Value
               Clls.Interior.ColorIndex = 38
            End With[/COLOR]