![]() Highlight Cells With Error in the Entire Worksheet ![]() Selection.Replace “-*”, “”, xlWhole, SearchFormat:=False, ReplaceFormat:=True Union(Target.EntireColumn, Target.EntireRow).SelectĪ = vbRed Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Len(X) > 0 And Not X Like “**” ThenĪctiveCell.Resize(X) = Evaluate(“ROW(1:” & X & “)”) ![]() X = InputBox(“Enter Value”, “Enter Serial Numbers”) Here are some shorter alternates for a few of the macros you posted… MsgBox "Your Pivot Table is now updated." Pivot_Sheet.PivotTables(PivotName).RefreshTable PivotCaches.Create(SourceType:=xlDatabase, SourceData:=NewRange) 'Change Pivot Table Data Source Range Address NewRange = Data_Sheet.Name & "!" & DataRange.Address(ReferenceStyle:=xlR1C1) Set DataRange = Data_Sheet.Range(StartPoint, Cells(DownCell, LastCol)) LastCol = StartPoint.End(xlToRight).Column Set Pivot_Sheet = ThisWorkbook.Worksheets("Pivot3") Set Data_Sheet = ThisWorkbook.Worksheets("PivotTableData3")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |