lijon
03-10-2011, 01:36 PM
...Actually, it's not working at all! Could really use some help with app.ontime here. I've got the following code in a single wkbk ...but it doesn't work!
Pls let me know what you think! Gracias!
..in "ThisWorkbook"
Private Sub workbook_open()
Application.ScreenUpdating = False
Application.OnTime TimeSerial(10, 28, 0), "refresher"
Application.ScreenUpdating = True
End Sub
...in Module15
Sub refresher()
Dim data As Variant
Dim output()
Dim I As Integer
Dim y As Integer
Application.ScreenUpdating = False
Range("New_1030").ClearContents
data = Range("PRICES")
I = UBound(data, 2) ' cols
y = UBound(data, 1) ' rows
ReDim output(y, I)
output = data
Range("New_1030").Resize(y, I) = output
ReDim output(y, I)
Application.ScreenUpdating = True
End Sub
Pls let me know what you think! Gracias!
..in "ThisWorkbook"
Private Sub workbook_open()
Application.ScreenUpdating = False
Application.OnTime TimeSerial(10, 28, 0), "refresher"
Application.ScreenUpdating = True
End Sub
...in Module15
Sub refresher()
Dim data As Variant
Dim output()
Dim I As Integer
Dim y As Integer
Application.ScreenUpdating = False
Range("New_1030").ClearContents
data = Range("PRICES")
I = UBound(data, 2) ' cols
y = UBound(data, 1) ' rows
ReDim output(y, I)
output = data
Range("New_1030").Resize(y, I) = output
ReDim output(y, I)
Application.ScreenUpdating = True
End Sub