I have 3 columns of data and am using an autofilter to sort it. At the bottom I have a formula =subtotal(9,cells requested) which magically shows me the sum of the data showing only (excludes all the figures which are hidden - it's fabulous). However I was wondering if it is possible to have the same formula but to count the number of things shown instead of sum and another to average.
View 3 Replies
I am currently building a data sheet using VLOOKUP. When there is no data to lookup it returns #N/A, which is fine. The problem is when I go to total these columns because of the NA it returns NA in the total box. Having tried the if isna formula I am now returning #VALUE!. I may be doing the IF ISNA formula wrong.
View 4 Replies View RelatedMy company works 24/7 and with that some people on nights starting prior to midnight and then finishing after. Of course the "regular" formula works well in calculating between 00:00 onwards but I am getting an error when for instance the person starts at 20:00 and finishes at 04:00. I have tried numerous ways but still the error persists.
View 5 Replies View RelatedThe problem I am having is that I would like to total using the VLOOKUP (or any other command, which i do not know off). Here is the scenario
I have two sheets.
In sheet 1 have:
Column A with the weeks (date).
Column B with numbers.
Column C with numbers.
In sheet 2 I have:
Cell A1 with the date (which I type in)
Cell A2 displays the number (according to the date that I have typed in Cell A1)
In Cell A5 I would like to display the total. If in Cell A1. I type 13/04/09 it would total 30 (06/04/09 & 13/04/09). I have attached a spreadsheet for reference.
On my spreadsheet I'm after a formula for cells E2 and F2 that I can drag down and it automatically populates the cells relevent to the day with the total hours for the Sessions (E2) and the total hours per day (F2). Hope this makes sense, but I'm sure you'll gather want I mean from the spreadsheet.
I have two columns for a Home and an Away win-loss records for a team over a few seasons. The win-loss stats in each column are in the form 24-13 (2-two digit numbers with a hyphen in between). How can I get a total at the bottom of the column for all the win-losses?
View 9 Replies View RelatedI want to total column A & total column C but only if there is an amount in both cells on the same row
Can I do this with an array?
Do the columns have to be adjacent? I could make them if necessary.
Data
A C
11 12
21 0
0 17
15 15
11 9
in this example we exclude rows 2 & 3 from the total because one cell contains zero or is blank.
Total Column A = 37 (11+15+11)
Total Column C = 36 (12+15+9)
I'm currently working on a summary page for the defects in the building we are working on.
I've done up a summary page which reference's cells in other sheets which contain a TEXT(COUNT formula. When I goto SUM these referenced cells in my summary page I keep getting it returning '0'.
Example of what I'm doing:-
Defects Column in Summary Page
411 --> referenced from =Basements!L1 --> L1 contains =TEXT(COUNT($C$8:$C$100),"0") formula
56 --> referenced from =Level1!L1 --> L1 contains =TEXT(COUNT($C$8:$C$100),"0") formula
33 --> referenced from =Level2!L1 --> L1 contains =TEXT(COUNT($C$8:$C$100),"0") formula
When I go to do a simple SUM of 411,56,33 via =SUM(D3:D5) it returns a zero?
I've included a spreadsheet that show what Im trying end up with. Im looking to have a sheet that has a item indentification number along with a title and value. I would like to come up with a macro or formula that organizes the items by that identification number and totals them.
View 4 Replies View RelatedI work in HR MI and am compiling an equality spreadsheet. Out of everyone who is on the list I want to see how many men and women we have which I have figured out using = SUMIF(GENDER,"MALE",NUMBER) but from that I want to say theres 50 male in total and out of that 30 are White and 20 are Indian. Is there anything I can add to this formula so it looks at more than two defined sets of information??
View 2 Replies View RelatedI have a 1500 row spreadsheet that will change every month. It's set up in three columns Name, Amount, Total. The Total column is supposed to hold the total of all the rows with the same name field. I.e.
4445-8889 12
4445-8889 8 20
5598-7785 10
5598-7785 10
5598-7785 20 40
The problem is that the number of identical named rows is different for each name and changes each month. I want to build a macro that will out the correct total in the last column of the last entry with the same name.
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 RelatedI have with Excel autofilter.
I applied an autofilter to a list of data that does not exceed the 1000
items limit, and attempted to filter the data to get a particular item. The
filter did bring up all the items needed, but it also had at the bottom of
the filtered list, another item that was not part of the items to be
filtered, which unfortunately affected my subtotal calculation.
when i used autofilter example there is 3 criteria on it A, B, C and when i choose A one of the lowest column still showing B or C criteria.
View 2 Replies View RelatedI am going bonkers with the worksheet autofiltered result. On userform "Find" when I use one of two comboboxes to filter the results no data is displayed. Using the textbox on that form the filtered data is displayed.
View 3 Replies View RelatedSo I have a column, say column A, that I have a auto filter assigned. I would like it to auto-refresh the filter every time I add in data at the end.
I found this macro, but it only works for changes made within the filter, not if I add in data at the end. [URL]
Private Sub Worksheet_Calculate()
If Me.FilterMode = True Then
With Application
.EnableEvents = False
[Code].....
What is the simplest way of see if after a filter has been applied with a criteria, whether any data is visible using VBA?
View 2 Replies View RelatedHaving a strange issue running an autofilter on a set of data - trying to isolate a particular date...
I have four variables :
wsDataSheet (Worksheet) specifies the sheet containing the datargAllRange (Range) specifies the range of data to be filteredinValueDateColumn (Integer) specifies the column in which the dates are held (entire column is Date formatted)dtDate (Date) is a date value specified by the user on the main sheetFor test purposes, I've filled the column with the same date (19/07/2011) and specified the same date on the main sheet (19/07/2011) - and checked that all variables are holding their expected values in the debugger.
But for some reason, when I run the code...
Code:
With wsDataSheet
.AutoFilterMode = False
.Range(rgAllRange.Address).AutoFilter Field:=inValueDateColumn, Criteria1:=dtDate
End With
The autofilter finds no matches??
Very puzzled as I've gone to great lengths to ensure the date formats are consistent.
Trying to filter list and copy filtered data to another sheet in the same workbook.
I'm receiving this error:
Run-time error '438'
Object doesn't support this property or method
Worksheets("Data"). CurrentRegion.Copy _
Worksheets(" Totals"). Range("A1")
Sub GetTotals() ..............
I have some code for applying various filters, up to a maximum of five. However, not all five fields need necessarily have any filter but I can't find a way in the vaConditions line to show 'no filter' or 'All'.
vaFields = VBA. Array(1, 3, 4, 9, 10)
vaConditions = VBA.Array("", "", "", ">20", "")
Set rngData = Worksheets("CECO 2005").UsedRange
For i = 0 To 4
rngData.AutoFilter Field:=vaFields(i), Criteria1:=vaConditions(i)
Next i
WHEN I FILTER FOR WORDS BEGGINING WITH LETTER I. THERE IS NO DATA...SO I HAVE SOME CODE THAT WILL POP UP MSG BOX. AND IF THERE IS THEN COPY DESIGANTED RANGE..HOWEVEER WHEN I FILTER USING THE BELOW CODE...IT DOES NOT RECOGNIZE THAT THERE IS NOTHING AND JUST GOES THROUGH AS NORMAL..
Sub START()
Dim rng As Range
Dim rng2 As Range
Dim worksheet1 As Worksheet
Set worksheet1 = worksheets("MAIN")
Selection.AutoFilter Field:=4, Criteria1:="=I*", Operator:=xlAnd
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(0, 18).Resize(.Rows.Count - 1, 1)
.SpecialCells (xlCellTypeVisible)
On Error Goto 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
worksheets("noms").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
destination:=worksheets("NOMS").Range("A1")
End Sub
Two macros have been developed in order to write entries to a sheet called Detention Register from another sheet named Database.
The first macro (AutofilterDatabase1) filters for two criteria in the Database sheet: 1. All dates 7 or more days prior to today's date (5th field called rDate) & 2. The smallest positive value for a person in field 10 (called rSmallest).
Once these filters have been applied a second macro (named WriteDetentionRegister) is supposed to write the filtered entries to a sheet called Detention Register. However, if no enties at all are found by the filter it writes all entries to the Detention Register. Is there any way of stopping the writing process if no entries at all are found after the filtering process?
I'd also prefer it if after the writing process (or not as the case may be) that all autofilters were returned to displaying 'All' data in the Database sheet for fields 5 and 10. Is this an easy tweak to make to the existing code?
I enclose the code of the 2 macros.
Sub AutoFilterDataBase1()
Application. ScreenUpdating = False
'Get today and convert to serial value, subtracting 7 days
d = CLng(Date) - 7
DBase.Activate
DBase.AutoFilterMode = False ......................
Automating Data Filter Autofilter. i would like to automate the autofilter (from a form)...the following code works, but...it needs improvement...
myfilter = Range("d2").Value
Selection.Range("testmonth").Select
Selection.AutoFilter Field:=1, Criteria1:=myfilter
I have a worksheet set up with code to have it Autofilter. My criteria is that if it has 0's in column d then it gets hidden.
This sheet is automatically filled in from information on another sheet.
Is there anyway that when the information is changed that the AutoFilter will automatically refresh itself?
In 2003 when you use autofilter and then tried to copy the resultant information, you would only get the visible items that remain as a result of the filter. For example if you have a list of employees in alpabetical order in Column A and then in Column B you have the State in which they are employeed. Now if I use auto filter and filter on Column B to get all employees in the state of Ohio, that is all that will be visible on the screen. Perfect that is what I want. Now I want to copy all of these employees and paste them into another document or spreadsheet. (don't forget that because the list is sorted by employee all employees in Ohio are not next to eachother in the list so there are a bunch of rows that have been filtered out. and for the sake of explaining the dilema here we will not resort the list as this is a very basic example of the problem that I am having and resorting the list may not work in every case.)
In 2003 I would simply select the top left cell in the list and hit Control+Shift+End to select the all of the results and then simply copy this over to another spread sheet and I will get exactly what I was looking for. In 2007 if I go through this same process, and paste the data to another location, all of the data, even the rows that were filtered out, will come through. The whole purpose of the autofilter is to weed out what you don't want. However in 2007 this does not work in 2007.
Iam trying to auto filter a data range based on criteria passed from a list box selections.I want the auto filter to be filtering column 2 of the data range based on ALL the items SELECTED from a multi-select list box (named listbox2) at the click of a button. Here is what i currently have:
VB:
Sub Cmd1_Click()
Application.ScreenUpdating = False
For i = 0 To ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) Then
Range("A3:C600").AutoFilter Field:=2, Criteria1:=ListBox2.List(i), Operator:=xlFilterValues
[Code]...
It works, only that it filters the data by ONLY the last selected value of the list(i.e only one value item in the list). I want it to loop through ALL the selections, applying filter on column 2 based on EACH of the selections on the list box.
I am having trouble with the following macro,
[Code] .....
When I press F8 and step through the macro, the StartDate and EndDate both seem to populate correctly.
The macro seems to go through the motions but returns NO results, unlike the recorded macro.
Macro code to "Clear Filter".
I am using an autofilter to delete chunks on unwanted data, by using Range(Selection, Selection.End(xlUp)).Select however it picks up the header row. Is there anyway I can either get the selection of data to select one less line, or a way to get it to leave the header line?
View 2 Replies View RelatedI am using the following code to re-name filtered data in column 4 of my worksheet, but I am running into an issue when the Autofilter returns only one row of data. The End(xlDown) is selecting a range that extends to the last row of the worksheet (1,048,576).
Code:
rfiltered.Cells(1, 3).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Receivables"
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
How can I write the code so that in the event there is only one row of data, it selects just that row for the paste (and yes it would be redundant to paste over the same value) and then continues on? I would usually use a Cells(Rows.Count, x).End(xlUp).Row to find the last row of data, but I don't think that will work in Autofilter mode.
I created a userform to filter some data according to some specifications and then spit out the results. After some tinkering, I've gotten everything to work as far as I can tell. Though it isn't mandatory, I would like to get a message to pop up telling the user if no results matched their specifications. I've included some of my code for reference.
'Filter results upon clicking SearchButton
Range("A1:I73").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=LiqEndComboBox.Value
Selection.AutoFilter Field:=4, Criteria1:=SealsComboBox.Value
'PressureTextBox filter
[Code] .........
