Nhờ anh chị em hỗ trợ code Tính Tổng có công thức từ sheet khác

[MinhTrang139]

Ở sheet TỔNG HỢP em đã dùng hàm sumifs để lọc ra kết quả. nhưng em muốn thay vào đó là viết cod để kích nút tổng hợp thì sẽ ra kết quả, có thể thêm nhiều dữ liệu hơn mà vẫn tính tổng được. Anh chị nào biết chỉ giúp em với. Thấy viết cod này hay nên em mới bắt đầu học. Em cảm ơn các anh chị

 

[BuiQuangThuan]

Ban thu macro là có kết quả theo ý muốn à

 

[MinhTrang139]

Ban thu macro là có kết quả theo ý muốn à

Mình muốn viết câu lệnh COD vào Module để khi kích nút tổng hợp thì sẽ hiện kết quả vào bảng mình thiết kế sẵn, và khi thêm các đơn vị và dữ liệu vào cũng tính được

 

[BuiQuangThuan]

Sub TongHop()
    Dim iR&
    iR = Sheets("TSCDHH").Range("B" & Rows.Count).End(3).Row
    With Sheet8
        .Range("E7").Value = "=SUMIFS(TSCDHH!$E$7:$E$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("F7").Value = "=SUMIFS(TSCDHH!$F$7:$F$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("G7").Value = "=SUMIFS(TSCDHH!$G$7:$G$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("H7").Value = "=SUMIFS(TSCDHH!$H$7:$H$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("E7:H7").AutoFill .Range("E7:H18")
    End With
End Sub

Phần còn lại bạn làm nốt

 

[MinhTrang139]

Sub TongHop()
    Dim iR&
    iR = Sheets("TSCDHH").Range("B" & Rows.Count).End(3).Row
    With Sheet8
        .Range("E7").Value = "=SUMIFS(TSCDHH!$E$7:$E$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("F7").Value = "=SUMIFS(TSCDHH!$F$7:$F$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("G7").Value = "=SUMIFS(TSCDHH!$G$7:$G$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("H7").Value = "=SUMIFS(TSCDHH!$H$7:$H$" & iR & ",TSCDHH!$D$7:$D$" & iR & ",D7)"
        .Range("E7:H7").AutoFill .Range("E7:H18")
    End With
End Sub

Phần còn lại bạn làm nốt

Lỗi này làm sao bạn

 

[BuiQuangThuan]

Lỗi này làm sao bạn

Bật chế độ chạy macro trong phần macro security chưa. Bên mình không có lỗi đó
Hình như tên modul trùng với tên sheet thì phải. Sửa tên modul thành tên khác TongHop đi