Lấy số liệu theo mã và tính thừa (thiếu)

[Thuyanhanoi]

Xin Chào các anh chị và các bạn trên GPE!.
Em có vấn đề tổng hợp dữ liệu mong được các anh chị và các bạn giúp đỡ như sau:
- Lấy số liệu ở cột [Định mức] theo mã từ sheet(danh_sach) về cột [Định mức] theo mã ở sheet(Tong_hop)
- Lấy số liệu Tổng trừ đi số liệu cột định định mức được két quả ghi vào cột Thừa (Thiếu) ở sheet(Tong_hop)
Trong file đính kèm em đã lấy số liệu và tính cho trường hợp Nguyễn Quang Đông làm ví dụ.
Rất mong được sự giúp đỡ của các anh chị và các bạn!.

 

[SA_DQ]

Tham khảo macro này cho iêu cầu đầu của bạn:

Sub LayDinhMuc()
 Dim Rng As Range, sRng As Range, Cls As Range
 Dim Rws As Long
 
 With Sheets("Tong_Hop")
    Rws = .[c65500].End(xlUp).Row
    Set Rng = .[B9].Resize(Rws)
    Sheets("Danh_Sach").Select
    For Each Cls In Range([b6], [b6].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
        If Not sRng Is Nothing Then
            .Cells(sRng.Row, "S").Value = Cells(Cls.Row, "I").Value
        Else
            Cls.Interior.ColorIndex = 38
        End If
    Next Cls
 End With
End Sub

 

[excel_lv1.5]

Xin Chào các anh chị và các bạn trên GPE!.
Em có vấn đề tổng hợp dữ liệu mong được các anh chị và các bạn giúp đỡ như sau:
- Lấy số liệu ở cột [Định mức] theo mã từ sheet(danh_sach) về cột [Định mức] theo mã ở sheet(Tong_hop)
- Lấy số liệu Tổng trừ đi số liệu cột định định mức được két quả ghi vào cột Thừa (Thiếu) ở sheet(Tong_hop)
Trong file đính kèm em đã lấy số liệu và tính cho trường hợp Nguyễn Quang Đông làm ví dụ.
Rất mong được sự giúp đỡ của các anh chị và các bạn!.

Bạn thử code này:

Sub a()
Dim rng_ds As Range, rng_th1 As Range, rng_th2 As Range, cell As Range, fcell As Range, fcell2 As Range
Set rng_ds = Sheets("danh_sach").Range("B6:b" & Sheets("danh_sach").[B10000].End(xlUp).Row)
Set rng_th = Sheets("Tong_hop").Range("G10:G" & Sheets("Tong_hop").[G10000].End(xlUp).Row)
For Each cell In rng_th
    If Trim(cell.Value) = "T" & ChrW(7893) & "ng:" Then
        Set fcell = Sheets("Tong_hop").Range("B10:B" & cell.Row).Find("*", , , , , xlPrevious)
        If Not fcell Is Nothing Then
            Set fcell2 = rng_ds.Find(fcell.Value)
            If Not fcell2 Is Nothing Then
                cell.Offset(, 12).Value = fcell2.Offset(, 7).Value
                cell.Offset(, 13).Value = cell.Offset(, 11) - cell.Offset(, 12).Value
            End If
        End If
    End If
Next
End Sub

 

[befaint]

.

 

[Thuyanhanoi]

Bạn thử code này:

Sub a()
Dim rng_ds As Range, rng_th1 As Range, rng_th2 As Range, cell As Range, fcell As Range, fcell2 As Range
Set rng_ds = Sheets("danh_sach").Range("B6:b" & Sheets("danh_sach").[B10000].End(xlUp).Row)
Set rng_th = Sheets("Tong_hop").Range("G10:G" & Sheets("Tong_hop").[G10000].End(xlUp).Row)
For Each cell In rng_th
    If Trim(cell.Value) = "T" & ChrW(7893) & "ng:" Then
        Set fcell = Sheets("Tong_hop").Range("B10:B" & cell.Row).Find("*", , , , , xlPrevious)
        If Not fcell Is Nothing Then
            Set fcell2 = rng_ds.Find(fcell.Value)
            If Not fcell2 Is Nothing Then
                cell.Offset(, 12).Value = fcell2.Offset(, 7).Value
                cell.Offset(, 13).Value = cell.Offset(, 11) - cell.Offset(, 12).Value
            End If
        End If
    End If
Next
End Sub

Cảm ơn Anh/Chị đã giúp đỡ code. Hiện tại em áp dung code đã cho kết quả như mong muốn. Em xin cảm ơn!.

Bài đã được tự động gộp: 30/10/18

.

Cảm ơn Anh đã giúp em!. Hiện tại em áp dung code đã cho kết quả như mong muốn. Trong quá trình thực hiện nếu có vướng mắc Rất mong được các anh chị và các bạn giúp đỡ. Em xin cảm ơn!.