By using you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

Become an Σxpert at Σ


Standard VBA/Excel (79 of 1158)

(Clear Filter = *Sheet*)

a Excel/VBA for yourself vs. users of your sheets (18)
vlookup to external file - '[file name.xlsm]sheetname'!$C:$F
Sheets("name").select - selects a sheet
CreateSheet "name" - adds a new sheet and deletes current one??? udf
Workbooks("xxxx").Range("DER_cc") ' get the range name in another workbook
Display_the_columns - takes a spreadsheet and hides columns based on a range name - udf
ThisWorkbook.Sheets(....).Range(....) ' use when a different sheet is active
GettheVersion - opens workbook and finds the version and date by searching the sheet
GotoSheet - udf - for shortcut creation
CreateHTMLTableForEmail (html, css,) - coverts spreadsheet visible data to HTML format
ActiveWorkbook.Worksheets("....").Autofilter.sort.sortfileds.clear ' clears a filters sorting ' recorded
ActiveSheet.Index - gets the sheets number (not sure why you'd use this
ShowSheet - udf - wraps the code to prevent errors
After opening an external spreadsheet verify that it's okay - coding
SelectPartialSheetName - I wouldn't know the whole name of a sheet but knew part of it's name
Generate_deck - udf - that runs commands in spreadsheet to generate ppt slides
Delete a Sheet - turn off displayalerts before delete (sh.delete)
Create a Sheet with a number of columns to run queries and process Excel output
Setting Sheet
LogAction - udf to write 3 fields to a sheet
Sheets(2).visible = True
When deleting work backwards: for x = sheets.count to 1 step -1 (loop)
LoadArray(workbookname, Sheetname, header) 🔝
PPT test code to update embedded spreadsheet in ppt
Protect/Unprotect a sheet
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1 ' recorded
Protecting a Sheet
Activesheet.PivotTables("PivotTable11").PivotFields("CtryOfDom").PivotItems ' recorded
ActiveSheet.PivotTables("PivotTable3").ChangePivotCache ... ' recorded
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh ' recorded
ActiveSheet.PivotTables("PivotTable3").PivotFields("Region").ClearAllFields 'recorded
ActiveSheet.PivotTables("PivotTable3").PivotFields("Region").CurrentPage = sValue
ActiveSheet.Copy After:=Workbooks(sMainWBK).Sheets(Sheets.count)
ActiveWindow.SelectedSheets.Delete - recorded to delete multiple sheets (displayalerts=false) to turn off warning
Sheet names have size and character limitations
sheets vs. worksheets collection?
ActiveSheet.PivotTables("pt1").PivotFields("Acct_nbr").Autosort xldescending, sort ' recorded
ActiveSheet.PivotTables("pt1").PivotFields("coper_id").PivotFilters.Add Type:=xlTopCount, DataFiled:=... ' recorded
ActiveSheet.PivotTables("pt1").ColumnGrand = True ' recorded
Activesheet.Names(sName).Delete ' deletes a named range
Insert_to_dataissues_click - Loop thru data on sheet and insert it to a table
ProcessSQL(sSQL, sSheet, optional sProcess
As Worksheet
WorksheetFunction.Min( ) I use application.evaluate
WebQuery - internet - udf - run a url and loads the output to a worksheet - recorded
ActiveWorkbook.worksheets("sfile1").sort.sortfields.Add Key:=Range("N2"), SortOn:=xlSortOnValues, order:=xlAscending, DataOption=xlSortTextAsNumbers
FormatMultipleSheets udf
ActiveSheet.Buttons.Add(top,left,width,height).select 'not sure of the params
Activesheet.Shapes.Range(Array("Button 1")).Select
Selection.OnAction = "TOC1.AddTocSheet" ' Select the shape first via ActiveSheet.Shapes.Range(Array("Button 1")).Select
Making Spreadsheets more Professional Looking
Sheets Collection
Sheets aka WorkSheets
RetrieveDataToSheet - udf - db
Large Spreasheets
Go to First or Last Sheet
Forecast Sheet
Create sheets from a list
Testing you Spreadsheet or Macro
Running a batch and opening a new spreadsheet Issue - IgnoreRemotedde
sheet names
Health spreadsheet
Networking spreadsheet
Goal spreadsheet
SendEmailFromList - Goes thru a spreadsheet and Sends emails
SheetExists - udf
Home | Excel Syntax Checker | About | Videos | Feedback | @alecberg | websites | FAQ | Memes | Thanks | Copyright © 2021 All Rights Reserved. Edit