Clear 4 x Cells Every 2 Minutes At Top of Spreadsheet

**EduardStoo** · 10-24-2018, 06:09 AM

Hello -

I've found a few posts / ideas that come close (but can't stop my spreadsheet from crashing when activating?)

I have a primitive search function at the top of my sheet that will give a search-specific dropdown in cells O2 and O4 based on codes or keywords inputted into K2 and K4 respectively.

I would like these 4 x cells' contents to reset/blank (i.e. 'clear' not delete) every 2 minutes (but not the dropdown functions themselves for O2 and O4) (please note, they are merged cells at the moment and some of the VBA doesn't like that, if they need un-merging, so be it!) so users can keep using it without clearing the cells with a physical delete.

Alternatively, if its difficult to do based on timing, if the main body of the sheet (A8: AO200) is accessed, then it then blanks, this would also be OK as an alternative?

Any help would be very appreciated

Thanks

**dotchiejack** · 10-24-2018, 06:34 AM

Put this code in a standaard module. Start timer.

Public RunWhen As Double
Public Const cRunWhat = "my_Procedure"
Sub StartTimer()
RunWhen = Now + TimeSerial(0, 2, 0)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub
Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub
Sub my_Procedure()
    Sheets("Blad1").Range("K2,K4,O2,O4").ClearContents
    Call StartTimer
End Sub

be sure to run StopTimer before exiting Excel
I didn't test it on merged cells.

Clear 4 x Cells Every 2 Minutes At Top of Spreadsheet

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Clear 4 x Cells Every 2 Minutes At Top of Spreadsheet

Re: Clear 4 x Cells Every 2 Minutes At Top of Spreadsheet

Thread Information

Users Browsing this Thread

Similar Threads

Clear Spreadsheet !

VBA to Clear 1 Cell and Clear other cells Formula only

Day into Hours into Minutes Calculator Spreadsheet

Clear the cell before closing the spreadsheet

Clear range of cells 'to the bottom of the spreadsheet'

Using control to clear spreadsheet

[SOLVED] Clear spreadsheet cells format

Bookmarks

Bookmarks

Posting Permissions