Screen Updating = True End Sub I want to filter so I see all rows that have Saved Family Code K123223. ' Set first item to Visible to avoid getting no visible items while working . I want this to work regardless of the previous filters. I don't want to see any other rows in the pivot table. Sub Filter Pivot Field() Dim Field As Pivot Field Field = Active Sheet. Pivot Fields("Saved Family Code") Value = Range("$A") Application. Evaluate also enables you to get the results of a single-cell or multi-cell array formula passed to Evaluate as a string. Evaluate, for example as The difference between using Application. Public Function EVAL(the Input As Variant) As Variant ' ' if UDF evaluate the input string as though it was on this sheet ' else evaluate for activesheet ' Dim v Eval As Variant Application. If the input string resolves to an array formula then EVAL will return the corresponding array of results.Volatile On Error Go To funcfail If not Is Empty(the Input) then If Type Of Application. EVAL must be volatile because Excel cannot detect which cells the input string argument refers to, and hence does not know when the function needs to be recalculated.With Windows 95/98/ME: With Windows NT/2000/XP: Application.
And i've got up to 300 000rows.(XL 2007) If someone can help, thank you so much!! Anyway i need the macro, because i need to use it other way round, after some other processes have been made. On sheet4 there are correct and sheet2 faulty values. If they were, it would be easier, but they can't be put in same line. Also: Per the Forum Rules, VBA code must be wrapped in code tags, which you omitted. Screen Updating = True End Sub Sub Filter Pivot Table() Application. Worksheet Function | Screen Updating | Display Alerts | Calculation The mother of all objects is Excel itself. The application object gives access to a lot of Excel related options. As a result, Excel VBA closes your Excel file, without asking you to save the changes you made. If your workbook contains many complex formulas, you can speed up your macro by setting calculation to manual. For example, place a command button on your worksheet and add the following code line: When you click the command button on the worksheet, Excel VBA sets calculation to manual. You can verify this by clicking on File, Options, Formulas. Now when you change the value of cell A1, the value of cell B1 is not recalculated. Orientation = xl Column Field Then Dim i As Long On Error Resume Next ' Needed to avoid getting errors when manipulating fields that were deleted from the data source. Screen Updating = True End Sub I get something along the lines of Sub Filter Pivot Table() With Active Sheet. However, when it gets to a line containing pivot table data the Count A function is not returning a value greater than 0.