Nhờ trợ giúp tự động copy dữ liệu của 1 hàng khi đến giờ chẵn!

[Quy Nguyen Phi]

Các anh ơi có cách nào trigger dữ liệu của 1 hàng khi đến giờ không ạ? ví dụ cũng 1 hàng dữ liệu đó nhưng em muốn cứ đến giờ chẵn là nó tự động lấy dữ liệu sang sheet khác ạ!

 

[VetMini]

Sub DienRo()
' lay gio hien tai
' neu gan moc gio thi sang moc ke
For i = hour(time) + IIf(minute(time) <= 1, 1, 0) To 24
Application.Wait Format(i, "0#") & ":00:00"
Copy_Hang_Qua_SheetKhac ' chuyen cua thot
Next i
End Sub

 

[Quy Nguyen Phi]

Anh ơi em cảm ơn anh ạ, phiền anh giúp em sửa vào file luôn được không ạ?