xin sửa code Hàm sumif bằng VBA

[hoalv1985]

Em nhờ các anh chị sửa giúp em code vba của hàm sumif sau với ạ
Sub sumif_1()
Dim i As Long
Dim j As Long
Dim dongcuoi1 As Long
Dim dongcuoi2 As Long
dongcuoi1 = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
dongcuoi2 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To dongcuoi2
Sheet2.Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=SUMIF(Data!R2C2:R24C2,Baocao!RC[-6],Data!R2C8:R24C8)"
Next i
End Sub
Giờ em muốn thay vùng giữ liệu R24C2, và R24C8 bằng R với dòng cuoios1 ( Rdongcuoi1) thì sửa thế nào ạ. Em cảm ơn anh chị!

 

[Phạm Doãn Tuyến]

Em nhờ các anh chị sửa giúp em code vba của hàm sumif sau với ạ
Sub sumif_1()
Dim i As Long
Dim j As Long
Dim dongcuoi1 As Long
Dim dongcuoi2 As Long
dongcuoi1 = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
dongcuoi2 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To dongcuoi2
Sheet2.Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=SUMIF(Data!R2C2:R24C2,Baocao!RC[-6],Data!R2C8:R24C8)"
Next i
End Sub
Giờ em muốn thay vùng giữ liệu R24C2, và R24C8 bằng R với dòng cuoios1 ( Rdongcuoi1) thì sửa thế nào ạ. Em cảm ơn anh chị!

Sao không gửi file lên đây bạn?

 

[hoalv1985]

Sao không gửi file lên đây bạn?

Em làm được rồi anh ah. Em cảm ơn anh!