Cell Formating Slows Down AutoFilter

Feb 26, 2005

I have an AutoFilter list of 14,000 rows by 14 columns, and the cells have some specific formating: fill color, font,
protection status, wrap, etc....

There are an additional 7 columns of formulas to the left of the filtered range.

The strange thing is----
-WITH the formating, trying to Unfilter the list takes 2 min, via a manually activated Data>Filter>ShowAll OR via a macro run of 'ActiveSheet.ShowAllData' .
(In an attempt to optimize speed, the VBA macro sets calculation to manual before the 'ActiveSheet.ShowAllData' and screen updating set to false.)

-WITHOUT the cell formating (eg. by doing Edit>Clear>Formats), the ShowAll takes about 3 sec.

Does anyone have experience or an explanation for this?

Why should the Formating affect Filtering so much?

Options for improving speed of autofilter?

I don't know if, or why it would be a factor, but note that I am using Dynamic Named Range and VBA to expand/contract the formulas

and formating to size of the list/table. Although this is not done during the filtering use.

Here is the dynamic formating code

Sub DynFmt_List()

Application. ScreenUpdating = False
With Application
.Calculation = xlManual
End With

I am wondering if some strange 'artifact' of manipulating the formating is becoming a factor?

View 4 Replies


ADVERTISEMENT

Copy Top Cell Post Autofilter And Reapply Autofilter Based On Cell Value

Aug 20, 2014

I can select the top cell in column "F" after filtering by multiple columns using VBA and arrays, but now want to I want to use the top cell in column "F" to search for all other equipment that uses this item.

E.g. remove filter, and reapply autofilter to column "F" based on selected cell as per below VBA

Note: Row 1 contains command buttons and row 2 Headers.

View 4 Replies View Related

Slows Down When The Range Is Expanded

May 2, 2008

Is there a faster method than this code? it slows way down when the range is expanded b/c it loops through every cell.

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If target.Cells.Count > 1 Then Exit Sub
Set Rng = Range("A1:GA400")
clrind = 42
If Not Intersect(target, Rng) Is Nothing Then
For Each cell In Rng
If cell.Interior.ColorIndex = clrind Then cell.Interior.Pattern = xlNone
Next cell
End If
End Sub

View 9 Replies View Related

VBA Slows Down And Breaks After Many Iterations

Feb 18, 2010

I have a macro running in Word (and referencing Excel) that is meant to iterate 15,000 times. But, after 100 times, the process slows and stalls.

I have put in a few "DoEvents" and "ActiveDocument.UndoClear" in Word, and I set "Application.EnableEvents = False" in Excel. These settings got me up to 100 iterations (previously the program would stop after even fewer )

Does anyone have any ideas or suggestions? I'm not sure what information you'd need to be informed about the problem, and I don't want to tell you too much! Do please ask if I'm not being clear.

View 9 Replies View Related

SelectionChange Event Slows Spreadsheet.

Mar 31, 2009

I have a SheetSelectionChange event that stores the Target.Row in a cell on the active worksheet.

View 15 Replies View Related

Macro Gradually Uses Up All Of Memory And Slows Down?

Mar 24, 2013

I have written this macro which I run about 1000 times in a loop. It runs solver and copies the results to a row in my spreadsheet so i end up with a sheet of solver results.

The problem is that every time it runs it eats up memory and slows down. I timed it and the first 100 runs take about 2 minutes and the last 100 takes about 15 minutes, the ram use increases by about 4gb in that time too.

As this is the first VBA code I have written and I have been learning as I go along, I assume its something I have done wrong in the code.

Sub run()
'
' run Macro
' run solver

[Code].....

View 2 Replies View Related

Macro Slows System By Opening Many Windows

Jan 29, 2007

I've been using the following bit of code to run a macro at the specified time:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application .OnTime TimeValue("12:00:00"), "GetData"
End Sub

The GetData sub executes a shell script and then pulls data from the result. The problem is that the macro runs 140+ times, and so I get 140 windows popping up and the system practically stops. I can't figure out why this is happening, as there are no loops or any sort of repetition in the code. Any help is greatly appreciated as this problem occurs with more than just the one spreadsheet.

View 9 Replies View Related

Formating Cell

Mar 7, 2007

I need to replace a "." with a "," to stay in the right format, by using VBA.

if i make a macro to do it, it will work for almost all cells but for a few it doens't work!
Then, if i select the cell with mouse and replace "." with a "," it works normaly.

My question is why it doesn't work for a few fields if all the data have the same format?

View 11 Replies View Related

Hiding Unused Columns And Rows Slows Down Excel?

Mar 16, 2013

I like the look of when only the used columns and rows are shown. I like to hide all unused columns and rows, and have the background and a minimalist spreadsheet.

HOWEVER, is it just me, or does Excel move a lot slower when thousands of rows and columns are hidden? Particularly, opening files seems to be slower. I'd love to delete them entirely from existence, so Excel only has a few rows and columns to work with, but that doesn't seem to be an option.

View 2 Replies View Related

Conditional Formating (cell Based On The Value Of Another Cell Whish Is Linked To Another Sheet)

Oct 24, 2007

I am trying to create conditional formating of a cell based on the value of another cell whish is linked to another sheet. I an using the "The formula is =$AA$30=1" where the cell AA30 is the cell linked to the other sheet. the problem is I have to do thiss for approx 200 cells ie =$AA$30=1, =$AB$30=1, =$AA$31=1, =$AB$31=1 --- =$AZ$42=1. Do I have to enter the formulea for each cell or is there a way to automate this?

View 2 Replies View Related

More Than 3 Conditional Formating Per Cell

Oct 31, 2008

I have a large X-Y-axis table with about 200 entries in it. There are 6 different entries possible. I now want to give each possible entry in this table a color for making it easier to read.

I could write a formula in conditional formating, so that it works for 3 colors. The problem is now that i can make this only for 3 different colors in conditional formating of excel. Is there a possibility for making this for 6 colors?

View 2 Replies View Related

Conditional Formating: Return NA() To Cell

Aug 28, 2007

Is it possible to return NA() to cell A10 if A10>A9, without adding a 3rd cell ??

View 9 Replies View Related

Cancel Conditional Formating If Cell Not Empty

Aug 11, 2009

I am trying to have conditional formatting of cells apply only if another cell is blank in 2007. A3 has a formatting of =MOD(ROW(),2)=1, then =AND (A3<>"",A3+15<=$G$1) to change the color based on date and finally =AND(A3<>"",A3+30<=$G$1) to again change the color again by date. What I would like to do is for the cells in columb A to change only if corresponding columb B cell is empty, without using macros if possible.

View 2 Replies View Related

Conditional Formating Based A Value Entered Into The First Cell Of A Row

Jan 23, 2010

Is it possible to do a conditional formating based on a value being entered into the first cell of a row?

Basically when a date is entered into a cell in column A, I want the cells in that same row (A-J) to have a border, even if B-J do not have any value entered into them.

View 9 Replies View Related

Conditional Formating: Color The Cell If Value Is Text= Sat Or Sun

Jan 17, 2010

I need the formula that will color the cell if value is Text= Sat or Sun

View 2 Replies View Related

Highlight Current Cell With Or Without Conditional Formating

May 4, 2006

I am now wanting to do if the the cell has an active conditional format also highlight that cell. Currently if the cell has an active conditional format nothing happens

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rngPrev As Range, PrevColor As Integer
Dim TempColor As Integer
TempColor = Target.Cells(1, 1).Interior.ColorIndex
If Not rngPrev Is Nothing Then rngPrev.Interior.ColorIndex = PrevColor
PrevColor = TempColor
With Target.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Set rngPrev = Target
End Sub

View 8 Replies View Related

Formating A Cell And Cell Font Color

Jun 5, 2006

i am use exl2000 and i made a workbook with password protection. 2 sheets are in this workbook. one sheet is password protected and second is not protected. i want to change the cell color and font color (Cell is locked) in protected sheet. i want to give only content protection and user cannot delete the text but he will change the color of text.

View 6 Replies View Related

Conditional Formating :: Place System Date In Cell

Mar 5, 2008

how I could have a range of B15-F15 to place Today's System-date in the Cell: A1, anytime anything is entered in that range?

View 9 Replies View Related

Conditional Formating: Highlight Cells Based On Text Of Another Cell

Aug 28, 2009

I have created a drop down box that allows me to choose multiple different Text Options. Example: Cell B4 has dropdown that lets me choose the Text Options, "House", "Car" and "Truck".

Next, I have 5 or so other columns underneath with their own text. What I want to do is have different cells highlight themselves depending on what is in Cell B4.

Example, if "House" is selected in B4, I want cells B7 and B9 to highlight. If "Car" is selected, I want cells B7, B8, and B10 to highlight. If "Truck" is highlighted, I want cells B9-B11 to highlight. Is this possible to do? I've tried using If/Then statements, but those don't seem to work for this type of thing.

View 3 Replies View Related

AutoFilter Method Of Range Class Failed - Yet Autofilter Works.

Sep 25, 2009

Im sure this is a very common problem. I tried searching for it but I havent found anything that solves this for me. Here is the code Im using:

View 3 Replies View Related

Use Cell Value After Cell Formating?

Sep 2, 2009

I have used Format Cells -> Number -> Category: Custom
and inserted Type: 00

This makes it so that:

If "1" is entered into the cell, it will display "01"
If "12" is entered into the cell, it will display "12"

This is exactly what I want it to do but here is the thing: It displays "01" but the cell value is still just "1". I want to be able to use the cell value in another cell where I have typed in:

View 2 Replies View Related

Autocomplete / Autofilter On A Cell

Apr 14, 2014

I need to perform autocomplete on a cell as I type but I want it to activate only after I'm done typing in numbers.

For instance, the data I need to type in is an address, say '60 Yonge Street'. So, after I type in '60' I would like the autocomplete to be performed on the Street Names. Also, in column A in another sheet I have a list of all the street names.

I've used ComboBox, Data Validation and OnKey to do this before on Street Names only, but now I need to do it after I type the Street Number in.

View 2 Replies View Related

To Have Cell Equal To Autofilter

Jan 18, 2008

I have 2 worksheets, and I was wondering if I can have a cell from Sheet2 equal to the subtotal of the Autofilter criteria of a column in Sheet1.

I do have something working with macros but it takes a long time. This would make things a lot easier.

View 9 Replies View Related

Edit The Cell When It Is In AutoFilter

Jun 27, 2007

I want to edit the cell or Specific Range when it is in autofilter mode. Here is the example i want to filter as long as the first column criteria is 1

Before filter

1 string 1
2 string 2
1 string 1-1
3 string 3

after filtered with criteria = 1
1 string 1
1 string 1-1

now i want to edit both "string 1" and "string 1-1" to "abcd". How am i going to get the the autofilter to return me a range for me to change the cells value.

View 9 Replies View Related

Use Cell As Autofilter Criteria

Aug 18, 2008

I have one master sheet of data, with a large number of fields and data.

I need to turn this master data into individual records, each record exisiting as an individual worksheet - lets call it a 'U'. The U is a template sheet which has calculations and lookups built into it to complete further information. The completed U's are then used by a number of people for different reasons. There are 3 main 'flavours' of these sheets which have slightly different uses.

I've gone from knowing nothing about macros to having learned enough about them in the last week or so to populate each individual sheet with the data, and save the new file in the location I want it to go.

What I want to do now is filter the fields displayed by the individual U sheets, as not every field is applicable to each 'flavour'. I've marked up the rows as to the appropriate flavour - e.g. Row 17 is applicable to 'P' 'F' and 'R' ( Cell which is auto filtered contains PFR), but Row 18 is only 'P' and 'F' (Cell contains PF).

I've gone through the master file and identified each entry as a the appropriate flavour - to summarise what I'd like to do now:

1) Automatically populate the template file with the relevant data. (which my macro will do)
2) Use an autofilter to filter the rows equal to the data in the reference sheet so these are the only ones displayed. Eg. Reference sheet says 'P', so I want to filter the U sheet where autofilter column contains the letter 'P'
3) Rename the file and save as my reference in the location I want it to (which the macro is doing).

Here's what I've got:

Range("CF3").Select
Selection.Copy
Windows("USS iss1.xls").Activate
Range("G158").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter Field:=1, Criteria1:=ActiveCell, Operator:=xlAnd

(where CF3 = the cell in the master data with the flavour in it, "USS iss1" is the template U file, G158 is a spare cell and Autofilter Field 1 contains the row reference which tells me which data applies to which flavours).

I've tried using the macro recorder, which when I paste the value in the autofilter/contains box records it as the value I've just put in rather than a copy of the reference cell. I've tried

Criteria1:=*ActiveCell*

and other variations on the same theme, but to no avail - I get "Compile error: Expected:expression".

View 3 Replies View Related

AutoFilter By Selected Cell Value

May 9, 2008

My task is to create a sub-routine that filters a column to the currently selected value while capturing the column header for use in a second sub-routine that finds the corresponding column in the second worksheet and filters it using the value from the first worksheet

View 2 Replies View Related

AutoFilter Automatically Based On Cell Value?

May 12, 2008

I am looking for a way to have some VBA code running in the background of a worksheet.

I would like the autofilter criteria to be based on a cell reference which can change based on what this cell value is?

View 6 Replies View Related

Autofilter Cell Reference Formula

May 21, 2008

I've been trying to make a formula using autofilter to search data inbetween a date range which i would like to be specified from 2 ceels on the workbook.

Basically i'm trying to get it to function like access or a search box.

The bit i'm having trouble with is when i record the macro i get to the custom filter option but i am unsure how to link from there to the cells in the spreadsheet.

View 9 Replies View Related

Code To Reference A Cell For Autofilter Value

Jul 29, 2009

I have a macro which (see below) which will autofilter a spreadsheet to only show cases which are older than a 200 days. I'd like to add the ability for the end user to change the filter criteria as required (say from 200 to 300).

Ideally this would be done by having the macro reference cell G22 which is where I would allow the end user to change the filter criteria.

View 8 Replies View Related

Excel 2007 :: Autofilter On Cell Value

Nov 24, 2011

I'm using Excel 2007. I'd like to be able to autofilter on a particular value that I put in cell J5. How can I do that syntactically?

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved