Skip to main content

Macro That Automatica​lly Updates Data Itself,Clear Content of selected range In Excel

Macro That Automatica​lly Updates Data Itself In Excel

If you need to have a database that automatically updates itself. 
In fact, if you have a folder with different excel files, say folder Y (all the same form/template), and the first X cells of these files need to be extracted to another excel workbook (file Z). Every file represents 1 row in workbook  Z. But this should be done automatically.
So if I copy a new excel file in folder Y, the first X of this new excel file should automatically (can be with a ‘button demand’)  be copied into workbook Y.


 Option Explicit  
 Const cstFolder = "C:\Users\ATC0155\Documents\Toolbox\Excel\1208 20 selfupdate"  
 Const cstCols = 5  
 Sub DoUpdate()  
  Dim wks As Worksheet  
  Dim strFile As String  
  Dim appExcel As Excel.Application  
  Dim lngRow As Long  
  ' Prepare the sheet to receive the data  
  Set wks = Sheet1  
  wks.Cells.ClearContents  
  ' Run through each file in the folder  
  strFile = Dir(cstFolder & "\*.xls*")  
  lngRow = 0  
  Do While strFile <> ""  
   If strFile <> ActiveWorkbook.Name Then  
    Set appExcel = CreateObject("Excel.Application")  
    appExcel.Workbooks.Open cstFolder & "\" & strFile  
    lngRow = lngRow + 1  
    appExcel.Sheets(1).Range(appExcel.Sheets(1).Cells( 1, 1), appExcel.Sheets(1).Cells(1, cstCols)).Copy  
    wks.Cells(lngRow, 1).PasteSpecial Paste:=xlPasteValues  
    wks.Cells(lngRow, cstCols + 1).Value = strFile  
    appExcel.Workbooks.Close  
    Set appExcel = Nothing  
   End If  
   strFile = Dir()  
  Loop  
  ' Tidy up  
  Set wks = Nothing  
 End Sub  

Clear Content of selected range including formulas,dropdown and Cell value in excel

 Sub clearcontent(ByVal rgstr As String)  
 'Clear Content of selected range including formulas,dropdown and Cell value  
 Range(rgstr).Select  
 Selection.ClearContents  
 With Selection.Validation  
 .Delete  
 .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _  
 :=xlBetween  
 .IgnoreBlank = True  
 .InCellDropdown = True  
 .ShowInput = True  
 .ShowError = True  
 End With  
 End Sub  

Popular posts from this blog

Resolved : Power BI Report connection error during execution

Getting Below Power BI Report connection error during execution . Error: Something went wrong Unable to connect to the data source undefined. Please try again later or contact support. If you contact support, please provide these details. Underlying error code: -2147467259 Table: Business Sector. Underlying error message: AnalysisServices: A connection cannot be made. Ensure that the server is running. DM_ErrorDetailNameCode_UnderlyingHResult: -2147467259 Microsoft.Data.Mashup.ValueError.DataSourceKind: AnalysisServices Microsoft.Data.Mashup.ValueError.DataSourcePath: 10.10.10.60;T_CustomerMaster_ST Microsoft.Data.Mashup.ValueError.Reason: DataSource.Error Cluster URI: WABI-WEST-EUROPE-redirect.analysis.windows.net Activity ID: c72c4f12-8c27-475f-b576-a539dd81826a Request ID: dfb54166-c78f-4b40-779f-e8922a6687ad Time: 2019-09-26 10:03:29Z Solution: We found report connection not able to connect to SQL Analysis service so tried below option. Re

Song- Khamoshiyan Piano keyboard Chord,Notation and songs Lyrics

All songs notation and chords at one place

Song : O Saathi Re Film : Mukhathar Ka Sikkandhar Uses : C D D# E G A Note : The numbers at the end of the lines indicate line numbers. Pallavi: O saathi re, tere binaa bhi kya jina, tere binaa bhi kya jina A- C D D#....,D D C DD E...C..CA-...,D D C DD E...CC.......1 Play line 1 again phulon men khaliyon men sapnom ki galiyon men GGG...GAGE.. GGG G A G E.................................................2 tere bina kuchh kahin naa E A G E D C D D#.......................................................................3 tere binaa bhi kya jina, tere binaa bhi kya jina D D C DD E....C..CA-..., D D C DDE....CC.............................4 Charanam: har dhadkan men, pyaas hai teri, sanson men teri khushboo hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................5 is dharthi se, us ambar tak, meri nazar men tu hi tu hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................6 pyaar yeh tute naa GGG... GAG D#......E.........................