tech_boy

Hi guys, I've got an Excel spreadsheet that is running a macro updating it every 15 seconds. The macro looks at one workbook then updates the numbers in the second workbook every 15 seconds. If I use the "Paste Special" method to paste this automatically updating workbook into MS Powerpoint, will the refresh macro continue to run when powerpoint is running its presentation? Thanks. - Jon

Thanks for the advice So if I have a macro by the name of "sort" which looks like this: Sub sort() ' ' Sort Macro ' Macro recorded 01/08/2011 by jmoore10 ' Range("C3:C22").Select ActiveCell.Offset(-1, 0).Range("A1:C21").sort Key1:=ActiveCell.Offset(0, 2). _ Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal End Sub Would I then use the following code within the same Module as my Macro? Public dTime As Date Sub Run_Macro() dTime = Now + TimeValue("00:15:00") Application.OnTime dTime, "Run_Macro" End Sub As well as having the following code in my main workbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime dTime, "Run_Macro", , False End Sub Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:15:00"), "Run_Macro" End Sub Forgive the amount of code here, I'm just trying to get my head around all of it! Thanks again, - Jon

Hello all, I have a simple macro that sorts a column in MS Excel in descending order. Is it possible to automatically schedule this to happen every 30mins or so? Thanks in advance, - Jon

Hello all, This is a relatively complex problem to explain, but i'll give it my best shot! OK... I have the following code: Public Sub LookUp(s) Dim vOurResult Dim lookFor lookFor = s With Sheets("DATA").Range("comment") vOurResult = .Find(What:=lookFor, After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Offset(0, 9) End With If vOurResult = 0 Then Exit Sub ' Ends program if no comment present for this customer Else MsgBox vOurResult ' Displays messagebox with corresponding comment End If End Sub This basically runs a macro that looks through a hidden datasheet within an excel document which looks to see if any given customer has anything written in their "Comment" column; it it does, then it is displayed. My spreadsheet has a "Trailer Number" column and if someone enters a customer number adjacent to a particular set of trailer numbers, I need an error message to be displayed telling the user that they cannot use this kind of trailer and when they click "OK" the Customer ID field needs to be automatically wiped. I'm sorry if this explaination is terrible, please ask me for any extra information you may need! Thanks in advance, - Jon