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 RepliesHow to achieve by formula what was selected in autofilter without use vba.
View 4 Replies View RelatedI 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.
Basically it is a if statement saying that if the selected cell falls between 1/01/06 and 31/01/06 then Jan would be selected. The end part is not a problem; I’m just not sure how to write the one line of code that would test if the cell falls between the two dates. I attemped to create it as shown in the code attached below but wasn't successful. I used an else if statement to test the other 11 months.
Sub test()
Dim SelectDate As Range
Set SelectDate = Range("SelectedDate")
If selectedDate >= 1 / 1 / 2006 And selectedDate <= 31 / 1 / 2006 Then
ActiveSheet. PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _
"Jan"
ElseIf selectedDate >= 1 / 2 / 2006 And selectedDate <= 28 / 2 / 2006 Then
ActiveSheet.PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _
"Feb"........................
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 RelatedWhen I use the mouse pointer to select a cell I can't use the arrow keys to move to another cell while the pointer is over the cell and I can't edit the cell while the pointer is over the cell. If I move the pointer away from the cell then I can move around and edit as normal therefore I don't think this is a scroll lock issue.
This issue also happens when I select a tab. If I select a tab and then leave the pointer over the tab I selected then I can't use the arrow keys to move around the worksheet or edit a cell; if I move the pointer away from the cell then I can move around and edit as normal.
I am using MS Excel 2010.
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.
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.
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.
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".
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?
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.
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.
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 RelatedI have a sheet named "Risk Register" and another named "Outside Residual Risk Threshold". I need an event macro on the worksheet "View code" section, so that any time a value changes in column AF on "Risk Register", the filter on rows 8:39 in "Outside Residual Risk Threshold" is refreshed. Both sheets are protected.
The code I tried in the "view code" or "Outside Residual Risk Threshold" was as below...
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?
I attached a small file in which I filtered on Cities. And now I am looking for a VBA to copy the filter to an empty cell. Is this possible?
I'm making a database for people to easily find their documents at work. In some cells there are multiple entries because the document could be within two catagories, eg. memo and report. Is it possible to somehow list these multiple entries within the cell so that the autofilter will recognise them as seperate entries and find that document whether you filter for memo or report? If not, can you get the filter to search more than one column for the same result and show all entries that are, say, a memo, even if it says so in different columns? I want it to be as simple as possible for the user so that they can select what they want from the drop-down menu and not
View 9 Replies View RelatedProblem: utofilter criteria
Explanation
This has been my Autofilter criteria to date
Criteria1 = " " (needed for other macros)
Criteria2 = "=2007*" (i.e. starts with JobYear)
This works fine but now I am wanting Criteria2 to be linked to a cell where the user will enter the job year to be filtered.
Solution
My guess at solutions would be:
Criteria1 = " "
Criteria2 = Cell*
or
Criteria2 = Cell & "*"
Unfortunatley I have been unable to find any way of making this happen. Using an Autofilter to link to a cell is standard but making an Autofilter link to a cell with a starts with criteria attached doesn't seem to be doable.
I am looking for a code which can jump to a next cell from the activecell. I use the code
Activecell.offset[rowno][columnno]
This would take me to the next cell. However, this is a problem when the filter is on. I am not able to go to the next visible cell. Suppose if the row increase is 1, then cell selection goes to the hidden cell. I need to bypass the hidden cell and go to the next cell. Can anybody provide a code which does it? I tried searching the forum but could not get anything closer to this as I need something which works with offset and not cells.row.visible...etc.,
My excel file has a column for customer name (there are more columns btw). I have the filter feature on. The customer list is in column F.
I recorded a macro by copying a customer (from the customer column, say from cell F99). Then I click on the filter arrow and select the 'custom' option and in the dialog box that comes up, I paste the copied customer and try to find other records which have the same customer name.
This works great but when I run the macro for some other customer, say from cell F200, the pasting part, pastes the customer that I had selected when recording the macro.
Is there a solution to make this generic so that the macro will work in a manner that I simply highlight the cell of the desired customer and then then run the macro which will give me the result.
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?
I'm trying to create an autofilter that can filter each category that gets listed in a specific cell.
I have some code from another sheet which I'm trying to modify to accept more than 1 filter criteria.
[Code] .......
Where W2 lists something like:
"Blasting, Flotation, Drilling" and I want it to filter all three categories in the location J24 to the last row with data in it.
I believe I need to apply "*" in locations but I'm not sure where?
I'm trying to add to my code an autofiler with multiple criteria, the criteria is held in single cell. The criteria is made up of anything from 5 to 30 cells, then i have tried to concatenate these separated by commas, in speech marks, speech marks and commas etc., set them as an array the use that in my filter, but nothing seems to work.
View 6 Replies View RelatedI have a workbook with some code inside of it. When I turn off Autofilter after using the buttons in the top left of the sheet to filter by cell color all of the text fields on the entire sheet are moving to A1 on top of each other. I have no idea why this is happening nor is it throwing an error. I uploaded the sheet here [URL] .. for further review. I tried uploading on this site but the file is too large to upload.
View 4 Replies View RelatedI am trying to get autofilter to work based on cell contents.
Code:
ActiveSheet.Range("$C$1:$C$18371").AutoFilter Field:=1, Criteria1:=">=1.5" _
, Operator:=xlAnd, Criteria2:="
I was wondering if I could pick up the Field number and the criteria from a cell in excel rather than changing the code in VBA.
Range("A1:K1"). AutoFilter Field:=Range("A1"), Criteria1:=Range("B1")
I was trying this code but I got an error message. Does anyone know if I can pick up these information directly from excel.
I am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I have a table of data which I would like to filter based on a manual cell input instead of the autofilter option.
The table has tickers in column B and has information from column B to U. I would like to filter the data based on a manual ticker that I enter.
I am looking for a way to autofilter a list in "Sheet2" based on the value in Cell A2 of the ActiveSheet. I have about 20 tabs in a workbook that need to be populated with a monthly sheet that is pasted into "Sheet2" every month.
View 1 Replies View Related