Giúp mình file tự động cập nhật số liệu (3 người xem)

[the_wind]

Mình có 1 file (Như đính kèm) trong đó có 02 sheets. 1 Sheet "daily" mình sẽ cập nhật hàng ngày. Mỗi ngày mình sẽ phải gửi báo cáo 2 lần và mình muốn ở sheet report sẽ tự động cập nhật số liệu trong này đó. Những số liệu của ngày khác sẽ tự động được xóa đi. Nếu cần thiết thì sẽ tự động thêm dòng vào...
Các bro giúp mình với nhé.
Cảm ơn rất nhiều

 

[MinhCong]

Mình có 1 file (Như đính kèm) trong đó có 02 sheets. 1 Sheet "daily" mình sẽ cập nhật hàng ngày. Mỗi ngày mình sẽ phải gửi báo cáo 2 lần và mình muốn ở sheet report sẽ tự động cập nhật số liệu trong này đó. Những số liệu của ngày khác sẽ tự động được xóa đi. Nếu cần thiết thì sẽ tự động thêm dòng vào...
Các bro giúp mình với nhé.
Cảm ơn rất nhiều

Bạn muốn lọc theo ngày tháng năm hay là chỉ theo tháng năm thôi? Trong file Mình lọc theo ngày tháng năm, Bạn xem file nhé!

 

[SA_DQ]

Mở trang tính Report sẽ có số liệu mới như file kèm theo

Option Explicit
Private Sub Worksheet_Activate()
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim Format_ As String, MyAdd As String
 
 Set Sh = Sheets("Daily")
 Set Rng = Sh.Range(Sh.[b3], Sh.[B65500].End(xlUp))
 [b5].Resize(30, 9).ClearContents
 If IsNull(Rng.NumberFormat) Then
   Format_ = "dd"
 Else
   Format_ = Rng.NumberFormat
 End If
 Rng.NumberFormat = "MM/DD/yyyy"
 Set sRng = Rng.Find(Format([d2].Value, "MM/dd/yyyy"), , xlFormulas, xlWhole)
 If sRng Is Nothing Then
   MsgBox "Chua Cap Nhat Du Lieu", , "GPE Xin Luu Ý:"
 Else
   MyAdd = sRng.Address
   Do
      With [B65500].End(xlUp).Offset(1)
         .Resize(, 7).Value = sRng.Offset(, 3).Resize(, 7).Value
      End With
      Set sRng = Rng.FindNext(sRng)
   Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
 Rng.NumberFormat = "dd"
End Sub

 

[the_wind]

Cả 2 cách của 2 bro thì chạy cũng rất tốt nhưng có 1 vấn đề nhờ các bạn giải quyết luôn đó là: Vì sheet daily của mình là tự động cập nhật ngày tháng bằng code nên khi nhập số liệu (Số hóa đơn hoặc đơn hàng) vào thì sẽ tự động cập nhật ngày (Và cả giờ) nên hình như nó không được update sang sht Report được. Vậy giải quyết vấn đề này được luôn không các bác

 

[MinhCong]

Cả 2 cách của 2 bro thì chạy cũng rất tốt nhưng có 1 vấn đề nhờ các bạn giải quyết luôn đó là: Vì sheet daily của mình là tự động cập nhật ngày tháng bằng code nên khi nhập số liệu (Số hóa đơn hoặc đơn hàng) vào thì sẽ tự động cập nhật ngày (Và cả giờ) nên hình như nó không được update sang sht Report được. Vậy giải quyết vấn đề này được luôn không các bác

Bạn đã thử câp nhật chưa? Nếu rồi Bạn đưa file đó lên Mình xem thử nhé.

 

[the_wind]

Bạn đã thử câp nhật chưa? Nếu rồi Bạn đưa file đó lên Mình xem thử nhé.

Mình đa cập nhật rồi, bản thân file mình gửi lúc đầu bạn đã thấy đó... Ở sheet "Daily" nó sẽ tự động cập nhật ngày giờ nhưng do mình tách ngày riêng, tháng/năm riêng nên khi nhấp chuột vào đó bạn sẽ thấy. Ví dụ ngày 22 thì sẽ thấy là 22/01/1900 => Nó sẽ không trùng với ngày ở sheet Report => Không tự update được. Mình nghĩ công thức thì Ok rùi nhưng vấn đề chắc là ở cột ngày nó sẽ phải hiển thị đúng là ngày 22 (Của tháng 12/2009 chứ không phải ngày 22 như trên). Vậy giải quyết nó như thế nào ah???

 

[MinhCong]

Mình đa cập nhật rồi, bản thân file mình gửi lúc đầu bạn đã thấy đó... Ở sheet "Daily" nó sẽ tự động cập nhật ngày giờ nhưng do mình tách ngày riêng, tháng/năm riêng nên khi nhấp chuột vào đó bạn sẽ thấy. Ví dụ ngày 22 thì sẽ thấy là 22/01/1900 => Nó sẽ không trùng với ngày ở sheet Report => Không tự update được. Mình nghĩ công thức thì Ok rùi nhưng vấn đề chắc là ở cột ngày nó sẽ phải hiển thị đúng là ngày 22 (Của tháng 12/2009 chứ không phải ngày 22 như trên). Vậy giải quyết nó như thế nào ah???

Không biết Mình hiểu như vầy có đúng ý Bạn chưa?
1/Dựa vào cột ngày và tháng năm ở trong sheet Daily nếu kết trùng với ngày tháng năm ở cell D2 của sheet Report thì lọc.
Bạn xem file có đúng ý chưa nhé.

 

[the_wind]

Không biết Mình hiểu như vầy có đúng ý Bạn chưa?
1/Dựa vào cột ngày và tháng năm ở trong sheet Daily nếu kết trùng với ngày tháng năm ở cell D2 của sheet Report thì lọc.
Bạn xem file có đúng ý chưa nhé.

Ý của mình là cách của Minhcong đúng rồi nhưng không biết do định dạng thế nào nên khi mình nhập số hóa đơn vào thì ngày tháng sẽ tự động được cập nhật và do ngày ở cột B, tháng/năm ở cột C (Trong Sheet Daily) do đó ở cell D2 trong sheet Report lại không trùng được nên không thể cập nhật. Có cách nào để làm cho nó đồng bộ được không ah? Minhcong thử nhập 1 số vào ở cột số hóa đơn sau đó vào ô tương ứng của cột B và C để xem định dạng ngày nhé.
Cảm ơn rất nhiều

 

[MinhCong]

Ý của mình là cách của Minhcong đúng rồi nhưng không biết do định dạng thế nào nên khi mình nhập số hóa đơn vào thì ngày tháng sẽ tự động được cập nhật và do ngày ở cột B, tháng/năm ở cột C (Trong Sheet Daily) do đó ở cell D2 trong sheet Report lại không trùng được nên không thể cập nhật. Có cách nào để làm cho nó đồng bộ được không ah? Minhcong thử nhập 1 số vào ở cột số hóa đơn sau đó vào ô tương ứng của cột B và C để xem định dạng ngày nhé.
Cảm ơn rất nhiều

Bạn xem công thức củ chuối của mình có đúng yêu cầu chưa nhé!

 

[the_wind]

Bạn xem công thức củ chuối của mình có đúng yêu cầu chưa nhé!

Có vẻ cũng tốt rồi nhưng ngày thì hình như là cứ nhập ngày nào là mốc cuối cùng thì nó sẽ theo ngày đó. Như vậy thì cũng giải quyết được việc báo cáo trong ngày vì trong ngày thì ngày sẽ tự động update và không thay đổi rồi. Chỉ có vấn đề là nếu mà phải sửa ngày ở mục khác của ngày khác bên trên thì toi.... Cảm ơn Minhcong rất nhiều.
Àh còn vấn đề tự động thêm dòng thì sao hả bro????

 

[MinhCong]

Chỉ có vấn đề là nếu mà phải sửa ngày ở mục khác của ngày khác bên trên thì toi....
Àh còn vấn đề tự động thêm dòng thì sao hả bro????

1/Vấn đề Mình tô màu đỏ cũng đã giải quyết xong trong file rồi nhé.
2/Còn vấn đề tự động thêm dòng cái này có lẽ phải dùng code thôi. (Nhưng lọc bằng VB cũng được đấy, Bạn nhờ Anh NDU giúp cho. Mấy hôm trước Mình thấy Anh NDU có giúp cho 1 người lọc bằng VB hay lắm).
Còn Bạn đã biết dùng code rồi thì Mình có ý tưởng như vầy, Bạn làm cũng được (Mình không biết code).
B1: Bắt đầu từ hàng số 5 bên sheet Report, Bạn insert số hàng bằng COUNT(LOC) (Hàm này sẽ có kế quả bằng số hàng lọc được theo bảng trên).
B2: Bạn cái công thức trong bảng tính cho nó vào những cells trong các hàng vừa insert (Bạn có thể đặt name cho những công thức đó cho gọn)