Lấy vị trí vùng chọn tạo vùng chọn mới cho ô trong excel

[duongchanhtruc]

Chào cả nhà. Em có ý tưởng như sau mà mãi viết code công thức vẫn chưa ra. Anh chị tư vấn giúp em nhé:

Ý tưởng bảng thống kê thép đặt ra:

1- Quét vùng dữ liệu cần thống kê. ( A57:O64)

máy tự chạy ra công thức ô B68 là =SUMIF($J$57:$J$64;D66;$O$57:$O$64)

(Tức là công thức trong ô sẽ nhận dc dòng chọn 57 dến 64). Để sau này có thay đổi số liệu trong thống kê thì bảng tổng hợp nó nhảy theo.

Cách hiện tại em viết vba thì nó nhảy ra số hẳn ô B68 luôn không có công thức nên mỗi lần thay đỗi số liệu thì chạy lại

 

[Trần Văn Bình]

Sub TaoName_Thep()
Dim Lr As Long
Lr = Sheets("........").Range("A" & Rows.Count).End(xlUp).Row
Dulieu.Range("A57:O" & Lr).Name = "Name_Thep"

End Sub