Auto Run Subroutine every 1 Second in Excel VBA

Auto Run Subroutine every 1 Second in Excel VBA The following snippet of code will auto run subroutine every 1 second in Excel VBA Sub Cal_Range() Range(“A1:B100″).Calculate Application.OnTime DateAdd(“s”, 1, Now), “Cal_Range” End Sub Public RunWhen As Double Public Const cRunWhat = “my_Procedure” Sub StartTimer() RunWhen = Now + TimeSerial(0, 10, 0) Application.OnTime earliesttime:=RunWhen,...

How to skip error in Excel VBA Program

How to skip error in Excel VBA Program The following snippet will advise on how to skip error in Excel VBA Program.  It contains “On Error”,”Resume Next”,Err.number,etc..   on error resume next ‘—-Line contain possibility of error. if err.number>0 then err.number=0 goto skip end if   skip:  

Image URLs to actual images using Excel VBA

Image URLs to actual images using Excel VBA The following program converts Image URLs to actual images using Excel VBA. It does not need to get the information using IE or Httpserver requests.   Sub URLPictureInsert()     Dim shp As Shape     Dim Rge As Range     Dim Col As Long     On Error Resume Next     Application.ScreenUpdating = False     Set Rng =...

Delete all pictures in a selected range of cells Excel VBA

Delete all pictures in a selected range of cells Excel VBA The following program Deletes all pictures in a selected range of cells Excel VBA. Sub DeletePics() Dim PicRng As Range Dim Pic As Picture Dim Rng As Range Application.ScreenUpdating = False Set Rng = Range("B1:B100") For Each Pic In ActiveSheet.Pictures Set PicRng =...

Published On

November 2018
M T W T F S S
« Oct    
 1234
567891011
12131415161718
19202122232425
2627282930