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

Become an Σxpert at Σxcel.com

 


Standard VBA/Excel (68 of 1182)

(Clear Filter = *active*)

ActiveWorkbook after opening an excel file
Activecell.formula
Activesheet.paste
Activecell.formulaR1C1 = .... - code from macro recorder
Selection.Copy - copies the active selection to the clipboard
Activeworkbook.name
ActiveWindow.FreezePanes = True/False
ThisWorkbook.Sheets(....).Range(....) ' use when a different sheet is active
ActiveWorkbook.Close False
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Worksheets("....").Autofilter.sort.sortfileds.clear ' clears a filters sorting ' recorded
Activewindow.Caption
ActiveCell.Address
ActiveCell.Offset(1,0).Address
ActiveCell.Offset(1,0).select
set objSelection = objOL.ActiveExplorer.Selection (not sure what this is)
ActiveSheet.Index - gets the sheets number (not sure why you'd use this
ActiveWorkbook.Save
ActiveSheet.name
ActiveSheet.ChartObjects(sFromAddr).Activate
Activesheet.ChartObjects(sToAddr).Delete
PPT.ActivePresentation.SaveAs sFile
PPT.ActivePresentation.Close
Activecell.FormulatR1C1
ActiveWorkbook.FullName
ActiveWorkbook.SaveCopyAs sFile
ActiveSheet.Unprotect
ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1 ' recorded
GetActivePPT - get a reference to active ppt
ActiveWorkbook.RefreshAll
Activesheet.PivotTables("PivotTable11").PivotFields("CtryOfDom").PivotItems ' recorded
PPT.ActivePresentation.Save
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)
ActiveWorkbook.Names("dataset").RefersToR1C1 = "=cpt_input_data!R1C1:R40C13"
ActiveWindow.SelectedSheets.Delete - recorded to delete multiple sheets (displayalerts=false) to turn off warning
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
Activecell.Row
Activecell.Column
PPT.ActivePrenstation.Slides(2).select
AC - udf sc - Activecell
AR - sc for Activecell.row
ComputerName - internet - Gets users computer name using ActiveDS.WinNTystemInfo
Activesheet.Names(sName).Delete ' deletes a named range
Down1 - sub to move activecell down 1 row sc
set wb = ActiveWorkbook
Right1 - udf - move activecell 1 to the right
Reference Active DS Type Library
Activecell.formulaR1C1 =
Activecell.formulaR1C1 = "=If(RC[-32]=0,0,RC[-10]/RC[-32]
ActiveWorkbook.worksheets("sfile1").sort.sortfields.Add Key:=Range("N2"), SortOn:=xlSortOnValues, order:=xlAscending, DataOption=xlSortTextAsNumbers
ActiveWindow.Activate
Activecell.mergecells
activecell.MergeArea
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
PPT.ActiveWindow.Selection.SlideRange.SlideNumber - get the active slides #
PPT.ActivePresentation.Slides(n) - the nth slide oblect name to use in a with stmt
For each shp in PPT.ActivePresentation.Slides(2)
PPT.ActivePresntation.Slides.count - gets the last slide
Active
ActiveWindow.DisplayWorkbookTabs = True