nhờ anh chị sửa giúp đoạn code "thống kê dữ liệu" với ạ (1 người xem)

[lexuantruong]

file dữ liệu thống kê của em nằm ở sheet "ThongKe", vấn đề ở chỗ sau khi bấm vào nút " thống kê" thì vẫn hiện đúng số thống kê trong sheet "ThongKe", nhưng khi sang sheet "Nhap" thì dữ liệu hiện không đúng. anh chị sửa lại giúp em với. qua sheet nào thì dữ liệu vẫn hiện đúng số thống kê ở sheet "ThongKe"
- còn vấn đề này nữa, ở sheet "ThongKe" sau khi bấm "thống kê" thì vị trí chọn dữ liệu ở ô A6, anh chị sửa lại dùm em khi bấm nút thống kê thì luôn chọn ở dòng cuối cùng của dữ liệu vừa mới nhập mà vẫn hiện đúng với số thống kê được không ạ.
em cam ơn anh chị nhiều.

 

[Let'GâuGâu]

file dữ liệu thống kê của em nằm ở sheet "ThongKe", vấn đề ở chỗ sau khi bấm vào nút " thống kê" thì vẫn hiện đúng số thống kê trong sheet "ThongKe", nhưng khi sang sheet "Nhap" thì dữ liệu hiện không đúng. anh chị sửa lại giúp em với. qua sheet nào thì dữ liệu vẫn hiện đúng số thống kê ở sheet "ThongKe"
- còn vấn đề này nữa, ở sheet "ThongKe" sau khi bấm "thống kê" thì vị trí chọn dữ liệu ở ô A6, anh chị sửa lại dùm em khi bấm nút thống kê thì luôn chọn ở dòng cuối cùng của dữ liệu vừa mới nhập mà vẫn hiện đúng với số thống kê được không ạ.
em cam ơn anh chị nhiều.

code bạn nó nằm ở chổ nào???
nhấp vào cái nút==> nó show cái form
cái form thì có đoạn code này

Private Sub UserForm_Activate()
Dim toval As String
With Sheets("ThongKe")
Range("A6").Select
toval = Selection.End(xlDown).Value
Label2.Caption = toval
End With
End Sub

tức là nó chỉ làm có một việc là chọn ô A6 chứ có thấy thống kê cái gì???
========
bạn làm thống kê lạ thật

Private Sub UserForm_Activate()
With Sheets("ThongKe")
    Label2.Caption = .[a6].End(xlDown).Value
    If ActiveSheet.Name = "ThongKe" Then .[a6].End(xlDown).Select
End With
End Sub

 

[lexuantruong]

code bạn nó nằm ở chổ nào???
nhấp vào cái nút==> nó show cái form
cái form thì có đoạn code này

Private Sub UserForm_Activate()
Dim toval As String
With Sheets("ThongKe")
Range("A6").Select
toval = Selection.End(xlDown).Value
Label2.Caption = toval
End With
End Sub

tức là nó chỉ làm có một việc là chọn ô A6 chứ có thấy thống kê cái gì???
========
bạn làm thống kê lạ thật

Private Sub UserForm_Activate()
With Sheets("ThongKe")
    Label2.Caption = .[a6].End(xlDown).Value
    If ActiveSheet.Name = "ThongKe" Then .[a6].End(xlDown).Select
End With
End Sub

anh để cái thống kê tự động update khi nhập mới dữ liệu được k ạ?code hiện tại chỉ khi nào tắt Form rồi mở lên lại thì mới thấy update, e gửi anh cái file cụ thể hơn để xem, làm thế nào để cái thống kê tự update như chỗ ô " Số TT"

 

[be_09]

anh để cái thống kê tự động update khi nhập mới dữ liệu được k ạ?code hiện tại chỉ khi nào tắt Form rồi mở lên lại thì mới thấy update, e gửi anh cái file cụ thể hơn để xem, làm thế nào để cái thống kê tự update như chỗ ô " Số TT"

Thử xem đúng ý không?

 

[lexuantruong]

Thử xem đúng ý không?

vấn đề tự upade khi cập nhập dữ liệu thì ok rồi, nhưng mà chỉ với sheet hiện tại thôi, khi qua sheet khác thì nó thống kê không đúng nữa, chỉ khi lưu dữ liệu vào thì mới thấy nó thống kê
anh sửa lại dùm em khi bấm nút "lưu dữ liệu" thì luôn chọn ở dòng cuối cùng của dữ liệu vừa mới nhập như #2 được không ạ, vì dữ liệu nhiều mà mỗi lần nhập nó cứ quay về ô A6 nên cứ phải kéo xuống thì hơi....đuối
e cám ơn anh nhiều

 

[be_09]

vấn đề tự upade khi cập nhập dữ liệu thì ok rồi, nhưng mà chỉ với sheet hiện tại thôi, khi qua sheet khác thì nó thống kê không đúng nữa, chỉ khi lưu dữ liệu vào thì mới thấy nó thống kê
anh sửa lại dùm em khi bấm nút "lưu dữ liệu" thì luôn chọn ở dòng cuối cùng của dữ liệu vừa mới nhập như #2 được không ạ, vì dữ liệu nhiều mà mỗi lần nhập nó cứ quay về ô A6 nên cứ phải kéo xuống thì hơi....đuối
e cám ơn anh nhiều

File có 1 Sheet ThongKe vậy Sheet khác là Sheet nào?

 

[lexuantruong]

File có 1 Sheet ThongKe vậy Sheet khác là Sheet nào?

File có 2 sheet mà anh, sheet1 voi sheet Thongke

 

[be_09]

File có 2 sheet mà anh, sheet1 voi sheet Thongke

Thêm sheet1 mà không có tiêu đề thì biết xử lý sao đây?

Nếu muốn dùng 1 Form nhập liệu 1 lần cho 2 sheet thì cũng được nhưng sheet1 phải có tiêu đề đầy đủ mới biết cần nhập cái gì chứ?

 

[lexuantruong]

Thêm sheet1 mà không có tiêu đề thì biết xử lý sao đây?

Nếu muốn dùng 1 Form nhập liệu 1 lần cho 2 sheet thì cũng được nhưng sheet1 phải có tiêu đề đầy đủ mới biết cần nhập cái gì chứ?

ah sheet1 e dùng để làm trang in dữ liệu lấy từ bên thống kê wa đó anh.
em dùng code #2 thì thấy ok rồi anh, qua sheet1 vẫn hiện đúng
nếu như không làm phiền anh thì anh có thể viết giúp em đoạn code tìm kiếm trên list box theo "họ vả tên" để tiện tìm kiếm để sửa dữ liệu nếu có sai sót không ạ. em cám ơn anh nhiều.