Macro to sort descend on a timed basis

[graemeal]

I need to "sort descending" a column constantly throughout the day (G2:G1950) up to 100 times daily. I have set up a macro so all I do now is press ctr then q to "sort descending"

Is there a way that I can "sort descending" automatically every minute or preferably ever 30 seconds so i don't have to press buttons. I am studying VBA at present but seems the "time thing" is the problem so not easy?????

Cheers

Graeme

 

[venkat1926]

first create a mcaro for your work
then try the following macros

my noes gives instructions as follows
quote
first run start timer the procedure "the-sub" will start runing after 10 second and run every five seconds.
If you want to stop then run the macro "stop timer"
unquote
in the macro called "the_sub" some trivial example of code statements are given . you replace them by the statemtns in the macro you have created.
this solution was given by Ron de Bruin.

try in ggogle search "ron de brin" to get the thread.

the above is given from my notes. I have not checked

the macros are

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10
Public Const cRunWhat = "The_Sub"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub

Sub The_Sub()
'MsgBox ""
 Dim dest As Range
     'MsgBox Target.Address
    
    
    Set dest = Cells(Rows.Count, "D").End(xlUp).Offset(1, 0)
    Range("B1:B6").Copy dest
    Application.CutCopyMode = False
line1: StartTimer
End Sub

Sub StopTimer()

   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

 

[graemeal]

Thank you kindly. I will give it a shot

Regards

Graeme