I am running into a roadblock, I have added an auto filter to my spread sheet, however now when I use it the filters I select are not showing up on the column that is being filtered. For some reason they are 2 -10 colums over, a totally seprate column it is kinda weird.
View 9 RepliesWhen using the autofilter, the drop-down arrow turns blue in color, i.e., when some filter citerion is being used, the small down-arrow turns a different color as a way of informing the user that a filter is in place. Is there a way to control the color of this? Currently, mine turns blue, but it would be more useful if I could change it to a brilliant color in order to make it contrast more with the default black. Blue is too difficult to be distinguished by my eyes. The autofilter is turned on via a macro. If there a line of code that controls the color.
View 2 Replies View RelatedI have a sheet called "interface" which people can input the date in cell A2.
The autofilter in sheet"originaldata" will filter the data according to the date in cell A2 in sheet "interface"
However, when i input the date 01 Aug 2009, the filter will give me 08 Jan 2009
VB:
Sub Date_filter()
Dim Inputdate As Date
Sheets("interface").Activate
Inputdate = Format(Sheets("interface").Range("A2").Value, "dd mmm yyyy")
[Code] ....
I am using the autofilter function on a spreadsheet and the first column displays numerical data ranging from 1 to over 100. When I apply the 'Sort Ascending' from the autofilter on this column, it is attempting to display the data in alphabetical/numerical order however the order it is displaying appears such as this 1, 10 , 100, 101, 102, before moving on with data that starts with 2 (2, 20, 21, 22, 23 etc). Is there a way I can filter this column to display literal numerical data such as 1, 2, 3, 4 etc?
View 2 Replies View RelatedI have a sheet that is autofiltered. Once a user autofilters columns 20, I would like to hide the arrow for that column so the user can no longer autofilter using that column. When I run the code - it hides the arrow in column 20, but then it unfilters all the data . . . can I hide the arrow in column 20 but keep the data as it was filtered before the code ran.
Dim c As Range
Dim i As Integer
i = Cells(2, 1).End(xlToRight).Column
Application.ScreenUpdating = False
For Each c In Range(Cells(2, 1), Cells(1, i))
If c.Column = 20 Then
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End If
Next
End Sub
I have modified this micro I found in a forum. All I changed was the Range on Sheet 1.
[Code].....
It works fine except when it cuts to sheet 2 it starts at on column B I need it to start with Column C. What do I need to add ?
Attached File : Survey.xlsm‎
I'm trying to write a program for work. One sheet (whereiseverything.xls) will have a list of parts column E and where it is in the process column (k). Column E of this sheet will have multiple part numbers. (Sometimes duplicated.) I would like to figure out how to write a code to Auto filter (whereiseverything.xls) sheet and copy only one P/N from (whereiseverything.xls) column E onto another Workbook Worksheet (Commit status.xls) column. After that the sheet must copy all of the locations of that P/N from whereiseverything.xls column K into and under the P/N of the Commitstatus.xls.
It will continue to autofilter and copy from where is everything, the "one" p/n and all of its locations into another empty column of Commitstatus.xls until it no longer has part numbers to autofilter on whereiseverything. I am extremely green on VBA programming but here is my first attempt.
Windows("Where is everything commits .xls").Activate
Windows("whereiseverything[1].xxx").Activate
Columns("D:D").Select
Selection.AutoFilter
Windows("Where is everything commits .xls").Activate
Windows("whereiseverything[1].xxx").Activate
Selection.AutoFilter Field:=1, Criteria1:="7516113-905" \<--this Is one p/n
Columns("J:J").Select
Selection.Copy....................................
I have a spreadsheet with 114 rows and I would like to write code that will color all the even numbered rows blue. I've tried using the macro recorder and then adjusting the code, but I keep getting error messages.
View 9 Replies View RelatedIs it possible to sum only cells that are highlighted "Blue"
View 2 Replies View RelatedI have these light blue lines showing up on my sheet. I have "not boarders" selected and they do not print - but I can see them on the screen. Does anyone know how I can get rid of them?
View 3 Replies View RelatedI'm using conditional formatting for column k that turns the cells blue (RGB 0, 0, 255) if the condition is met. I want to be able to delete all other cells where the condition is not met using a macro.
View 9 Replies View RelatedI have the AutoFilter Field:=4 piece of code but what if the column number changes?
How can i assigned AutoFilter field to be the actual column name. The column name is Current State and have declared it in the below code as string --> strSearch4 = "Current State"
Should i assign strSearch4 to AutoFilter Field? If so how?
Sub CommercialView() ' ' CommercialView Macro '
' Dim wrkbk, sourceBk As Workbook Set sourceBk = Application.ActiveWorkbook 'Clear Filter for all Columns START With ActiveSheet If .AutoFilterMode Then If .FilterMode Then .ShowAllData End If Else If .FilterMode Then .ShowAllData End If End If End With 'Clear Filter from all Columns END
'Copy the required columns and add them to the destination spreadsheet START
Workbooks.Add
Set wrkbk = Application.ActiveWorkbook
sourceBk.Activate
wrkbk.Activate
sourceBk.Activate
[Code] .......
what i need to do is count all the instances in column h excluding headers so in the attached sheet. in a2 i need it to return one of the teams ( in this instance sheffield wednesday) and then in cell b2 i would like it to return how many times (sheffield wednesday) appears in column h in c2 draw. in d2 i would like it to return how many times (draw) appears in column h and the same again in e2 and f2 for the other team. i need it to understand that it may be any team as the next set i use may be for instance utd v chelsea etc etc. in row 3 there will be ( which there isnt now a filter )
View 4 Replies View RelatedI have a sheet with many labels arranged horizontally across the columns. I would like to Autofilter one of the columns but not see the filter drop downs for any of the other columns...
View 9 Replies View RelatedI have an autofilter set up that hides all rows with 0 in the first column. This information is automaticaly filled in from information on another sheet. Using a worksheet code from a previous thread I have got all the worksheets to automatically refresh which is great.
Private Sub Worksheet_Calculate()
If Me.FilterMode = True Then
With Application
.EnableEvents = False
. ScreenUpdating = False
End With
With ActiveWorkbook
.CustomViews.Add ViewName:="Mine", RowColSettings:=True
Me.AutoFilterMode = False
.CustomViews("Mine").Show
.CustomViews("Mine").Delete
End With
The issue I have is that there are 52 worksheets (it's a weekly rota) and if any change is made anywhere on the sheet, all the worksheets then refresh which takes just over a minute (about 40 changes need to be made each day).
Does anyone know if there is a way that the information will only refresh on all sheets if changes are made in colums A? as this is the only information that is taken through to other sheets. Or is there another way of doing this?
I want to make all the cells that are outputted as blank by my formula a certain color to distinguish them from non blank cells. my current formula: [B1=IF(A1=0,"",A1)]. my guess would be to use an [AND] function but I do not know how to command a cell to change color without using the toolbar.
View 4 Replies View RelatedNeed VBA code to start with row 5 and look through COL F for any blue cells, IF=BLUE change the percent to 0% for that cell.
The RGB color code for this particular shade of blue is: Red 153, Green 204, Blue 255.
I have a column that has a date in it. If the day of the date = 07 (Ex: 08/07/2009 or 12/07/2009 etc etc) then I want to alter the font color of the ROW to be blue...or even just the text....
View 9 Replies View RelatedI need a VBA code to do the following:
- The active cell i.e. the selected cell can be anywhere on row 11 (this is a merged cell with row 12 but I can unmerge if causes problems)
- The filter needs to be applied to the rows below the active cell (at most this will be about 10,000 rows below)
- I need to filter for non-blanks only
- Above row 11 there is one blank row and a number of filled rows; these need to be ignored i.e. excluded from the filter
- In this case I will need the filter to work on the cell with 'France Trade Product' in it
- The filter would need to hide rows below this cell except for row 16 where a non blank is found
FilterCapture.JPG
I have a column of dates: 1 day per row: 01/01/10, 02/01/10, 03/01/10, etc in sequence, without gaps (European date format). The list can begin with a different start date depending on initial user input and is not always a Monday. I want the user to be able to autofilter so that it only shows dates that fall on a Monday.
Private Sub Worksheet_Activate()
Dim dDate As Date
Dim strDate As String
'disable autofilter if already enabled
With ActiveSheet
.AutoFilterMode = False
End With
'autofilter column a only, from a12, to filter Mondays
If IsDate( Range("a12")) Then
dDate = Range("a12")
strDate = Weekday(dDate)
Range("a12").AutoFilter
Range("a12").AutoFilter field:=1, Criteria1:=strDate
End If
End Sub
I'm using Excel to map automotive parts to vehicle applications (two different spreadsheets) for importation into a relational Access database. Production dates for parts rarely match the on-sale dates of the cars, so I've set up a macro that:
1. copies the start production date for a part record into the vehicle workbook at the top of the 'discontinued' column,
2. copies the end production date for the part into the vehicle workbook at the top of the 'release' column,
3. uses these pasted data points as criteria for the autofilter in the vehicle workbook as 'vehicle release date' < 'part end production date' and 'vehicle discontinued date' > 'part start production date'.
I find that the macro works perfectly in the autofilter for the vehicle discontinued date, but not for filtering the vehicle release date. The date is copied and pasted OK. When I check the custom filter dialogue box, the date has been entered in with the 'is less than' menu item selected, but it doesn't bring up any records unless you click on the 'OK' button once the dialogue box is open. I want to run the macro without having to run the autofilter manually at all. To troubleshoot the issue, I broke up the macro into two separate macros, one for release and the other for discontinued. Problem remains, even though the only difference between the two macros is the relative cell addresses. I've checked formatting of the cells for text vs. numeric and that doesn't appear to be a problem.
working with a macro to auto filter out all NON-NUMERICS in a column chosen by the user. heres the code i'm working with now:
Sub DeleteAllAlpha()
Dim rTable As Range
Dim lCol As Long
Dim vCriteria
On Error Resume Next
With Selection
If .Cells.Count > 1 Then
Set rTable = Selection
Else
Set rTable = . CurrentRegion
On Error Goto 0
End If
End With
If rTable Is Nothing Or rTable.Cells.Count = 1 Or WorksheetFunction. CountA(rTable) < 2 Then............................
Can I have a formula which counts blue colored cells in column A.
View 3 Replies View RelatedI have a spreadsheet that uses many columns, and I have already used all 3 conditional formats. 4 if you include the original format. VBA code that will turn the whole row Orange with a dark blue font, if the cell in the row says "Enrolled"?
View 9 Replies View RelatedI am looking for an Excel macro that will Autofilter a worksheet to display all rows with a empty value in one column (e.g. column B) as well as display the entire row above the aforementioned row with a blank cell in column B. I need it to be "reversible" so that I can click the Autofilter button (or advanced filter button) to show all rows again.
View 2 Replies View RelatedI got a problem using AutoFilter with VBA in Excel.
It works well for regular filters, but filtering the date column does not work as intended. The column is formatted as date, I can filter it manually and absurdly, if I run my code, it filters nothing but when I check the filter and then only click ok (no change being applied to the filter criteria), it starts filtering correctly.
Here is my code:
Code:
ws.ListObjects(SheetName).Range.AutoFilter Field:=3, Criteria1 _
:=">" & CDate([datecell]), Operator:=xlAnd, Criteria2:= _
"
I am using the following to autofilter a column based on a month number
Worksheets("Data").Range("$A:$M").AutoFilter Field:=8, Criteria1:=Month(tempmon)
tempmon contains the month number (e.g 9 for september)
when I run this it filters but tempmon is equaling 1 when I know it is set to 9
i have tried
Worksheets("Data").Range("$A:$M").AutoFilter Field:=8, Criteria1:=Month(9)
When activating Autofilter in a wide table, the only way to determine which criteria field was selected is to try and identify which drop-down arrow has become blue. When working on a laptop, it is rather difficult to identify the difference between the black arrows and the blue ones. Is there a way to have a macro or event procedure that will cause the selected criteria field (or fields) change its background color (into yellow, for example)? This way, the yellow fields will "stand out"… No more searching...
View 3 Replies View RelatedIm 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 RelatedI am unable to unhide some rows on a sheet. Row 1 though 34 the row numbers are blue. After that row 65 and on are black. I can unhide columns but not the rows. By the way row 35 through 64 are missing or hidden. How do I unhide everything?
View 2 Replies View Related