Xin chỉ dẫn viết code VBA range.formula hàm sumif

[thitheoquaychay]

Rất mong các cao nhân chỉ giúp mình. Mình khai báo biến lr là dòng cuối cùng chứa dữ liệu của sheet1 trong file wb. Mình đang cần viết code tính tổng cho các dòng doanh thu ở cột H từ H8 tới dòng cuối cùng chứa dữ liệu nếu thỏa mãn điều kiện ở cột G là "Tong cong".
Mình đang viết công thức như dưới nhưng bị báo lỗi Run time error '424'-Object required, đúng thì sẽ phải viết như thế nào vậy ạ:

 

[bebo021999]

Sumif là hàm trong worksheet, trong code, khi bỏ trong ngoặc kép thì phải diễn giải đúng như cú pháp nó vốn có.
Ví dụ: lr = 100, thì
...Formula = "=sumif(G8:G100,R1,H8:H100"
tương đương:
...Formula = "=sumif(G8:G" & 100 & ",R1,H8:H" & 100
và đưa lr vào thay cho 100:
...Formula = "=sumif(G8:G" & lr & ",R1,H8:H" & lr

 

[thitheoquaychay]

Sumif là hàm trong worksheet, trong code, khi bỏ trong ngoặc kép thì phải diễn giải đúng như cú pháp nó vốn có.
Ví dụ: lr = 100, thì
...Formula = "=sumif(G8:G100,R1,H8:H100"
tương đương:
...Formula = "=sumif(G8:G" & 100 & ",R1,H8:H" & 100
và đưa lr vào thay cho 100:
...Formula = "=sumif(G8:G" & lr & ",R1,H8:H" & lr

Xin cam

Sumif là hàm trong worksheet, trong code, khi bỏ trong ngoặc kép thì phải diễn giải đúng như cú pháp nó vốn có.
Ví dụ: lr = 100, thì
...Formula = "=sumif(G8:G100,R1,H8:H100"
tương đương:
...Formula = "=sumif(G8:G" & 100 & ",R1,H8:H" & 100
và đưa lr vào thay cho 100:
...Formula = "=sumif(G8:G" & lr & ",R1,H8:H" & lr

Tuyệt quá, cảm ơn cao nhân rất nhiều ạ. mình đã làm được rồi.