data transfer automatically in the evening 6:00 P.M

  • Thread starter Thread starter BHAVESH.PATEL
  • Start date Start date
B

BHAVESH.PATEL

Hi,
i would like to know about my data transfer
i have a1:a20 cell data in sheet!1 and i want to transfer
that data in to cell a1:a20 sheet!2 automatidally at 6:00
P.M every day

Thanking You
Bhavesh
 
One way:

In the ThisWorkbook module:

Private Sub Workbook_Open()
Application.OnTime TimeSerial(18, 0, 0), "CopyAtSix"
End Sub

In a regular code module:

Public Sub CopyAtSix()
Worksheets("Sheet2").Range("A1:A20").Value = _
Worksheets("Sheet1").Range("A1:A20").Value
Application.Wait Now + TimeSerial(0, 0, 1)
Application.OnTime TimeSerial(18, 0, 0), "CopyAtSix"
End Sub
 
Back
Top